fusion access vers word

bonsoir

j'essai de fusionner une requête d'access vers word

mon souci est de remplacer le chemin d'accès à la base et au document par un fonction de façon à toujours pouvoir retrouver la connexion

voici le code placé sur le bouton du formulaire

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub BePPSPSst_Click()
Dim objWord As Word.Document
Dim nf, répertoire, temp, base
répertoire = RépertoireAppli()
nf = répertoire & "BePPSPSst.doc"
base = répertoire & "Chantier multisites 16.07.mdb"
 
Set objWord = GetObject(répertoire & "BePPSPSst.doc", "Word.Document")
' Rend Word visible important puisque la fusion se fait à l'écran.
objWord.Application.Visible = True
' Sélectionne .la base de données chantier multisites comme source de données pour la fusion
objWord.MailMerge.OpenDataSource _
        Name:répertoire & "Chantier multisites 16.07.mdb", _
        LinkToSource:=True, _
        Connection:="query R_BePPSPSauSTparCourrier", _
        SQLStatement:="SELECT * FROM [R_BePPSPSauSTparCourrier]"
' Exécution de la fusion.
objWord.MailMerge.Execute
Set objWord = Nothing
 
 
End Sub

voici le code qui permet de trouver le chemin

Code:

1
2
3
4
5
Function RépertoireAppli()
  Dim bd As Database
  Set bd = CurrentDb
  RépertoireAppli = Left(bd.Name, InstrRev(bd.Name, "\"))
End Function

toutefois access me dit qu'il y a une erreur de syntaxe

voyez vous pourquoi ?

merci
isabelle

Le répertoire de la base :
Code:

1 2 RepertoireAppli = Application.CurrentProject.Path

merci pour ta réponse

repertoire appli() est une fonction que j'ai créé

je ne comprends pas comment mettre en place ta solution

en fait je voudrais ne pas avoir à lui repréciser le chemin et le nom de la base (puisque j'utilise toujours la base courante) mais qu'il s'adapte automatiquement si je change le nom de la base ou si je le change de répertoire

je n'ai pas su utiliser le current path en question ni lui dire qu'il devait utiliser la base courante

merci
isabelle