Bonjour,

je suis en galère avec un publipostage que je lance depuis Access:

Quand je le lance, MailMerge créé une (voire plusieurs, parfois) instance(s) d'access.

J'aimerais pouvoir fermer cette instance vide qui ne sert à rien, sauf à embrouiller l'utilisateur final...

Voilà un bout de code (J'ai adapté ce que j'ai récupéré ici)

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
With wdApp
        ' Word est visible pendant les tests
        .Visible = True
 
        ' Ouvrir la lettre type
        .Documents.Open DOC_WORD
 
        ' Lier la lettre type à la source de données Access
        .ActiveDocument.MailMerge.OpenDataSource _
            Name:=CurrentProject.FullName, _
            SQLStatement:="SELECT * FROM [rContratCDDSaison]"
 
        ' La fusion doit se faire dans un nouveau document
        .ActiveDocument.MailMerge.Destination = wdSendToNewDocument
 
        ' Exécuter la fusion
        .ActiveDocument.MailMerge.Execute
        ' Redonner le focus à la lettre type et fermer sans enregistrer
        .Documents.Open DOC_WORD
 
        .ActiveDocument.Close wdDoNotSaveChanges
 
    End With