Salut tout le monde

Voila j'ai un probléme je ne sais pas comment procéder pour enregistrer une page web en VBA sous excel ou toute autre application.

Je vous présente ce code que j'ai téléchargé de ce cite.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub DeclencherPageWeb()
'nécessite d'activer les références
'Microsoft HTML Objects Library et
'Microsoft Internet Controls
 
Dim IE As internetExplorer
Dim Doc As HTMLDocument
 
Set IE = New internetExplorer
IE.Navigate "http://www.developpez.com"
IE.Visible = True
 
Do Until IE.readyState = READYSTATE_COMPLETE
DoEvents
Loop
 
Set Doc = IE.Document
 
' à partir d'ici je veut du code pour enregistrer la page que j'ai ouvert
'......
' exemple  .... Document.Saveas("C:\MesPagesWeb\page1.htm")
' ou ............. Document.Saveas("C:\MesPagesWeb\page1.mht")
 
End Sub
Merci d'avance