QueryTables.Add- Passage de données de type Range

[elgringo123456]

Bonjour,

En débutant sur Visual Basic, je suis confronté au problème suivant :
Je souhaite faire passer une variable de type Range.

Ex :
Dim CellsNumber As Integer
Dim LocationCell As String

Set myRange = Sheets(1).Range("A:A")
CellsNumber = Application.WorksheetFunction.CountA(myRange)
LocationCell = "A" & CellsNumber
Range(LocationCell).Select

With Sheets(1).QueryTables.Add(Connection:= _
"TEXT;" & "C:\Temp\ & "Toto.txt", Destination:=Range(LocationCell).Select)

L'utilisation de "Range(LocationCell).Select ne fonctionne pas.
Par contre l'utilisation de "TEXT;" & "C:\Temp\ & "Toto.txt", Destination:=Range("A2")) fonctionne.

Comment dois-je utiliser cette fonction correctement ?

Merci d'avance de votre aide et de votre indulgence.😕

 

[matthieu33]

Re : QueryTables.Add- Passage de données de type Range

Bonsoir elgringo123456,

Pourrais-tu essayer le code suivant ?

With Sheets(1).QueryTables.Add(Connection:= _
"TEXT;" & "C:\Temp\[COLOR="Red"]"[/COLOR] & "Toto.txt", Destination:=Range(LocationCell))

J'ai enlevé le ".select" après Range(LocationCell) et ajouter " après Temp\

@+

 

[elgringo123456]

Re : QueryTables.Add- Passage de données de type Range

Merci beaucoup de votre aide et avec qu'elle réactivité.

🙂
😀