Fonction VBA : htmlCodePage

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

Utilisation :

htmlCodePage(lien)


Exemple d'utilisation

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

Sub exemple()

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

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
   
    codeHtml = htmlCodePage("https://forum.excel-pratique.com")
    codeHtml = Split(codeHtml, Chr(10)) 'Division par ligne
   
    For i = 0 To UBound(codeHtml)
        Cells(i + 1, 1) = codeHtml(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 87 nouvelles fonctions).