boutton qui ouvert word apartir access dans la form

[kamel2711]

                                            

Private Sub Commande40_Click()
Dim choixDoc As String
 
choixDoc = "C:\Users\INFO-SEIF\Desktop\education.doc"
  غير المسار    الخاص بالوورد لديك    
Dim wrdApp As Object
Dim wrdDoc As Object
 
Set wrdApp = CreateObject("Word.Application")
 
Set wrdDoc = wrdApp.Documents.Open(choixDoc)
wrdApp.Visible = True
Set wrdApp = Nothing
Set wrdDoc = Nothing
End Sub