[VB] changer le nom du dossier auquel accède la macro

bonjour a tous

mon problème est le suivant.

j'ai crée une macro important les données d'un fichier

le fichier s'appel result janvier.txt et ce trouve dans le dossier TEST

la ligne de code est la suivante

 With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;L:\TEST\results  janvier.txt", Destination:=Range( "A4"))
        .Name = "results janvier"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 850
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = True
        .TextFileTabDelimiter = False
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = True
        .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With

Je voudrais que le nom du dossier soit le nom de la cas B2 de ma feuille afin d'automatiser la procédure. car je devrait répeter l'opération pour plusieurs projets et pour tout les mois de l'année.

donc je voudrais avoir quelque chose comme ceci

"TEXT;L:\nom ce trouvant dans B2\results janvier.txt", Destination:=Range( "A4"))

mais je ne sait pas ce qu'il faut écrire à la place de ma phrase en rouge ci-dessus pourque cela fonctionne

par exemple si le projet s'appel non plus TEST mais TOTO il faut que la ligne de code soit équivalente a ceci en allant chercher le nom ce trouvant dans B2 qui serait ici TOTO

  "TEXT;L:\TOTO\results  janvier.txt", Destination:=Range( "A4"))

merci pour votre aide

si vous avez le moindre question pour la compréhension je reste disponible

Bonjour,

Pas évident de te donner la réponse juste car tu utilises des instructions Query

Essaye ceci :

Sub test()
Dim ref As String
Dim lien
ref = Range("B2")
lien = "TEXT;L:\" & ref & "\results  janvier.txt"
With ActiveSheet.QueryTables.Add(Connection:= _
lien, Destination:=Range("A4"))
.Name = "results janvier"
....
End sub

Amicalement

Dan