fifounet
XLDnaute Occasionnel
Bonsoir
Je cherche à enregistrer une page web (.htm) à l'aide d'une macro, celle ci m'ouvre une boite de dialogue pour indiquer le répertoire ou l'enregistrer. Est ce possible d'indiquer directement le chemin dans la macro?
Voici le code que j'utilise:
Public Sub page_internet()
Dim adresse As String
Dim IE As InternetExplorer
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = False
IE.Silent = True
adresse = "http://toto.com/titi/eq?numero=328"
IE.navigate adresse
Do Until IE.ReadyState = READYSTATE_COMPLETE
DoEvents
Loop 'attend la fin du chargement
IE.ExecWB OLECMDID_SAVEAS, OLECMDEXECOPT_PROMPTUSER
IE.Quit
Set IE = Nothing
End Sub
D'avance merci.
Je cherche à enregistrer une page web (.htm) à l'aide d'une macro, celle ci m'ouvre une boite de dialogue pour indiquer le répertoire ou l'enregistrer. Est ce possible d'indiquer directement le chemin dans la macro?
Voici le code que j'utilise:
Public Sub page_internet()
Dim adresse As String
Dim IE As InternetExplorer
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = False
IE.Silent = True
adresse = "http://toto.com/titi/eq?numero=328"
IE.navigate adresse
Do Until IE.ReadyState = READYSTATE_COMPLETE
DoEvents
Loop 'attend la fin du chargement
IE.ExecWB OLECMDID_SAVEAS, OLECMDEXECOPT_PROMPTUSER
IE.Quit
Set IE = Nothing
End Sub
D'avance merci.