Sujet Précédent Sujet Suivant

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

Fermé
yuyu - 13 juil. 2021 à 15:17
 yuyu - 15 juil. 2021 à 14:31
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
A voir également:

1 réponse

Réponse 1 / 1
yuyu
15 juil. 2021 à 14:31
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
0

Discussions similaires

problème reconnaissance url liste iptv avec smartiptv
jo56jo -
Farid43 -

8 réponses