Discussion :

[newbiemac]

Bonjour,
j'ai un problème pour importer des données dans excel.

Si je donne la commande:

Code :

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

With ActiveSheet.QueryTables.Add(Connection:= "TEXT;C:\Documents and Settings\user\Desktop\9435.txt", Destination:=Range("A1"))

alors tout marche comme il faut.

Mais si je définie une variable avec les paramètres de connexion:

Code :

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

1
2
lieu = "Text;" & ActiveWorkbook.Path & "\" & Range("C12").Value & ".txt"
With ActiveSheet.QueryTables.Add(Connection:=lieu, Destination:=Range("B1"))

Il faut spécifier que le workbook est placé dans le même dossier que le fichier à ouvrir et que la numéro de fichier est lu dans une case Excel.

Merci pour vous commentaires.

[Godzestla]

Bonjour,

as tu vérifié en debug la valeur de

lieu

pour être ceratin que c'est ce que tu veux ?

[newbiemac]

Salut,

yep je crache cette valeur dans une cellule pour vérifier.
À l'exception des guillemets c'est exactement la même chose.
si j'ajoute les guillements ça ne marche pas non plus.
Je ne comprend pas ce truc c pourquoi que je me dirige vers vous.

[deniooo]

Bonjour à tous,
Dans le doute essaye un truc du genre :

Code :

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

With ActiveSheet.QueryTables.Add(Connection:="" & lieu & "", Destination:=Range("B1"))

C'est béte mais souvent ça fonctionne