Imprimer page web

Ashaar · 27 Mai 2005

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 · 27 Mai 2005

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 · 30 Mai 2005

Bonjour Michel,

Impec.
Passe aussi sous Excel 97 (IE 5.5)

Merci pour ton aide.

Imprimer page web

Ashaar

XLDnaute Junior

MichelXld

XLDnaute Barbatruc

Ashaar

XLDnaute Junior

Discussions similaires