'Nécessite d'activer la référence 'Microsoft Publisher xx Object Library'
[INDENT] 'Dans l'éditeur de macros:
'Menu Outils
'Références
'Coche la ligne 'Microsoft Publisher xx Object Library'
'Clique sur le bouton OK pour valider
[/INDENT]
Dim AppMsPub As Publisher.Application
Dim DocMsPub As Publisher.Document
'Crée l'instance Publisher
Set AppMsPub = CreateObject("publisher.Application")
'Indiquez la valeur False pour masquer l'application Publisher.
AppMsPub.ActiveWindow.Visible = True
'Ouvre le document
Set DocMsPub = AppMsPub.Open("C:\Composition1.pub")