Discussion :

[froggyaz]

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.

[DarkVader]

Essaie plutôt avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[froggyaz]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Fred.

[Godzestla]

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

[froggyaz]

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.