Enregistrement auto publipostage nom champ

Bonjour (presque 6 ans plus tard, comme quoi)

Moi j'avais utilisé la macro présente ici:
https://forums.commentcamarche.net/forum/affich-22687992-enregistrer-un-doc-word-en-pdf-individuel#p34081359
afin de créer des e-billets en pdf unique en revanche la programmation initiale ne nomme que les fichiers en "1", "2", "3"..., un contributeur a voulu répondre à quelqu'un pour nommer les fichiers en reprenant un champs de fusion mais ça ne fonctionne pas, un apporte une réponse mais en fait il reprend exactement le même codage...

Vos lignes seraient peut-être intégrables dans la macro du lien ci-dessus pour que de vos 2 macros j'arrive à mes fins :) ?

Alors je viens de mélanger la macro pour faire les pdf unique (1 par page) et vos lignes pour nommer les fichiers (macro générée collée ci-dessous) en revanche j'ai un petit problème:
-Si j'active la matrice depuis mon template Word de publipostage (le modèle), ça fonctionne correctement (donc visiblement ma programmation des noms est bonne) mais du coup je n'ai que le premier fichier puisque lorsqu'on "fusionne" c'est un second fichier Word qui s'ouvre et c'est dans celui-ci que sont générés tous mes e-billets (tous les résultats de mon publipostage en fait avec autant de pages qu'il y a de lignes dans mon Excel), . Or, quand j'utilise la macro dans ce nouveau fichier, il y a un message d'erreur et je pense que c'est parce que l'Excel (où la macro va chercher les nom) est lié à mon modèle mais pas au fichier "résultat" que crée Word... (vous voyez ce que je veux dire?) Que dois-je faire selon vous?

Voici mon codage:

Sub DEMATERIALISATION()
'
Dim NbPage As Integer
Application.ScreenUpdating = False

NbPage = ActiveDocument.Windows(1).Panes(1).Pages.Count

For i = 1 To NbPage

CE = ActiveDocument.MailMerge.DataSource.DataFields(1).Value
CODE_BARRE = ActiveDocument.MailMerge.DataSource.DataFields(3).Value

ActiveDocument.ExportAsFixedFormat OutputFileName:= _
"C:\Users\ange.gagliani\Documents\EBillets\" & CE & " " & i & " Billet " & CODE_BARRE & ".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

Dans la page qui suit il y a un codage où tu n'as pas besoin d'entrer le nombre de pages désiré: en fait la macro compte le nombre de page automatiquement puis crée autant de fichiers qu'il y a de pages.

https://forums.commentcamarche.net/forum/affich-22687992-enregistrer-un-doc-word-en-pdf-individuel#p34081359

Bonjour
Merci de votre réponse
l'impression d'un fichier publiposté avec un fichier de données contenant n lignes ne donnera qu'un seul fichier avec n pages
J'ai besoin d'enregistrer " automatiquement" chaque page publipostée avec le nom d'un des champs présent le fichier de données
Avez-vous une idée

Merci d'avance

regarde ça pour générer 1 fichier par page. En revanche je dois résoudre pour que ça nomme en reprenant comme tu le veux également un ou plusieurs des champs, car pour l'instant ça me les nomme en "1", "2", "3"... mais voilà regarde déjà la macro pour automatiser le fait de générer 1 PDF par page en un seul clic!

https://forums.commentcamarche.net/forum/affich-22687992-enregistrer-un-doc-word-en-pdf-individuel#p34081359

Sur ce même forum j'ai trouvé ça qui te permet de générer autant de pdf que de page en un seul clic!!! (par contre faut que je relise bien cette page-ci car dans le lien que je te mets ci-après, la correction apportée me semble pas bonne du coup je n'arrive pas faire que chaque fichier se nomme en reprenant un des champs... ça les appelle juste "1", "2", "3"... Il faut donc mélanger un peu des 2 codages ^^

https://forums.commentcamarche.net/forum/affich-22687992-enregistrer-un-doc-word-en-pdf-individuel#p34081359

Allez, moi aussi je vais rajouter ma petite pierre à l'édifice quelques années après (haha)

Pour que la Macro fonctionne il faut bien penser à "rembobiner" le publipostage (autrement dit se remettre sur l'enregistrement n+1 et en mode Prévisualisation de la fusion (sinon, ça n'enregistrera les champs qu'en mode "Nom_De_La_Variable"

Si on veut supprimer le rembobinage Manuel, on peut rajouter au début de la seconde Macro (préconisée par beru002) :

ActiveDocument.MailMerge.DataSource.ActiveRecord = wdFirstRecord

Visiblement oui mais les explications sur une autre page de ce même forum me semblent incomplètes, je n'arrive qu'à les nommer "1", "2", "3",...

https://forums.commentcamarche.net/forum/affich-22687992-enregistrer-un-doc-word-en-pdf-individuel#p34081359