Macro_Comment créer des fichiers pdf par publipostage

Bonjour,

Pourriez-vous me dire pourquoi la macro ci-dessous ne s'exécute pas jusqu'à la fin du publipostage? Elle enregistre bien le document mais pour que le publipostage soit complet ( plus de 1000 lignes) il faudrait que je clique sur play autant de fois que de fichiers à créer...
Merci de votre aide


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 = "\\Badfile\users\mkempf\Desktop\Publipostage\"
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("Num")
.Execute
End With
ActiveDocument.ExportAsFixedFormat OutputFileName:=chemin & nom & ".pdf", ExportFormat:=wdExportFormatPDF, openafterexport:=False
ActiveDocument.Close savechanges:=False

Next
End Sub