[WD-2007] Publipostage : Impression en PDF avec une page par fichier [Résolu]

[nesumi]

Bonjour à tous,

Je viens demander votre aide sur un souci avec Word.

Je fais un publipostage (Excel- Word) pour faire les ordres de missions des collaborateurs. Auparavant je les imprimais et je leur donnais mais auujourd'hui nous avons décidé de ne plus les faire en format papier. Une fois le publipostage fait il faut envoyer à chaque personne son ordre de mission par mail au format PDF.
Je souhaiterais donc pouvoir imprimer en PDF les ordres de mission (1 par personne). Seulement je ne sais pas comment faire pour faire un fichier PDF par ordre de mission en une seule manipulation. Il y en a 130 donc j'aimerais éviter de faire 130 tri

J'ai mis en pièce-jointe le document type de l'ordre de mission.
Est ce que j'ai été claire?
Est ce que quelqu'un aurait une idée?

[Heureux-oli]

Salut,

il faut passer par du VBA pour n'avoir qu'un fichier par enregistrement.

On a alors deux options, une où l'on scinde le fichier obtenu puisque chaque enregistrement est séparé par un saut de page, soit on génére un fichier par enregistrement lors du publipostage.

http://heureuxoli.developpez.com/off...ipostage/#L7-G

c'est à toi de voir.

[nesumi]

Bonjour,

Désolé pour la réponse tardive...

Alors à choisir je préfèrerais un fichier par enregistrement. En effet avec le saut de page je risque d'avoir un problème si l'enregistrement prend plus d'une page.

J'ai regardé le lien que tu as mis. J'ai trouvé lapartie corespondant à ce que je cherche.

Est ce que je dois y apporter des modifications une fois que je l'ai copiée dans VBA?

[Heureux-oli]

Salut,

Oui, dans l'exemple, je fais une sauvegarde dans un fichier Word, ilfaut modifier le format du fichier de sauvegarde pour que ce soit un PDF.

Il faut aussi adapter le code en fonction de tes champs de données.

[nesumi]

Salut,

