Private Sub CommandButton1_Click()
Dim appWord As Object, docWord As Object
Dim pathDocWord As String
'récupérer le fichier Word à ouvrir
pathDocWord = Application.GetOpenFilename("Document Word (*.doc ; *.docx), *.doc; *.docx")
'si aucun fichier n'a été sélectionné, quitter la macro
If pathDocWord = "Faux" Then Exit Sub
'créer une application Word
Set appWord = CreateObject("Word.Application")
'afficher l'application Word
"Application.WindowState = xlMinimized"
appWord.Visible = True
'ouvrir le document Word
Set docWord = appWord.Documents.Open(pathDocWord)
End Sub