Importation page web, hyperlink
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:
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:
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.
