Sub Excel_Word()
Dim oWdApp As Object 'Word.Application
Dim oWdDoc As Object 'Word.Document
'Lancer une instance Word
Set oWdApp = CreateObject("Word.Application")
'Ouvrir un nouveau document
Set oWdDoc = oWdApp.Documents.Open("C :\Mes documents\" & [I4] & ".doc")
'Rendre Word visible
oWdApp.Visible = True
End Sub