Changement chemin

Bonjour j'ai un code qui fonctionne bien avec un chemin en dur c:/ .......

mais je voudrais pouvoir charger mon fichier qui se trouve dans le même répertoire et je n'y arrive pas à cause d'un probléme de syntaxe je pense.

merci pour votre aide.

voici le code qui fonctionne:

  Sheets("ADMIN").Select
    Range("M16").Select
    Application.CutCopyMode = False
    Application.CutCopyMode = False
    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;C:\Users\Public\LICENCE.txt", _
        Destination:=Range("$M$16"))

celui que j'ai modifié et qui bug:

Sheets("ADMIN").Select
    Range("M16").Select
    Application.CutCopyMode = False
    Application.CutCopyMode = False
    With ActiveSheet.QueryTables.Add(Connection:= _
        "text:Workbooks(ActiveWorkbook.Name).Path&"\LICENCE.txt"",
        Destination:=Range("$M$16"))

à l'avance un grand merci

Daniel

bonjour,

Sheets("ADMIN").Select
    Range("M16").Select
    Application.CutCopyMode = False
    Application.CutCopyMode = False
    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;" & Workbooks(ActiveWorkbook.Name).Path & "\LICENCE.txt",
        Destination:=Range("$M$16"))

super merci pour cette aide.