Private Sub CommandButton1_Click()
Dim Fichier As String
Dim WordApp As Object, WordDoc As Object
Unload Me
Set WordApp = CreateObject("word.Application")
WordApp.documents.Open "D:\CURRICULUM VITAE.docx"
WordApp.Visible = True
Set WordDoc = Nothing
Set WordApp = Nothing
End Sub