Sub imprimerLiens_DocWord()
'necessite d'activer la reference Microsoft Word xx.x Object Library
Dim WordApp As Word.Application
Dim WordDoc As Word.document
Dim Lien As Hyperlink
Dim leNom As String
Application.ScreenUpdating = False
'boucle sur les liens de la feuille active
For Each Lien In ActiveSheet.Hyperlinks
leNom = Range(Lien.Range.Address).Hyperlinks(1).Address
'verifie si le lien est un document Word
If Right(leNom, 4) = '.doc' Then
Set WordApp = New Word.Application 'ouverture session Word
WordApp.Visible = False
Set WordDoc = WordApp.Documents.Open(leNom) 'ouverture document Word
WordDoc.PrintOut 'impression
WordDoc.Close 'fermeture document
WordApp.Quit ' fermeture session word
End If
Next
Application.ScreenUpdating = True
End Sub