Bonjour,
Pour exemple, ci-dessous un exemple que j'utilise pour récupérer des informations de word dans Excel (coordonnées de l'utilisateur dans Outils-Options-Utilisateur). Le principe: j'ouvre Word, je lis les informations, puis je le referme.
Tu peux utiliser ce principe pour imprimer :
' Récupère dans Word les coordonnées du l'utilisateur courant
' ***********************************************************
Sub GetInfoWord()
Dim AppWord As Word.Application
Set AppWord = New Word.Application 'ouvre Word
AppWord.Visible = False 'masque Word
Nom = AppWord.UserName 'récupère les infos
Adresse = AppWord.UserAddress
Initiales = AppWord.UserInitials
AppWord.Application.Quit 'ferme Word
End Sub