Discussion :

[BEMI]

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

[BEMI]

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 :

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
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