Publipostage Word en PDF avec base de données Excel Résolu/Fermé

Question

Bonjour, 

J'ai un publipostage Word avec une base de données Excel.

Le but est de générer autant de fichier PDF par page Word (en gros 500 pages de publipo à générer en 500 fichiers PDF).

Le but est d'envoyer par mail par destinataire un fichier PDF.

J'ai repris le code VBA :

Sub ExportPDF()

Dim NbPage As Integer
Application.ScreenUpdating = False

NbPage = ActiveDocument.Windows(1).Panes(1).Pages.Count 'Compte le nombre de page dans le document

'Dans cette section, modifier le paramètre "OutputFileName" pour changer le répertoire de sortie.
'Il est important de laisser la variable I dans le nom du fichier pour garder un numéro de chrono.
For i = 1 To NbPage

ActiveDocument.ExportAsFixedFormat OutputFileName:= _
"C:\Users\xxx\Desktop\Publipostage\03122015	est\" & i & ".pdf", ExportFormat:= _
wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:= _
wdExportOptimizeForPrint, Range:=wdExportFromTo, From:=i, To:=i, Item:= _
wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _
CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _
BitmapMissingFonts:=True, UseISO19005_1:=False
Next

Application.ScreenUpdating = True

MsgBox "Export terminé"

End Sub

Cela fonctionne à merveille. 

Seulement, il ressort 1.pdf, 2.pdf, etc....

Difficile de retrouver ses petits pour les envois PDF en PJ !

L'idée est d'intégrer à la place des chiffres le n°contrat + Nom du client (qu'on retrouve dans la base Excel)

Quelqu'un aurait une idée ?

Merci d'avance !

Configuration: Windows 7 / Chrome 44.0.2403.157

m@rina · Accepted Answer

Bonjour,

Ce n'est pas très compliqué à condition que le texte qui va servir aux noms des documents soit toujours au même endroit. A partir de là, on compte les paragraphes, les mots, etc.

Voici un exemple de macro :
Sub exportpdf()'macro écrite par m@rinaDim nbpage As IntegerDim nom As Stringnbpage = ActiveDocument.Sections.CountFor i = 1 To nbpagenom = ActiveDocument.Range.Sections(i).Range.Paragraphs(1).Range.Words(2)ActiveDocument.ExportAsFixedFormat outputFileName:="M:	est\" & nom & ".pdf", _exportFormat:=wdExportFormatPDF, Range:=wdExportFromTo, From:=i, To:=iNextMsgBox "Export terminé"End Sub 

Cet exemple récupère le deuxième mot du premier paragraphe de chaque section. A toi de bien compter ! ;)

m@rina

Klimero44 · Answer

Bonjour,

Je continue à me creuser la tête pour mon problème.

Du coup, je me pose la question :
Si j'intègre le n° du contrat et le nom du client en bas de page, puis-je créer un code vba qui va chercher ses éléments et changer les chiffres 1.pdf en n°de contrat+nom d'entreprise.pdf ?

Je vous remercie d'avance.

Kli

Klimero44 · Answer

Tant pis ! Je m'acharne quand même !

Je me demandais si je peux demander à Word de prendre les 2 premiers mots de mon en-tête de page c'est-à-dire "N°contrat Nom Societe".
Le code serait un truc du genre :

For i = 1 To SelectDocument.Words(2).Select

Qu'en pensez-vous ?

Je commence à sécher et à devenir chauve à force de me tirer les cheveux !

Publipostage Word en PDF avec base de données Excel

3 réponses

Discussions similaires