user_mobilelogo

Word 365: Vous saurez tout !

Pour tout connaître sur Word
Nouvelle version !

 

En promotion tout le mois d'octobre 2020
600 pages !

4,90 € (au lieu de 9,80€)

 

En savoir plus.

Vous souhaitez faire un publipostage de type Lettres directement vers des fichiers PDF. Ces fichiers PDF auront pour nom le contenu d'un champ de votre base de données.

Voici une macro pour accomplir cette fusion. Complétez-la en indiquant le chemin complet du dossier dans lequel enregistrer vos fichiers PDF, et en indiquant le nom du champ qui va servir de nom au fichier. Dans mon exemple, il s'agit du champ "Nom". 

NB : Pour les publipostages avec image, fusionnez vers un nouveau document, mettez vos champs à jour et convertissez vers des documents PDF.

Attention, cette macro remplace le publipostage manuel. Elle doit être exécutée depuis votre document principal de fusion.

Sub publipostage()
Dim fusion As MailMerge
Dim x As Integer, nb As Integer
Dim chemin As String, nom As String
Set fusion = ActiveDocument.MailMerge
chemin = "D:\Mes documents\" 'mettre ici le chemin complet du dossier où stocker les fichiers sans oublier le \ à la fin
nb = fusion.DataSource.RecordCount
For x = 0 To nb - 1
With fusion
    .DataSource.FirstRecord = x + 1
    .DataSource.LastRecord = x + 1
    .Destination = wdSendToNewDocument
    .DataSource.ActiveRecord = x + 1
    nom = .DataSource.DataFields("Nom"'Remplacer Nom" par le champ à utiliser
    .Execute
End With
ActiveDocument.ExportAsFixedFormat OutputFileName:=chemin & nom & ".pdf", ExportFormat:=wdExportFormatPDF, openafterexport:=False
ActiveDocument.Close savechanges:=False

Next
End Sub
 

Statistiques

Aujourd'hui188
Hier3302
Cette semaine3490
Ce mois71146
Total depuis 200412503426

7
visiteurs actuellement en ligne

27 octobre 2020