Bonjour a tous !

Je viens vous demander de l'aide car je galère un peu à mettre en place un publipostage d'Access vers Word, malgré le forum ou la faq ou autre ...

J'ai donc créé un document word "publipostage.doc" avec des champs de fusion.
j'ai une base access avec un formulaire avec plusieurs choix, etc.

Mon publipostage ce fait via la sélection dans une requête
(le code n'est qu'en phase test)

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
 
Dim Wapp As New Word.Application
Dim db As DAO.Database
Dim rs As DAO.Recordset
 
Set db = CurrentDb()
Set rs = db.OpenRecordset("Select libelleintitule, nom from intitule, personne " & _
            "Where intitule.numintitule = personne.numintitule")
 
With Wapp
    .Visible = True
 
    Do Until rs.EOF
        .Documents.Open ("d:\adresse\publipostage.doc")
        .ActiveDocument.MailMerge.Fields(1).Select
        .Selection = rs!libelleintitule
 
        .ActiveDocument.MailMerge.Fields(2).Select
        .Selection = rs!nom
 
        .ActiveDocument.PrintOut False
        .ActiveDocument.Close wdDoNotSaveChanges
 
        rs.MoveNext
        DoEvents
    Loop
 
End With
 
Set Wapp = Nothing

cela fonctionne relativement bien, mais mon problème c'est que :

1. L'utilisatrice aimerait visualiser tous les documents avant de tout imprimer, mais dans mon code, ca imprime un a un les documents sans pouvoir les visualiser.

2. J'ai jamais travaillé avec access et word ensemble, donc je connais pas trop les termes à utiliser


Dans l'absolue, ce que j'aimerai, c'est que, si j'ai 50 noms, que ca ouvre qu'un seul document word avec les 50 pages à la suite, pour pouvoir avoir un aperçu global avant d'imprimer !


Merci pour votre aide !!!