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:

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
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
Merci