Sub ouvrirDocWord_Impression()
'necesite d'activer la reference Microsoft Word xx.x Object Library
Dim appWrd As Word.Application
Dim docWord As Word.Document
Dim Fichier As String
Dim Langue As String
Select Case Sheets("Feuil1").Range("A1")
Case "DE": Langue = "allemand"
Case "FR": Langue = "français"
Case "E": Langue = "espagnol"
'etc...
Case Else
MsgBox "aucune langue ne correspond à " & Sheets("Feuil1").Range("A1")
Exit Sub
End Select
Fichier = "C:\document\" & Langue & ".doc"
Set appWrd = CreateObject("Word.Application") 'creation session Word
appWrd.Visible = False 'pour que word reste masqué pendant l'operation
Set docWord = appWrd.Documents.Open(Fichier)
docWord.PrintOut 'impression
docWord.Close 'fermer le document Word
appWrd.Quit 'fermer la seesionWord
End Sub