Réponse acceptée !
salut,
le forum est à utiliser
après avoir cherché !
Option Explicit
'
Private Sub Form_Load()
Me.WindowState = vbMaximized
Me.AutoRedraw = True
WebBrowser1.Navigate2 "http://www.google.fr"
End Sub
'
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
WebBrowser1.Visible = False
Me.Print WebBrowser1.Document.documentElement.innerHTML
End Sub
Coloration
syntaxique automatique [AFCK]
PCPT [AFCK]