Publipostage : Enregistrement du fichier résultat avant impression

**MarcelG** · 03/04/2014, 12h16

Bonjour le Forum,

Ma source.
Publipostage Word ExcelPAR Silkyroad/

Il n'y a qu'un seul enregistrement dans ma base de données source.
J'aurais souhaité avant l'impression du fichier résultat, l'enregistrer.

J'ai récupéré sur la toile les différentes occurences de la méthode Destination (également disponible sur l'aide en ligne)

'wdSendToEmail : Send results to e-mail recipient.
'wdSendToFax : Send results to fax recipient.
'wdSendToNewDocument : Send results to a new Word document.
'wdSendToPrinter : Send results to a printer.

J'ai donc codé

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
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
Public Sub LiaisonWord(nombase As String, typedoc As String)
 
'SILKYROAD
'http://silkyroad.developpez.com/Excel/PublipostageWordExcel/
 
'Nécessite d'activer la référence "Microsoft Word xx.x Object Library"
 
'nombase = fichier Excel source
'typedoc = 757B OU 990I ou Cerfa
 
'Occurences de MailMerge.Destination =
'wdSendToEmail : Send results to e-mail recipient.
'wdSendToFax : Send results to fax recipient.
'wdSendToNewDocument : Send results to a new Word document.
'wdSendToPrinter : Send results to a printer.
 
Dim DocWord As Word.Document
Dim AppWord As Word.Application
 
Application.ScreenUpdating = False
Set AppWord = New Word.Application
'Développement
'AppWord.Visible = True
AppWord.Visible = False
 
'Ouverture du document principal Word
Set DocWord = AppWord.Documents.Open("monfichiersource.doc")
 
With DocWord.MailMerge
        'IMPORTANT : redéfinir si besoin Champ_Word, appelé ci-dessous.
        'Ouvre la base de données
        .OpenDataSource Name:=nombase, _
        Connection:="Driver={Microsoft Excel Driver (*.xls)};" & _
        "DBQ=" & nombase & "; ReadOnly=True;", _
        SQLStatement:="SELECT * FROM [Champ_Word]"
        'Développement voir plus haut les occurences pour la méthode Destination
        'Spécifie la fusion vers l'imprimante
        '.Destination = wdSendToPrinter
        .Destination = wdSendToNewDocument
        .SuppressBlankLines = True
        'Prend en compte l'ensemble des enregistrements
        With .DataSource
                .FirstRecord = wdDefaultFirstRecord
                .LastRecord = wdDefaultLastRecord
        End With
        'Exécute l 'opération de publipostage
        .Execute Pause:=False
End With
 
Application.ScreenUpdating = True
 
'Développement
'Fermeture du document Word
DocWord.Close False
With ActiveDocument
        .SaveAs FileName:=("monfichierrésultat.doc")
        .PrintOut
        .Close
End With
AppWord.Quit
End Sub

Le code Buggue sur la ligne Active Document
avec ce message "Aucun document n'est ouvert" ???

Même erreur si j'écris

Code :

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

1
2
3
.Destination = wdSendToNewDocument
Dim RésWord As Word.Document
Set RésWord = ActiveDocument

D'où ma question :

Comment activer un document issu d'un publipostage (1 seul enregistrement)
afin de l'enregistrer puis l'imprimer?

**Marc-L** · 03/04/2014, 13h04

Bonjour Marcel !

Est-ce sur la ligne n°55 ? Car un document est fermé en ligne précédente …

**MarcelG** · 03/04/2014, 13h15

Bonjour Marc-L

Merci pour ta réponse.

Non, le 2ème code est une variante du 1er.

Dans le 1er code

Code :

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

Activedocument

en ligne 55,
dans le 2ème code

Code :

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

Set RésWord = ActiveDocument

J'ai placé cette dernière ligne immédiatement après la méttthode Destination

Les 2 lignes bugguent.
Autrement dit, je n'arrive pas à activer le document issu de la méthode

Code :

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

.Destination = wdSendToNewDocument

**MarcelG** · 03/04/2014, 13h54

J'ai trouvé une résolution qui ne me satisfait qu'à moitié.
Il suffit de suffixer le document Word par l'application éponyme.

Code :

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

AppWord.ActiveDocument

D'où

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
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
Public Sub LiaisonWord(nombase As String, typedoc As String)
 
'SILKYROAD
'http://silkyroad.developpez.com/Excel/PublipostageWordExcel/
 
'Nécessite d'activer la référence "Microsoft Word xx.x Object Library"
 
'nombase = fichier Excel source
'typedoc = 757B OU 990I ou Cerfa
 
'Occurences de MailMerge.Destination =
'wdSendToEmail : Send results to e-mail recipient.
'wdSendToFax : Send results to fax recipient.
'wdSendToNewDocument : Send results to a new Word document.
'wdSendToPrinter : Send results to a printer.
 
