ouvrir txt

[ben]

bonjour tout le monde

j'ai le code suivant
Mon problème est qd je change le chemin par une variable cela ne fonctionne plus il importe rien je dois faire une erreur dans la syntaxr à ce niveau :
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;chemin & fichier_cps", Destination:=Range("A1"))

normalement au lieu de chemin & fichier_cps il y a c:\comparaion\fichier.txt

merci de votre coup de main !!




Dim fichier_cps As String
Dim chemin As String
Dim chemincps As String
fichier_cps = uf4_combobox_cps.Value '==> référence à un fichier txt
chemin= c:\comparaison\

ActiveWorkbook.Worksheets.Add
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;chemin & fichier_cps", Destination:=Range("A1"))
.Name = "BMFL"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = xlWindows
.TextFileStartRow = 6
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = True
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
.Refresh BackgroundQuery:=False
End With

 

[wape]

Bonsoir ben et le forum,

As-tu essayé comme ceci ?

With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;" & chemin & fichier_cps, Destination:=Range("A1"))


Slts

wape

 

[ben]

Formidable ca marche !!!
Je te remercie beaucoup j'ai persque passé la matiné et je pensais avoir tout essayé sauf de mettre le " après le ;
Encore merci pour ton aide