WORD - Publipostage Enregistrement PDF

Bonjour,

Après une semaine de recherche sur de multiples forum, je me lance dans un dernier élan d'espoir. Je vous explique.

Je souhaite enregistrer chaque feuille d'un publipostage en un PDF séparé, en prenant comme nom de fichier un champ du publipostage (Demande d'arrêté - <<Commune>>).

J'ai une macro qui me permet d'enregistrer sous format PDF cependant le nom du fichier est mauvais. En effet, la commune affichée est celle du publipostage précédant. Exemple :

Publipostage N°3 --> Paris
Publipostage N°4 --> Lyon
J'active ma macro en ayant le Word de Lyon sous les yeux, il s'enregistre sous format PDF cependant le nom du fichier est "Demande d'arrêté - Paris".

J'ai essayé plusieurs macro trouvé sur le net mais le problème revient à chaque fois...

Avez-vous une solution ?

Je laisse le code VBA ci-dessous :

 Sub Word_to_PDF()
'
' Word_to_PDF Macro
' Converti la DA au format PDF et l'enregistre sous un dossier
'

 Dim chemin As String, nom As String
 chemin = "C:\Users\CHEMIN DU DOSSIER"
 
  With ActiveDocument.MailMerge
    .Destination = wdSendToNewDocument
    .SuppressBlankLines = True
    With .DataSource
      .FirstRecord = ActiveDocument.MailMerge.DataSource.ActiveRecord
      .LastRecord = ActiveDocument.MailMerge.DataSource.ActiveRecord
    End With
    .Execute Pause:=False
    nom = .DataSource.DataFields(2).Value
  End With
  
  ActiveDocument.ExportAsFixedFormat OutputFileName:= _
    chemin & "Demande d'arrêté - " & nom & ".pdf" _
    , ExportFormat:=wdExportFormatPDF, openafterexport:=True, OptimizeFor:= _
    wdExportOptimizeForPrint, Range:=wdExportAllDocument, From:=1, To:=1, _
    Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _
    CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _
    BitmapMissingFonts:=True, UseISO19005_1:=False
End Sub 

Merci d'avance,

Susuwatari