Query cible une url dans une cellule et non dans le code

Signaler
-
 yuyu -
Bonjour le forum,

J'ai trouvé ce code qui importe une page en respectant la mise en page du site visé.

Ma demande serait que plutôt d'inscrire l'URL dans le code, la valeur de l'URl serait à récupérer dans la cellule A1 de la feuil1. Une idée ? Merci.

Sub URL_Static_Query()


With ActiveSheet.QueryTables.Add(Connection:= _
"URL;https://www.soccerstats.com/pmatch.asp?league=iceland&stats=71-9-5-2021-hk-kopavogur-vikingur-r.", _
Destination:=Range("a3"))

.BackgroundQuery = True
.TablesOnlyFromHTML = True
.Refresh BackgroundQuery:=False
.SaveData = True
End With
End Sub


Configuration: Windows / Chrome 91.0.4472.124

1 réponse

J'ai trouvé comment rediriger les résultats sur une autre feuille mais toujours pas comment changer la partie connexion. Quelqu'un aurait une piste ? Merci.

Sub URL_Static_Query()


With Sheets("Feuil3").QueryTables.Add(Connection:= _
"URL;https://www.soccerstats.com/pmatch.asp?league=iceland&stats=71-9-5-2021-hk-kopavogur-vikingur-r.", _
Destination:=Sheets("Feuil3").Range("A1"))

.BackgroundQuery = True
.TablesOnlyFromHTML = True
.Refresh BackgroundQuery:=False
.SaveData = True
End With
End Sub