Discussion :

[inscrisici]

Bonjour

J'arrive à utiliser un script récupéré sur internet pour enregistrer un fichier PDF par page d'un document word avec une variable présente dans le fichier : le nom d'une personne.
Je voudrais pouvoir le faire avec nom prenom car j'ai plusieurs fois le même nom dans le fichier.

Voici ce que j'utilise :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
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:\REP1\REP2\" '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

Après ("NOM") j'ai testé plusieurs syntaxes mais sans parvenir à faire fonctionner.

Pouvez-vous m'aider ?

Je vous remercie

[E KERGRESSE]

Bonjour,

Peut-être :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

nom = .DataSource.DataFields("NOM") & " " & .DataSource.DataFields("PRENOM")

[inscrisici]

Bonjour,

Peut-être :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

nom = .DataSource.DataFields("NOM") & " " & .DataSource.DataFields("PRENOM")

Un grand merci !
Cela fonctionne parfaitement. Et je vais pouvoir reproduire si je dois changer ou ajouter des champs.