Discussion :

[Ledaf]

Bonjour à tous.

Dans le cadre de mon projet en entreprise, j'ai besoin de réaliser un outil sur Excel, et je bloque sur une macro.

En fait j'aimerai récolter des données d'internet, les copier et les coller sur ma feuille excel.
J'ai plusieurs données à récupérer donc plusieurs adresses url. Donc j'aimerai faire une boucle qui irait sur chaque adresse url.

Code :

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

1
2
3
With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://www.wunderground.com/history/station/07747/1998/1/22/MonthlyHistory.html?format=1" _
        , Destination:=Range("D22"))

J'utilise donc le code ci-dessus, mais au lieu d'indiquer l'adresse url (en rouge) j'aimerai y indiquer une cellule, où se trouve l'adresse, et donc ainsi l'incrémenter. Et c'est là que je bloque.

Avez vous une solution à me proposer?

En vous rermerciant...

[AlainTech]

En imaginant que la totalité de l'URL soit dans la cellule A1, essaie (je n'ai pas testé, je suppose que le code que tu nous montres fonctionne):

Code :

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

1
2
3
With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;" & Cells(1, 1).Value _
        , Destination:=Range("D22"))

[Ledaf]

Merci bcp ça marche nikel!!