Recupérer code source page web
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:
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,
