Imprimer page web

[Ashaar]

Bonjour le forum,

j'aimerai imprimer une page web que j'active depuis Excel et je ne trouve pas les commandes pour le faire.

Ci-dessous le code qui permet d'ouvrir le lien :

Dim IE As InternetExplorer

Set IE = CreateObject('InternetExplorer.Application')
IE.Visible = True
IE.navigate 'http://www.mappy.fr'

quelqu'un sait il comment activer le bouton 'imprimer' d'Internet Explorer ?

Merci.

 

[MichelXld]

bonjour Ashaar

j'espere que cet exemple pourra t'aider

testé avec WinXP , Excel2002 & IE 6.0



Sub imprimerPageWeb()
Dim IE As InternetExplorer

Set IE = CreateObject('InternetExplorer.Application')
IE.Visible = True
IE.navigate 'http://www.mappy.fr'
Do Until IE.ReadyState = READYSTATE_COMPLETE
DoEvents
Loop

IE.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER
End Sub


bon apres midi
MichelXld

 

[Ashaar]

Bonjour Michel,

Impec.
Passe aussi sous Excel 97 (IE 5.5)

Merci pour ton aide.