Lire le fichier source page web par VBA

Bonjour,

Il fut un temps j'utilisais Konfabulator pour programmer la récupération d'informations sur des pages internet. Mais ce producteur de widget ne fonctionne plus a priori sur win 8 et win 10.

Et puis je me suis davantage investi dans le VBA depuis.

Ma question est donc : comment peut-on récupérer le fichier source complet d'un page internet via excel et VBA ?

Bonjour,

menu fichier , ouvrir puis saisir l'URl de ton site...

Merci, mais cela ne fonctionne pas, cela ne me donne pas le code source de la page !

Un autre tuyau ?

bonjour,

une proposition

Sub queryurl()

    Set ie = CreateObject("InternetExplorer.application")

    qurl = "www.google.com"

    ie.navigate qurl
    t = Timer
    timeout = False
    'On Error GoTo terreur
    Do
        DoEvents
    Loop Until ie.readyState = 4
    Set doc = ie.document
    r = doc.body.innerHTML
  'r contient le code de la page
End Sub

Bonjour Steelson, h2so4

Si cela peut vous intéresser, code trouvé sur Internet et adapté à mon fichier pour extraction code HTML

Si mieux je suis preneur

Un mot GENIAL !

Par contre je n'ai pas la totalité du code, je vais regarder de plus près si cela me suffit ! et si je peux rallonger.

Je vais aussi regarder le code d'acide sulfurique ... je pense que je vais m'amuser !

Un grand merci encore à tous les 2 ! je mettrai résolu quand j'aurai réussi à le faire fonctionner en boucle sur les sites dont je veux aspirer les données.

Yeah ! on peut en effet débloquer la limitation et obtenir toute la page.

Je suppose que l'astuce de passer par un userform permet justement de récupérer l'ensemble du code source ... à voir.

Pour moi, cela me permet ensuite d'y puiser les informations pertinentes !

A l'inverse, j'ai un soucis avec le code ,de H2SO4 :

Sub queryurl()

    Set ie = CreateObject("InternetExplorer.application")

    qurl = "http://forum.excel-pratique.com/excel/lire-le-fichier-source-page-web-par-vba-t74694.html"

    ie.navigate qurl
    t = Timer
    timeout = False
    'On Error GoTo terreur
    Do

    DoEvents
    Loop Until ie.readyState = 4
    Set doc = ie.document

    montexte = Split(doc.body.innerHTML, vbCrLf)

    For Maligne = 0 To UBound(montexte)
        Range("A" & Maligne + 1).Value = montexte(Maligne)
    Next Maligne

End Sub

car je n'arrive pas à faire fonctionner le split !

Je ferme le post.

Superbe outil trouvé par et1000lio

Le problème aujourd'hui, c'est qu'un site web n'affiche totalement son contenu que si on scroll vers le bas. Il charge en dynamique le contenu manquant. Et donc la méthode est in fine insuffisante.

Cela n'enlçve rien à l'outil que je vais conserver précieusement !

Pour le reste, je vais voir avec AutoIt peut-être...