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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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.