Sub Open_Word_Doc()
Dim WordApp As Word.Application
' Declare une variable comme application Word
Dim WordDoc As Word.Document
' Declare une variable comme document Word
Set WordApp = CreateObject('word.application.9')
'Charge Word, Remplacer le 9 par le Numero de ta version
'Identique à celui des références !
Set WordDoc = WordApp.Documents.Open('D:\\MonDocumentWord.doc')
' determine le document à ouvrir
WordApp.Visible = True
'Rend Word visible
'en fin de code toujours remettre à 0 pour liberer de la mémoire
Set WordApp = Nothing
Set WordDoc = Nothing
End Sub