Fonction VBA : html_code_page

La fonction VBA html_code_page récupère le code HTML d'une page Web (elle renvoie la valeur -1 en cas d'erreur).

Utilisation :

html_code_page(lien)


Exemple d'utilisation

Récupération du code HTML de la page d'accueil du forum html_code_page("https://forum.excel-pratique.com") :

Sub exemple()

    code_html = html_code_page("https://forum.excel-pratique.com")
   
    'Affichage du début du code HTML dans une MsgBox pour cet exemple
     MsgBox code_html

End Sub

Pour que cela fonctionne correctement, entrez le lien complet (avec "http://" ou "https://" au début du lien).

msgbox-vba-html - html-code-page
Si vous affichez le résultat dans une MsgBox ou dans une cellule du classeur, il est normal que le code HTML ne soit pas affiché au complet (le nombre de caractères autorisés dans une MsgBox et dans une cellule est limité).

Copie du code HTML dans les cellules

Voici un autre exemple d'utilisation de cette fonction qui commence ici par diviser le code HTML par ligne et copie ensuite chaque ligne dans une cellule à la suite :

Sub exemple()
   
    Application.ScreenUpdating = False
   
    code_html = html_code_page("https://forum.excel-pratique.com")
    code_html = Split(code_html, Chr(10)) 'Division par ligne
   
    For i = 0 To UBound(code_html)
        Cells(i + 1, 1) = code_html(i)
    Next

End Sub
excel-code-html-site-web - html-code-page

Remarque : cette fonction nécessite l'installation du pack de fonctions XLP (un add-in gratuit pour Excel qui ajoute 77 nouvelles fonctions).