Option Explicit
Dim Wd As New Word.Application, Chemin As String, Fichier As String
Sub Ouvrir_frais_de_perso()
Chemin = ThisWorkbook.Path & "\"
Fichier = "Procédure de fin de mois relative aux Frais de Personnel.docx"
Wd.Visible = True
Wd.Documents.Open Chemin & Fichier
End Sub