Discussion :

[tom331jm]

Bonjour,

Je me permets de vous demander de l'aide car je suis coincée depuis plusieurs jours ...

J'ai développé une base de données intitulée "Etudes.accdb".

A chaque nouvelle étude reçue, je suis obligée de copier/coller la BDD "Etudes.accdb" dans un répertoire spécifique (répertoire différent pour chaque étude), en modifiant son nom : "Etudes_NomClient.accdb". Je remplis ensuite le formulaire "FDA_Brchts" présent dans cette BDD.

Sur le bouton "Courriers" du formulaire FDA_Brchts, j'ai placé le code ci-dessous (me permettant d'ouvrir un document Word pour du publipostage) :

Code :

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

1
2
3
4
5
6
7
8
Private Sub Courriers_Click()
DoCmd.Close acForm, "FDA_Brchts"
Dim strFichier As String
Dim objWord As New Word.Application
strFichier = "C:\Users\Desktop\Documents principaux\Courriers.docx"
objWord.Documents.Open strFichier
objWord.Visible = True
End Sub

Je pensais que les données saisies dans le formulaire seraient directement envoyées dans le fichier "Courriers.docx" mais Word me demande de choisir la source de données ...

Je pense que ce problème est lié au fait que ma BDD a été déplacée dans un nouveau répertoire.

Etant donné que le fichier Word (qui sert au publipostage) a toujours la même place (sur C:\Users\Desktop), comment pourrais-je faire pour que les données saisies dans le formulaire soient directement envoyées dans ce fichier Word, sans devoir, à chaque fois, rechercher la source de données ?

En espérant avoir été suffisamment claire et en vous remerciant d'avance pour votre réponse !

Ingrid

[User]

Bonjour,

En complément, pouvez-vous nous indiquer le fichier (type de fichier et chemin) qui sert de source de données pour votre document de fusion "Courriers.docx" ?

Merci bien !

[tom331jm]

Bonjour,

Mon document de fusion "Courriers.docx" est basé sur la requête "R_Courriers" contenue dans ma BDD "Etudes.accdb".

Voici le chemin de ma BDD "vierge" ("Etudes.accdb") : \\serveur\Volume_1\CORRESPONDANCES

Voici le chemin de la copie de la BDD (copie renommée "Etudes_NomClient.accdb") : \\serveur\Volume_1\ETUDES - 2019\TOULOUSE\CORRESPONDANCES

Pour chaque nouvelle étude, je copie/colle la BDD vierge, en ajoutant le nom du client après "Etudes", et je déplace cette nouvelle BDD dans un répertoire particulier, en fonction de la commune.

Voici, enfin, le chemin de mon document de fusion : C:\Users\Desktop\Documents principaux\Courriers.docx

Vous faut-il d'autres renseignements ?

Merci d'avance pour votre aide !

Ingrid

[User]

Bonjour,

Il vaudrait mieux conserver l'ensemble des données dans une seule base et ajouter un champ "nomClient" dans la table correspondances qui servirait de filtre dans la requêtes correspondances.

Sinon, vous pourriez utiliser une commande de ce style pour mettre à jour dynamiquement le lien entre le document et la requête :

Code :

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

1
2
objWord.MailMerge.OpenDataSource _
		Name:=Currentproject.Path & "\Etudes_NomClient.accdb", _...

https://heureuxoli.developpez.com/pu...tage/#LI-B-5-e

Cdlt,

[tom331jm]

Bonjour,

Merci beaucoup pour avoir pris le temps de me répondre.

Je vais essayer la commande que vous m'avez indiquée et je reviendrai vers vous si jamais je n'y parviens pas.

Très bonne journée.

[User]

Entendu, bon courage !

[tom331jm]

Bonjour,

Tout d'abord, merci beaucoup pour votre aide car cela fonctionne à présent (grâce à votre commande qui met à jour dynamiquement le lien entre le document et la requête).

A présent, il ne reste qu'un petit problème ... lorsque je lance le publipostage pour la seconde fois, l'erreur d'exécution 462 s'affiche systématiquement ("Le serveur distant n'existe pas ou n'est pas dispo").

J'ai essayé de modifier le code grâce aux éléments trouvés sur le forum à ce sujet mais je n'y suis pas arrivée ...

Pourriez-vous m'aider ?

En vous remerciant d'avance.

Bien cordialement,

Ingrid

PS : voici mon 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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
Sub MergeItCourriers()
 
Dim objWord As Word.Document
Dim iR As Integer
Dim I As Integer
Dim DocName As String
Dim fso, f
 