Dim DocWord As Word.Document
Dim AppWord As Word.Application
 
Application.ScreenUpdating = False
Set AppWord = New Word.Application
'Développement
AppWord.Visible = False
'AppWord.Visible = False
'Ouverture du document principal Word
Set DocWord = AppWord.Documents.Open("\\prnas02\33\NETSHARE_STAT PART PRO\commun\Outils_logiciels\Outils Réseaux Salariés\Décès complet\Notice " & typedoc & ".doc")
 
With DocWord.MailMerge
        'IMPORTANT : redéfinir si besoin Champ_Word, appelé ci-dessous.
        'Ouvre la base de données
        .OpenDataSource Name:=nombase, _
        Connection:="Driver={Microsoft Excel Driver (*.xls)};" & _
        "DBQ=" & nombase & "; ReadOnly=True;", _
        SQLStatement:="SELECT * FROM [Champ_Word]"
        'Développement voir plus haut les occurences pour la méthode Destination
        'Spécifie la fusion vers l'imprimante
        '.Destination = wdSendToPrinter
        .Destination = wdSendToNewDocument
        .SuppressBlankLines = True
        'Prend en compte l'ensemble des enregistrements
        With .DataSource
                .FirstRecord = wdDefaultFirstRecord
                .LastRecord = wdDefaultLastRecord
        End With
        'Exécute l 'opération de publipostage
        .Execute Pause:=False
End With
 
Application.ScreenUpdating = True
 
'Développement
'Fermeture du document Word
DocWord.Close False
 
With AppWord
        With .ActiveDocument
                .SaveAs FileName:=("\\prnas02\33\NETSHARE_STAT PART PRO\commun\Outils_Exports\Exports_Décès\Essai publi " & typedoc & ".doc")
                .PrintOut
                .Close False
        End With
        .Quit
End With
 
End Sub

Mais ici, le document actif est celui par défaut qui subsiste dans Appword.
Or, j'aurais souhaité affecter le document résultat à une variable immédiatement après sa création.

Du type

Code :

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

1
2
3
.Destination = wdSendToNewDocument
Dim RésWord As Word.Document
Set RésWord = ???????

Merci!

**Chtik** · 03/04/2014, 15h10

Bonjour,

Tu ne peux déclarer ta variable qu'après la fin de l'opération de publipostage marquée par cette ligne :

Code :

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

1
2
        'Exécute l 'opération de publipostage
        .Execute Pause:=False

Du coup, en modifiant le code de cette façon, ça devrait être bon :

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
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
Public Sub LiaisonWord(nombase As String, typedoc As String)
 
'SILKYROAD
'http://silkyroad.developpez.com/Excel/PublipostageWordExcel/
 
'Nécessite d'activer la référence "Microsoft Word xx.x Object Library"
 
'nombase = fichier Excel source
'typedoc = 757B OU 990I ou Cerfa
 
'Occurences de MailMerge.Destination =
'wdSendToEmail : Send results to e-mail recipient.
'wdSendToFax : Send results to fax recipient.
'wdSendToNewDocument : Send results to a new Word document.
'wdSendToPrinter : Send results to a printer.
 
Dim DocWord As Word.Document
Dim AppWord As Word.Application
Dim RésWord As Word.Document
 
Application.ScreenUpdating = False
Set AppWord = New Word.Application
'Développement
'AppWord.Visible = True
AppWord.Visible = False
 
'Ouverture du document principal Word
Set DocWord = AppWord.Documents.Open("monfichiersource.doc")
 
With DocWord.MailMerge
        'IMPORTANT : redéfinir si besoin Champ_Word, appelé ci-dessous.
        'Ouvre la base de données
        .OpenDataSource Name:=nombase, _
        Connection:="Driver={Microsoft Excel Driver (*.xls)};" & _
        "DBQ=" & nombase & "; ReadOnly=True;", _
        SQLStatement:="SELECT * FROM [Champ_Word]"
        'Développement voir plus haut les occurences pour la méthode Destination
        'Spécifie la fusion vers l'imprimante
        '.Destination = wdSendToPrinter
        .Destination = wdSendToNewDocument
 
        .SuppressBlankLines = True
        'Prend en compte l'ensemble des enregistrements
        With .DataSource
                .FirstRecord = wdDefaultFirstRecord
                .LastRecord = wdDefaultLastRecord
        End With
        'Exécute l 'opération de publipostage
        .Execute Pause:=False
        Set RésWord = Word.ActiveDocument
With RésWord
        .SaveAs Filename:=("monfichierrésultat.doc")
        .PrintOut
        .Close
End With
End With
 
Application.ScreenUpdating = True
 
'Développement
'Fermeture du document Word
DocWord.Close False
 
AppWord.Quit
End Sub