Ouvrir un fichier Word

Cette fonction permet d'ouvrir un fichier Word.

L'argument "strFile" correspond au chemin complet et au nom du fichier que l'on souhaite ouvrir.

Function OpenFileWord(strFile As String)

Dim wdApp As Word.Application

Set wdApp = CreateObject("Word.Application")

With wdApp
    .Documents.Open strFile
    .Visible = True
End With

Set wdApp = Nothing

End Function

Auteur : Jessy SEMPERE