Rebonjour, je reviens à la charge, décidément aujourd'hui c'est pas simple

J'ai donc une petite fonction qui est censée me permettre de télécharger des données provenant d'une page web. Le seul soucis c'est que je dois DL des données de plusieurs page web, donc je pense procéder de façon classique en entrant mes liens sur une feuille du classeur, et en les faisant défiler.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub informations()
 
Dim dlname As Hyperlink
Dim ws As Worksheet
Dim y As Variant
 
ThisWorkbook.Activate
 
dlname = worksheets("Echantillon").Cells(11, 1)
 
 
 fnFondamentaux (dlname)
 
 
End Sub
Avec la function


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
Workbooks.Add.Activate
ActiveWorkbook.worksheets.Add
    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;dlname", Destination:=Range( _
        "$A$1"))
Selon la façon dont je code le truc ( en prenant le lien présent dans mon classeur, et en le dim avec string ou hyperlink ), VBA me dit que mon lien est soit vide, soit que refresh backgrounquery ne reconnait pas le chemin de l'adresse.

Des suggestions ?

Merci d'avance.