Bonjour

J'ai crée il y plusieurs mois un document word qui devait aller chercher des donnée dans access , grasse au publipostage, avec une basse acces a un endroit déterminer sur le réseau, j'utilise un bouton pour faire le publipostage
"pas de problème "

Aujourd'hui, j'ai besoin de change de place cette base. Le probleme le chemin de la base n'est plus le même , du coup je suis dans l'obligation de refaire les liens dans Word .

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Commande83_Click()
'Démarrer Word
Set wdapp = CreateObject("Word.application")
With wdapp
       .Visible = True
      'ouvrir le document
      .Documents.Open "Q:\PLANS PREVENTION\lettre Fournisseur.doc"
      'Diriger le publipostage vers un nouveau document
     .ActiveDocument.MailMerge.Execute
End With
'fermer et libérer les objets
Set wdapp = Nothing
End Sub

Le code access modifier , si je modifie le chemin de la base et du repertoire documents ,ils sont bien retrouve .Par contre le probleme est que word n'ouvre a nouveau la base Access a l'ancien endroit


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
Private Sub Commande83_Click()
'Démarrer Word
Set wdapp = CreateObject("Word.application")
With wdapp
       .Visible = True
chemin = CurrentProject.path
path = chemin & "\Document\lettre Fournisseur.doc"
      'ouvrir le document
      .Documents.Open path
      'Diriger le publipostage vers un nouveau document
     .ActiveDocument.MailMerge.Execute
End With
'fermer et libérer les objets
Set wdapp = Nothing
End Sub
Existe t-il une solution pour évite de refaire le document Word et d'évite qu'il soit jumelle a une base qui ce trouve a un endroit ?
Pour info je n'ai pas qu'un document mais une dizaines .

Merci d'avance