Adresse variable pour importer les données TXT dans Excel

bonjour à tous,

je viens de réaliser un macro sous excel pour importer les données dans excel avec une adresse fixe par ex: c:\fei01.txt

le code généré par le macro est suivant:

Sub ren()
'
' ren Macro
' Macro enregistrée le 02/07/2010 par fren
'
    Range("A1").Select
    With ActiveSheet.QueryTables.Add(Connection:="TEXT;E:\fei01.txt", Destination _
        :=Range("A1"))
        .Name = "fei"
        .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 = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
    Range("J9").Select
    Columns("A:A").ColumnWidth = 16.86
    Range("G14").Select
End Sub

puis que j'ai plusieur fichier à importer dans excel, donc l'adresse est une variable, par ex: fei01, fei02, fei03....

j'ai crée un variable x$="c:\fei01.txt", et je change With ActiveSheet.QueryTables.Add(Connection:="TEXT;x$", Destination _

et dans ce cas là, le problème de .Refresh BackgroundQuery:=False qui apparaïtre et j'arrive pas résoudre ce pb.

qq'un a eu ce genre de pb avant? ou bien comment est ce que je peux faire un prog pour importer les données avec une adresse variable.

merci par avance

cordialement

Bonjour,

met ta variable en dehors des " "...

With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & x$, Destination

Peut-être....

désole, j'ai essayé, mais ca march toujours pas.

re-,

Peux-tu mettre tout le code qui ne fonctionne pas, stp?

Es-tu sûr de l'orthographe du fichier, ainsi que du chemin?