Bonjour,

Je suis un débutant de première classe en VBA. Je souhaiterais récupérer le code source HTML d'une page web dans une boite de texte ou une variable pour pouvoir le traiter par la suite.
Voila le code que j'ai trouvé et que j'ai essayé d'adapter à mon cas, mais sans succès...
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Dim contenuHTML As String
 
Private Sub UserForm1_Load()
    WebBrowser1.Navigate2 "http://www.google.com"
End Sub
 
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
    contenuHTML = WB.Document.documentElement.innerHTML
End Sub
 
Private Sub CommandButton1_Click()
 
End Sub
Je souhaiterais que la récupération du code source se fasse en cliquant sur le bouton CommandButton1.

Merci d'avance de votre aide,