user_mobilelogo

Word 365

Vous saurez tout !

 

Pour tout connaître sur Word
Nouvelle version !

600 pages !

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'hui2981
Hier3263
Cette semaine9529
Ce mois68870
Total depuis 200412747315

24
visiteurs actuellement en ligne

27 janvier 2021