Astuces et pièges VBA - [PatCatNat's]

Astuces et pièges VBA

Article mis en ligne le 7 février 2008

dernière modification le 11 janvier 2019

par Patrice MOREL

Des trucs VBA où on perd du temps et se casse la tête !

Sommaire

Chemin de fichier comportant des espaces
Exportation vers Excel

Chemin de fichier comportant des espaces

Il faut mettre des triples guillemets.

Exemple sans espace (MesDocuments) :

Dim stAppName As String

    stAppName = "Excel.exe D:\MesDocuments\_Patrice\Chiffres\Tabord\Objectifs\Objectifs2008\Objectifs.xls"

    Call Shell(stAppName, 1)

Exemple avec espace (Mes Documents) :

Dim stAppName As String

    stAppName = "Excel.exe" & " " & """D:\Mes Documents\_Patrice\Chiffres\Tabord\Objectifs\Objectifs2008\Objectifs.xls"""

    Call Shell(stAppName, 1)

Exportation vers Excel

Dans d’anciens modèles avec Excel 5 il fallait mettre des Antislashs. Avec Excel 2003 il faut des Slashs ! Il faut aussi changer la version de Excel dans la ligne de commande (remplacer "5" par "8") :

Ancienne version (Excel 5) :

DoCmd.TransferSpreadsheet A_EXPORT, 5, NomEtat, "C:\BaseDeDonnees\Rapports\Listing_Total" & ".xls", 1

Nouvelle version (Excel 2003) :

DoCmd.TransferSpreadsheet A_EXPORT, 8, NomEtat, "C:/BaseDeDonnees/Rapports/Listing_Total" & ".xls", 1