Réponse acceptée !
j ai trouvé mais maintenant je voudrais envoyer le fichier par email;
créer un form avec dedans un control webbrowser puis :
Private Sub Form_Load()
WebBrowser1.Navigate "
[ Lien ]"
WebBrowser1.Visible = True
'Wait until page is loaded
Do Until Not WebBrowser1.Busy
DoEvents
Loop
lg = WebBrowser1.Document.documentElement.innerHTML
Open ("D:\VB\vb_benoit\sauve_html.html") For Output As #1
Print #1, lg
Close #1
voilà