Probleme de deplacement du basse lien au publipostage
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:
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:
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