Bonjour à tous,
Je ne sais pas si cette demande transgresse la charte sachant qu'aucune information confidentielle ou site Web n'est indiqué
J'aurais souhaité ajouter une instruction au code ci-dessous pour importer toutes les pages d'un site Web,
L'URL se termine à chaque fois par son numéro de page à savoir : page/2, page/3, page4/….etc
Je pensais ajouter une variable : Dim Pages As String,
URL = "https://Adresse_du_Site/blog/"& i
Et une boucle For i
Mais je ne sais pas trop comment faire et si cette partie du code est suffisante pour répondre à ma demande.
Merci d'avance pour vos remarques
Edit : j'arrive à récupérer toutes les pages et les informations souhaitées avec Power query mais les liens hyperliens ne fonctionnent pas
Alors qu'avec VBA, tous les liens Web sont conservés
Cordialement
Je ne sais pas si cette demande transgresse la charte sachant qu'aucune information confidentielle ou site Web n'est indiqué
J'aurais souhaité ajouter une instruction au code ci-dessous pour importer toutes les pages d'un site Web,
L'URL se termine à chaque fois par son numéro de page à savoir : page/2, page/3, page4/….etc
Je pensais ajouter une variable : Dim Pages As String,
URL = "https://Adresse_du_Site/blog/"& i
Et une boucle For i
Mais je ne sais pas trop comment faire et si cette partie du code est suffisante pour répondre à ma demande.
Merci d'avance pour vos remarques
Edit : j'arrive à récupérer toutes les pages et les informations souhaitées avec Power query mais les liens hyperliens ne fonctionnent pas
Alors qu'avec VBA, tous les liens Web sont conservés
Cordialement
VB:
Dim ws As Worksheet
Dim qt As QueryTable
Dim URL As String
URL = "https://Adresse_du_Site/blog/page/2"
Set ws = Worksheets.Add
Set qt = ws.QueryTables.Add(Connection:="URL;" & URL, Destination:=Range("A1"))
Dernière édition: