Bonjour,
J'ai un probléme avec un code VB que je viens de creer. J'ai créer un publipostage sous word que j'ai associé avec une requête de ma base Access.
Je souhaite que lorsque j'ai sélectionné un matricule dans un formulaire et que je clique sur un bouton le fichier word correspondant à la personne s'ouvre j'ai alors tapé ce code:
Ce dernier m'ouvre bien word mais sans le fichier souhaité et m'affiche aucun message d'erreur, comme je ne connais pas grand chose en VB je sais pas quoi faire alors si vous avez une idée dites la moi SVP
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22 Dim chemin As String Dim Path As String chemin = Application.CurrentProject.Path Path = Left(chemin, Len(chemin) - 11) + "Récépissé PDA 2005-11-23test.doc" Function OpenFileWord(Path As String) Dim wdApp As Word.Application Set wdApp = CreateObject("Word.Application") With wdApp .Documents.Open Path .Visible = True stLinkCriteria = "[Matricule]=" & "'" & Me![Matricule] & "'" DoCmd.OpenForm stDocName, , , stLinkCriteria End With Set wdApp = Nothing End Function
Merci
Partager