Je débute vraiement en VBA (à part faire de l'enregistrement de macro je n'ai rien fais d'autre...)
A quels endroits je dois changer les champs? Pour le .pdf j'ai trouvé pas de souci mais pour le reste je ne sais pas trop.

[Heureux-oli]

Salut,

Dans ce code,

Code :

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
Sub TestPublipost()
' Déclaration des variables
Dim iR As Integer
Dim i As Integer
Dim oDoc As Document
Dim DocName As String
Dim oDS As MailMergeDataSource
 
' Affectation des objets
Set oDoc = ActiveDocument
Set oDS = oDoc.MailMerge.DataSource
 
iR = MailMerge.DataSource.RecordCount
Debug.Print iR
For i = 1 To iR
    With oDoc.MailMerge
    	'Définition du premier et dernier enregistrement
        .DataSource.FirstRecord = i
 
        .DataSource.LastRecord = i
        ' Envoi des données dans un nouveau document
        .Destination = wdSendToNewDocument
        ' Exécution du publipostage
        .Execute
        ' Actualisation de l'enregistrement pour la sauvegarde
        .DataSource.ActiveRecord = i
        'Utilisation de deux champs pour obtenir le nom du document
        DocName = .DataSource.DataFields(2).Value
        DocName = DocName & "-" & .DataSource.DataFields(3).Value
        Debug.Print DocName; i
    End With
	' Sauvegarde du document publiposté
    With ActiveDocument
        .SaveAs "c:\temp\" & DocName & ".doc"
        .Close
    End With
Next i
End Sub

j'utilise ces deux lignes :

Code :

1
2
3
 
        DocName = .DataSource.DataFields(2).Value
        DocName = DocName & "-" & .DataSource.DataFields(3).Value

pour définir le nom à donner au fichier.

C'est à toi de voir quels sont le ou les champs qui seront utilisés pour donner un nom à tes fichiers.

Il semblerait que cette ligne :

Code :

iR = MailMerge.DataSource.RecordCount

pose parfois problèle, si c'est le cas, il faut la modifier par celle-ci

Code :

iR = oDoc.MailMerge.DataSource.RecordCount

[nesumi]

Merci pour les infos :

Je pensais avoir fait les modifs commetu me l'as indiqué mais qand j'exécute la macro rien ne se passe.

Je mets le code avec mes modifs j'ai du louper quelque chose ( je suis pas très douée décidément )

Code :

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
Sub TestPublipost()
' Déclaration des variables
Dim iR As Integer
Dim i As Integer
Dim oDoc As Document
Dim DocName As String
Dim oDS As MailMergeDataSource
 
' Affectation des objets
Set oDoc = ActiveDocument
Set oDS = oDoc.MailMerge.DataSource
 
iR = oDoc.MailMerge.DataSource.RecordCount
Debug.Print iR
For i = 1 To iR
    With oDoc.MailMerge
        'Définition du premier et dernier enregistrement
        .DataSource.FirstRecord = i
 
        .DataSource.LastRecord = i
        ' Envoi des données dans un nouveau document
        .Destination = wdSendToNewDocument
        ' Exécution du publipostage
        .Execute
        ' Actualisation de l'enregistrement pour la sauvegarde
        .DataSource.ActiveRecord = i
        'Utilisation de deux champs pour obtenir le nom du document
        DocName = .DataSource.DataFields(2).Value
        DocName = DocName & "Nom" & .DataSource.DataFields(3).Value
        Debug.Print DocName; i
    End With
    ' Sauvegarde du document publiposté
    With ActiveDocument
        .SaveAs "K:\RH - Gestion du Personnel\Ordre de Mission\OM 2011 maj indémnités\TEST PDF" & DocName & ".pdf"
        .Close
    End With
Next i
End Sub

Est ce que tu vois où est ce que j'ai fais une erreur?

[Heureux-oli]

Salut,

il faut que le document de publipostage soit le document actif.

Dans la fenêtre exécution, il devrait y avoir le nom du document pour chaque enregistrement.

As-tu reçu un message d'erreur ?

[nesumi]

En fait j'ouvre le document Word, je vais dans l'onglet developpeur - Macro - Je selectionne la macro - Executer et rien ne se passe pas de message d'erreur rien

[nesumi]

La situtation a évolué (j'avais un souci avec ma base Excel).

Donc la macro commence bien mais au moment de l'exécution de la ligne ci dessous

Code :

.SaveAs "K:\RH - Gestion du Personnel\Ordre de Mission\OM 2011 maj indémnités\TEST PDF" & DocName & ".pdf"

le message d'erreur suivant apparait :

Erreur d'éxécution 5152
"Nom de fichiers non valide"

Est ce que c'est du au fait que je ne fasse pas un enregistrement en /temp?

[Heureux-oli]

Salut,

Pas de sablier ?

Les fichiers sont peut-être générés !

[nesumi]

J'avance petit à petit j'avance :

Le message d'erreur n'apparait plus (je ne sais pas trop pourquoi mais bon... )

Par contre il reste 2 petits soucis :

Code :

1
2
3
 With ActiveDocument
        .SaveAs "K:\RH - Gestion du Personnel\Ordre de Mission\OM 2011 maj indémnités\OMPDF" & DocName & ".pdf"
        .Close

Après l'éxécution de cette ligne de code, mon enregistrement est enregistré mais dans le dossier OM 2011 maj indémnités. il est nommé OMPDF + le nom donné plus haut dans le code et en .pdf.
Don en fait il s'enregistre pas au bon endroit et en plus quand je vais pour ouvrir le fichier en pdf cela me donne le message d'erreur suivant :

"Adobe reader n'a pas pu ouvrir le document car le type de fichier n'est pas pris en charge ou il est endommagé"

Alors là du coup je sèche....

[carden752]

Bonjour,

Essaye d'enregistrer un document en PDF avec exportasFixedFormat.
Tu peux faire le test en enregistrant une macro qui sauvegarde le fichier.

Code :

1
2
3
4
5
6
7
8
.ExportAsFixedFormat OutputFileName:= _
        nom_complet_fichier ("K:..." & docname & ".pdf"), ExportFormat:= _
        wdExportFormatPDF, OpenAfterExport:=True, OptimizeFor:= _
        wdExportOptimizeForPrint, Range:=wdExportAllDocument, from:=1, To:=1, _
        Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _
        CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _
        BitmapMissingFonts:=True, UseISO19005_1:=False

En rouge, ce que tu dois asapter le chemin du fichier et son nom
en bleu, les commentaires ou exemples
En vert, les options qu'il peut être intéressant de changer, garder les signets par exemple là.

le message d'erreur suivant apparait :

Erreur d'éxécution 5152
"Nom de fichiers non valide"

Que contient la colonne identifiant le nom, n'y a t'il pas un caractère interdit du genre "/" ou "*" pour un nom de fichier?

[nesumi]

Cette macro ne fonctionne pas non plus :

"L'exportation à echoué car cette fonctionalité n'est pas installée"

Une petite question, on ne pourrait pas passer par l'impression en pdf?

[nesumi]

Oupsss pardon Bonjour Carden je n'avais pas vu que ce n'était pas la même personne désolé.

[nesumi]

Pour la colone identifiant les Noms il n'y a que des noms de famille tous écris en majuscule.

[nesumi]

C'est bon en fait j'ai vu avec un de mes collègues.

Le souci venait du fait qu'il me manquait le module pour transformer en les Wrd en PDF.

J'ai testé la macro sur un PC qui l'a et tout marche!

Je vous remercie beaucoup!

[Heureux-oli]

Envoyé par nesumi

Cette macro ne fonctionne pas non plus :

"L'exportation à echoué car cette fonctionalité n'est pas installée"

Une petite question, on ne pourrait pas passer par l'impression en pdf?

Salut,

Oui, tu peux imprimer en pdf, mais les obstacles seront plus nombreux encore.
Il faut dans ce cas en plus de piloter Word, piloter l'imprimante.

[corate92]

Bonjour à tous,

je suis actuellement dans sur du vba pour développer un projet similaire à Nesumi.
La macro proposée est parfaite sauf que j'ai un bug dès qu'il faut transformer le word en pdf. Je suis assez débutante dans cette belle langue de VBAiste

Je ne sais pas où mettre ce code

Code :

1
2
3
4
5
6
7
.ExportAsFixedFormat OutputFileName:= _
        nom_complet_fichier ("K:..." & docname & ".pdf"), ExportFormat:= _
        wdExportFormatPDF, OpenAfterExport:=True, OptimizeFor:= _
        wdExportOptimizeForPrint, Range:=wdExportAllDocument, from:=1, To:=1, _
        Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _
        CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _
        BitmapMissingFonts:=True, UseISO19005_1:=False

Dans

Code :

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
Sub TestPublipost()
 
' Déclaration des variables
Dim iR As Integer
Dim i As Integer
Dim oDoc As Document
Dim DocName As String
Dim oDS As MailMergeDataSource
 
' Affectation des objets
Set oDoc = ActiveDocument
Set oDS = oDoc.MailMerge.DataSource
 
iR = oDoc.MailMerge.DataSource.RecordCount
Debug.Print iR
For i = 1 To iR
    With oDoc.MailMerge
        'Définition du premier et dernier enregistrement
        .DataSource.FirstRecord = i
 
        .DataSource.LastRecord = i
        ' Envoi des données dans un nouveau document
        .Destination = wdSendToNewDocument
        ' Exécution du publipostage
        .Execute
        ' Actualisation de l'enregistrement pour la sauvegarde
        .DataSource.ActiveRecord = i
        'Utilisation de deux champs pour obtenir le nom du document
        DocName = .DataSource.DataFields(9).Value
        'DocName = DocName & "-" & .DataSource.DataFields(3).Value
        Debug.Print DocName; i
 
    End With
    ' Sauvegarde du document publiposté
    With ActiveDocument
        .SaveAs "C:\Documents and Settings\corate92\Bureau\" & DocName & ".doc"
        .Close
    End With
Next i
End Sub

Je suis un peu perdue

Merci à tous pour ce forum!

[Heureux-oli]

Salut,

Code :

1
2
3
4
5
 
    With ActiveDocument
        .SaveAs "C:\Documents and Settings\corate92\Bureau\" & DocName & ".doc"
        .Close
    End With

Ces lignes de code permettent la sauvegarde du fichier en document, si tu utilises ta ligne de code à la place de .saveAs, ça devrait le faire.