Public Sub Exemple()
Dim sFichier As String
Dim wordapp As Object
sFichier = "C:\Temp\Fonctionnement analyse OTD.docx"
Set wordapp = CreateObject("word.Application")
wordapp.Visible = True
wordapp.Documents.Open sFichier
Set wordapp = Nothing
End Sub