C'est une question toute bete mais à laquelle je n'ai pas trouvé de répose ni dans la FAQ ni dans le forum... En fait, la variable "MonChemin" contient le chemin où ma requète doit chercher les fichiers .dbf, c'est une requète automatisée par une macro VBA:
Le problème c'est qu'au lieu de me prendre ce qu'l y a exactement dans "MonChemin", il rajoute des apostrophe ce qui donne par exemple:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10 With ActiveSheet.QueryTables.Add(Connection:=Array(Array( _ "ODBC;DSN=FoxPro Files;UID=;PWD=;SourceDB='" & MonChemin & "';SourceType=DBF;Exclusive=No;BackgroundFetch=Yes;Collate=Machi" _ ), Array("ne;Null=Yes;Deleted=Yes;")), Destination:=Range("A1")) .CommandText = Array( _ "SELECT DISTINCT segmadrs.sacodcon, segmadrs.sacodads" & Chr(13) & "" & Chr(10) & "FROM segmadrs segmadrs" & Chr(13) & "" & Chr(10) & "WHERE (segmadrs.sacodcon='" & NumeroDossier & "')" & Chr(13) & "" & Chr(10) & "ORDER BY segmadrs.sacodads" _ ) .Name = "Lancer la requête à partir de FoxPro Files" .FieldNames = True .RowNumbers = False ....
MonChemin contient c:/mes documents
il sort 'c:/mes documents'
Comment enlever ces apostrophes???
merci beaucoup d'avance!
Partager