Publipostage Word en PDF avec base de données Excel

Résolu/Fermé

Klimero44 Messages postés 15 Date d'inscription jeudi 3 décembre 2015 Statut Membre Dernière intervention 4 janvier 2017 - 4 déc. 2015 à 10:27
J.WALLE Messages postés 2 Date d'inscription samedi 9 juillet 2016 Statut Membre Dernière intervention 9 juillet 2016 - 9 juil. 2016 à 21:53

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\test\" & 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 !

A voir également:

Publipostage pdf
Publipostage word excel pdf - Meilleures réponses
Publipostage word pdf - Meilleures réponses
Lire le coran en français pdf - Télécharger - Histoire & Religion
Publipostage mail - Guide
Publipostage outlook avec pièce jointe pdf ✓ - Forum Word
Save as pdf - Télécharger - Bureautique
Comment faire un pdf - Guide

3 réponses

Réponse 1 / 3

m@rina Messages postés 20011 Date d'inscription mardi 12 juin 2007 Statut Contributeur Dernière intervention 16 avril 2024 11 268
20 janv. 2016 à 13:27

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@rina
Dim nbpage As Integer
Dim nom As String

nbpage = ActiveDocument.Sections.Count

For i = 1 To nbpage
nom = ActiveDocument.Range.Sections(i).Range.Paragraphs(1).Range.Words(2)
ActiveDocument.ExportAsFixedFormat outputFileName:="M:\test\" & nom & ".pdf", _
exportFormat:=wdExportFormatPDF, Range:=wdExportFromTo, From:=i, To:=i
Next
MsgBox "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 Messages postés 15 Date d'inscription jeudi 3 décembre 2015 Statut Membre Dernière intervention 4 janvier 2017 3
22 janv. 2016 à 22:42

Voici le code :

Sub exportpdf()
'macro écrite par m@rina
Dim nbpage As Integer
Dim nom As String

nbpage = ActiveDocument.Sections.Count

For i = 1 To nbpage
nom = ActiveDocument.Range.Sections(i).Range.Paragraphs(1).Range.Words(1)
ActiveDocument.ExportAsFixedFormat outputFileName:="C:\Users\Desktop\pj\" & nom & ".pdf", _
exportFormat:=wdExportFormatPDF, Range:=wdExportFromTo, From:=i, To:=i
Next
MsgBox "Export terminé"
End Sub

Klimero44 Messages postés 15 Date d'inscription jeudi 3 décembre 2015 Statut Membre Dernière intervention 4 janvier 2017 3 > m@rina Messages postés 20011 Date d'inscription mardi 12 juin 2007 Statut Contributeur Dernière intervention 16 avril 2024
Modifié par Klimero44 le 23/01/2016 à 11:23

Génial M@rina ! Ca fonctionne ! Plus de message d'erreur ! :-)
Grand merci à toi ! Bravo !
Je vais quand même continuer à potasser Visual Basic pour m'améliorer ! :-)

Réponse 3 / 3

Klimero44 Messages postés 15 Date d'inscription jeudi 3 décembre 2015 Statut Membre Dernière intervention 4 janvier 2017 3
7 déc. 2015 à 22:15

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 !

Dio
15 janv. 2016 à 15:11

Salut Klimero44,
J'ai exactement le même problème que toi.
As-pu améliorer ton code pour voir apparaitre le n°de client dans le nom du fichier client ?
Merci d'avance,

Klimero44 Messages postés 15 Date d'inscription jeudi 3 décembre 2015 Statut Membre Dernière intervention 4 janvier 2017 3 > Dio
20 janv. 2016 à 12:14

Non, j'ai mis le code de côté....
Du coup je me suis lancé dans la bible du VBA !

Klimero44 Messages postés 15 Date d'inscription jeudi 3 décembre 2015 Statut Membre Dernière intervention 4 janvier 2017 3 > Dio
24 janv. 2016 à 14:47

Salut Dio,

As-tu réussi aussi (voir le code en haut) ?

J.WALLE Messages postés 2 Date d'inscription samedi 9 juillet 2016 Statut Membre Dernière intervention 9 juillet 2016
9 juil. 2016 à 21:53

Bonjour, Bonsoir ...

Regarde cette vidéo ... https://www.youtube.com/watch?v=bglUfRd2JhY

Discussions similaires

Publipostage word : créer plusieurs documents distincts

Enregistrer un publipostage en pdf en séparant chaque feuille

"Publipostage" données excel vers PDF

Publipostage Word avec un pdf en pièce jointe

Plusieurs fichiers Word suite publipostage + Renommer chaque doc

Macro publipostage enregistrement PDF séparé

Discussions similaires

Newsletters