Set objWord = GetObject("\\serveur\ACCESS\Documents principaux\Courriers.docx", "Word.Document")
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.CreateFolder(CurrentProject.Path & "\Courriers")
 
objWord.Application.Visible = True
 
objWord.MailMerge.OpenDataSource _
        Name:=CurrentProject.Path & "\FDA_Brchts.accdb", _
        LinkToSource:=True, _
        Connection:="R_Courriers", _
        SQLStatement:="SELECT * FROM [R_Courriers]"
 
iR = objWord.MailMerge.DataSource.RecordCount
Debug.Print iR
For I = 1 To iR
    With objWord.MailMerge
        .DataSource.FirstRecord = I
        .DataSource.LastRecord = I
        .Destination = wdSendToNewDocument
        .Execute
        .DataSource.ActiveRecord = I
         DocName = "COUR " & .DataSource.DataFields(1).Value
         DocName = DocName & " - " & .DataSource.DataFields(6).Value
         DocName = DocName & " " & .DataSource.DataFields(7).Value
         Debug.Print DocName; I
    End With
 
    With objWord.ActiveDocument
        .SaveAs CurrentProject.Path & "\Courriers\" & DocName & ".doc"
        .Close
    End With
Next I
 
objWord.Close
Set objWord = Nothing
 
End Sub

[micniv]

bonjour,
lorsqu'on relance une 2ème fois le publipostage, il faudrait veiller à ce que le nom du document produit soit différent du précédent.
Le plus simple: chronodater le nom du document à la seconde près.

A voir
CDLT,

[User]

Bonjour,

De mémoire ça se passe beaucoup mieux quand la source de données est dans un fichier Excel, il y a moins de conflits.

Car quand c'est avec Access, la base est ouverte 2 fois.

Ce que je te proposerais c'est de transférer ta requête dans un fichier excel "courriers.xlsx" qui servirait de source à ton document :

Code :

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

1
2
3
4
5
6
7
8
...
 
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "R_Courriers", CurrentProject.Path & "\Courriers\Courriers.xlsx", True, "Courriers"
 
objWord.MailMerge.OpenDataSource _
        Name:=CurrentProject.Path & "\Courriers\Courriers.xlsx"
 
...

Je te joins un dossier avec la base de publipostage Access, contenant le code et un dossier courriers à côté contenant le document et la source Excel.

A tester...

Cdlt,

[tom331jm]

Bonjour,

Merci beaucoup pour votre réponse.

Je n'ai pas très bien compris ... faut-il créer le fichier excel avant de lancer le publipostage ? Ou se crée-t'il tout seul ?

A quoi correspond exactement "Courriers" à la fin de la ligne commençant par "DoCmd.TransferSpreadsheet" ?

En vous remerciant d'avance.

Bien cordialement,

Ingrid

[User]

Bonjour,

Le fichier excel courriers.xlsx se crée automatiquement à partir de votre requête r_courriers.

Il se crée dans votre dossier courriers situé à côté de la base.

Dans le code que je vous ai donné, il faut remplacer mon fichier docx par votre fichier docx sur le serveur en indiquant son chemin comme vous l'aviez fait auparavant.

Cdlt,

[tom331jm]

Bonjour et merci beaucoup pour votre réponse.

Je vais donc essayer de transférer la requête dans un fichier excel.

Si cela fonctionne, je reviendrai pour indiquer que le problème a été résolu .

Mille mercis pour avoir pris le temps de me répondre.

[User]

Entendu

Les éléments à modifier dans votre code sont donc principalement ceux-ci :

Code :

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

1
2
3
4
5
6
7
8
...
 
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "R_Courriers", CurrentProject.Path & "\Courriers\Courriers.xlsx", True, "Courriers"
 
objWord.MailMerge.OpenDataSource _
        Name:=CurrentProject.Path & "\Courriers\Courriers.xlsx"
 
...

Et bien sûr vous devez avoir le dossier "Courriers" à côté de la base.

Cdlt,

[Pierre Fauconnier]

Salut.

Perso, je n'ai jamais rencontré de problèmes entre Access et word pour le publipostage. Le seul intérêt que je verrais à la chose serait d'extraire dans Excel en alimentant toujours le même fichier, de manière à ne pas devoir toucher au publipostage qui utiliserait donc toujours une source placée au même endroit.

Mais le problème vient pour moi de ce que User a souligné dans un de ses posts. Quelle est l'utilité de multiplier les bases Access, ce qui oblige à manipuler par code la source du publipostage alors qu'il serait si simple de tout mettre dans UNE base de données et de filtrer le client choisi (soit dans une requête Access avant d'ouvrir le publipostage, soit dans word).