Access
jaydailfr
Messages postés
123
Statut
Membre
-
jaydailfr Messages postés 123 Statut Membre -
jaydailfr Messages postés 123 Statut Membre -
Bonjour,
strChemin = CurrentProject.Path
Set wApp = New Word.Application
wApp.Visible = True 'permet d'afficher à l'écran le transfert de texte
'ouverture du document Word
wApp.Documents.Add Template:=strChemin & "\contrat.dot", NewTemplate:=False, DocumentType:=0
stSQL01 = "Select * from tblcontrat where idcontrat =" & idctrt
mais ca ne marche pas
strChemin = CurrentProject.Path
Set wApp = New Word.Application
wApp.Visible = True 'permet d'afficher à l'écran le transfert de texte
'ouverture du document Word
wApp.Documents.Add Template:=strChemin & "\contrat.dot", NewTemplate:=False, DocumentType:=0
stSQL01 = "Select * from tblcontrat where idcontrat =" & idctrt
mais ca ne marche pas
