Private Sub CommandButton1_Click()
    Dim obj As Word.Application ' le programme
    Dim docNew   As Word.Document ' le document
    
    Set obj = New Word.Application ' ouverture du programme word
    obj.Visible = True ' affichage du programme
    
    Set docNew = obj.Documents.Open("c:\mondocument.doc")
    
    Set docNew = Nothing ' libère de l'espace
    Set obj = Nothing
End Sub