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).
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
Remarque : cette fonction nécessite l'installation du pack de fonctions XLP (un add-in gratuit pour Excel qui ajoute 81 nouvelles fonctions).