adresse de source variable

Bonjour,

Je voudrais importer des donnees sous format Text vers une cellule excel. J'ai le morceau de code suivant qui fonctionne lorsque la source est definie d'avance et fixe (comme surligne en rouge ci-dessous).
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 |blah |blah |blah Sheets("Sheet2").Select With ActiveSheet.QueryTables.Add(Connection:= _ "TEXT;J:\Chemistry\NMR\downloaded nmrs\2009\Jan 2009\Jan19-2009\10\pdata\1\title" _ , Destination:=Range("H" & cellnumber)) .Name = "title_1" '.FieldNames = True .Refresh BackgroundQuery:=False |blah |blah |blah
Le probleme est que je voudrais une adresse de source variable.
Ce que j'ai fait jsuqu'a la c'est le code suivant:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Dim folders As String folders = Range("B1").Value ' Range ("B1"). Value provient d'un nid de boucle pour la variabilite et est du format "J:\Chemistry\NMR\downloaded nmrs\2009\Jan 2009\Jan19-2009\10\pdata\1\title" Sheets("Sheet2").Select With ActiveSheet.QueryTables.Add(Connection:= _ "TEXT;folders" _ , Destination:=Range("H" & cellnumber)) .Name = "title_1" '.FieldNames = True .Refresh BackgroundQuery:=False
mais cela ne semble pas fonctionne correctement (j'ai integre un check-point, genre Msgbox = (folders) pour verifier si la variable folders avait la bonne attribution, et ca semble etre le cas).
Votre aide serait grandement appreciee.

Merci d'avance.

Fred.

Essaie plutôt avec

Code:

1
2
3
With WorkSheets("Sheet2").QueryTables.Add(Connection:= _
                "TEXT;" & folders _
        , Destination ...

Merci DarkVader pour ta reponse mais malheureusement ca n'a toujours pas resolu mon probleme
voici le nouveau code que j'ai ecrit, peut-etre y trouveras-tu une erreur:
Code:

1 2 3 4 5 6 Sheets("Sheet2").Select With ActiveSheet.QueryTables.Add(Connection:= _ "TEXT;& folders" _ , Destination:=Range("C22")) .Name = "title"
Fred.

Tu connais Aflelou ? Il vends des bonnes lunettes.
Grâce à elles on recopie juste 4 malheureuses lignes de code !!!! :arf:

Effectivement. Moi-meme, j'aurai hesite a prendre la peine de me renvoyer une reponse.
Ca fonctionne correctement maintenant. Merci donc a DarkVader pour la technique et Godzestla pour le rappel de principe de base.

Fred.