Discussion :

[HDU71000]

Bonjour,

je rencontre un souci. Je l'explique :

Je souhaite ouvrir un document word qui aille chercher dans une requête de ma base les enregistrements d'une requête. Ceci avant de faire un publipostage pour imprimer des étiquettes.

J'ai préparé le document pour la fusion, inséré les champs.

Si j'ouvre le document word depuis l'explorateur, la fusion est prête à démarrer, Word me demande bien si la requête est bonne.

Par contre, si j'ouvre le document Word depuis un form Access, le document la liaison avec la requête n'est pas faite...

Je suis obligé de refaire le publipostage de A à Z.

Je pense donc que le souci vient du code qui ouvre le doc, le voici :

Code :

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

1
2
3
4
5
6
 
Dim fichier_etiquettes As String
fichier_etiquettes = "c:\temp\etiquettes.docx"
Dim wApp As New Word.Application
wApp.Documents.Open (fichier_etiquettes)
wApp.Visible = True

Merci

[marot_r]

Bonjour.

Ici un article détaillé sur le sujet :

Automatic Mail Merge With VBA and Access
http://www.minnesotaithub.com/2015/1...ba-and-access/

A+

[HDU71000]

Bonjour et merci,

cependant, j'ai un souci, la fusion va bien se dérouler, mais j'ai un message en arrière plan (de Word), qui me demande de valider l'exécution de la requête.

On ne le voit pas, il faut jongler avec CTRL TAB pour arriver dessus.

Je pense qu'il manque un paramètre, mais je ne vois pas trop où.

Voici le 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
Dim objWord As Word.Document
Dim chemin_base As String
Dim document_fusion As String
 
chemin_base = CurrentProject.Path & "\"
document_fusion = chemin_base & "etiquettes_oits.docx" & """"
 
 
 
 
 
Set objWord = GetObject(document_fusion, "Word.Document")
' Rend Word visible important puisque la fusion se fait à l'écran.
objWord.Application.Visible = True
' Sélectionne .la base de données comme source de données pour la fusion
objWord.MailMerge.OpenDataSource _
        Name:=chemin_base & "oits.accdb", _
        LinkToSource:=True, _
        Connection:="Requete", _
        SQLStatement:="SELECT * FROM [r_mails_selection]"
' Exécution de la fusion.
 
 
objWord.MailMerge.Execute (False) 'je pensais que le souci venait de là, mais non
 
Set objWord = Nothing

Merci

[HDU71000]

Oupss,

c'est bon, c'est corrigé.

Par contre, à la fin de la fusion, le code :

Code :

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

Shell "explorer " & CurrentProject.Path & "\fusions\", vbNormalFocus 'on ouvre le répertoire

j'aimerais ouvrir non pas le répertoire, mais le doc Word directement.

Une idée ?

Merci

[HDU71000]

J'ouvre une nouvelle discussion.

Merci.