Comment Enregistrer Une page WEB En VBA sous excel

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:

---

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

Bonjour

Voila je crois que j'ai trouvé une éspece de solution. apres avoir ouvert la page desirée dans internet explorer je doit l'enregistrer avec l'API windows, c'est comme activer le menu Fichier -> enregistrer sous mais avec l'API.

Si non exit 'il quelque chose de plus simple?

Est ce que quelqu'un peut m'aider avec l'API c'est mon point faible en VB.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

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 ' Peut etre avec une l'API de windows ' comme... .... Document.Saveas("C:\MesPagesWeb\page1.htm") ' ou ............. Document.Saveas("C:\MesPagesWeb\page1.mht")   End Sub

---