Discussion :

[christ-94]

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

[Domi2]

Bonjour,

Je crains que tu ne sois obligé de redéfinir le chemin dans tous tes documents.

J'avais été confronté au même problème avec une application (dont je ne m'occupe plus).

Afin d'éviter à l'avenir ce genre de problème, j'avais changé la façon de faire le publipostage, en n'utilisant plus de documents de fusion, mais un document simple avec des signets et un recordset.

Domi2

[christ-94]

Merci pour la reponse

Donc je viens de faire un test avec la methode des signets effectivement plus de probleme par contre je ne peux pas mettre plusieurs fois le meme champs "signet" dans la feuille word

Exemple : le champ nom est utilise plusieurs fois dans la meme lettre une fois dans les coordonnée et une fois dans la signature
avec des signets impossible de faire plusieurs fois le meme champ

Exemple de code avec le champ nom utilser 2 fois pour des signets differents
cette methode crée une erreur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 .ActiveDocument.Bookmarks("Nom").Range.Text = rs.Fields("Nom")
 .ActiveDocument.Bookmarks("Nom").Range.Text = rs.Fields("Nom2")

[Domi2]

Re,

Donc je viens de faire un test avec la methode des signets effectivement plus de probleme par contre je ne peux pas mettre plusieurs fois le meme champs "signet" dans la feuille word

C'est normal. Il faut utiliser une boucle...

De plus

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
.ActiveDocument.Bookmarks("Nom").Range.Text = rs.Fields("Nom")
.ActiveDocument.Bookmarks("Nom2").Range.Text = rs.Fields("Nom")

devrait mieux fonctionner (pas testé)...


Je n'ai plus mon code (et pour cause), mais j'avais utilisé le code que tu trouveras à cette adresse.

Domi2