Query cible une url dans une cellule et non dans le code
yuyu
-
yuyu -
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.
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
A voir également:
- Query cible une url dans une cellule et non dans le code
- Code ascii - Guide
- Url - Guide
- Aller à la ligne dans une cellule excel - Guide
- Comment déverrouiller un téléphone quand on a oublié le code - Guide
- Code puk bloqué - Guide
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