Bonjours les fous d'exel

J'utilise le code suivant pour importer des datas dans une feuille excel

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
With ActiveSheet.QueryTables.Add(Connection:="TEXT;C:\TEMP\MFI-13112007.txt" _
        , Destination:=Range("A1"))
        .Name = "MFI-13112007"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 932
        .TextFileStartRow = 1
        .TextFileParseType = xlFixedWidth
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1, 1, 1)
        .TextFileFixedColumnWidths = Array(8, 46)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery = False
    End With
Cela fonctionne mais, quand je remplace le path de la connection par une variable, j'ai une erreur sur la ligne refresh.....

J'aimerais utiliser une variable pour le path de mon fichier .txt.. Comment faire?

Merci d'avance pour votre aide.