Bonjour,
A la suite d'un publipostage, je souhaite conserver mes différentes sections, mais modifier la numérotation des pages en liant le "pied de page suivant" au "pied de page précédent" puis en définissant, pour le "pied de page suivant" une numérotation "à la suite de la section précédente".

Manuellement, cela donne une série de manips qui fonctionnent très bien et que j'ai essayé d'automatiser à travers une macro.
J'ai généré cette macro via l'enregistreur (je ne suis pas calé en code) en répétant plusieurs fois les manips manuelles.
Elle fonctionne sur quelques sections uniquement, mais pas pour tout le document. Voici ce que ça donne (le reste du code est identiquement répété jusqu'à la fin)

Sub Macro2()
'
' Macro2 Macro
' num publipost 2
'
ActiveWindow.ActivePane.View.NextHeaderFooter
Selection.HeaderFooter.LinkToPrevious = Not Selection.HeaderFooter. _
LinkToPrevious
With Selection.HeaderFooter.PageNumbers
.NumberStyle = wdPageNumberStyleArabic
.HeadingLevelForChapter = 0
.IncludeChapterNumber = False
.ChapterPageSeparator = wdSeparatorHyphen
.RestartNumberingAtSection = False
.StartingNumber = 0
End With
ActiveWindow.ActivePane.View.NextHeaderFooter
Selection.HeaderFooter.LinkToPrevious = Not Selection.HeaderFooter. _
LinkToPrevious
With Selection.HeaderFooter.PageNumbers
.NumberStyle = wdPageNumberStyleArabic
.HeadingLevelForChapter = 0
.IncludeChapterNumber = False
.ChapterPageSeparator = wdSeparatorHyphen
.RestartNumberingAtSection = False
.StartingNumber = 0
End With
ActiveWindow.ActivePane.View.NextHeaderFooter
Selection.HeaderFooter.LinkToPrevious = Not Selection.HeaderFooter. _
LinkToPrevious
With Selection.HeaderFooter.PageNumbers
.NumberStyle = wdPageNumberStyleArabic
.HeadingLevelForChapter = 0
.IncludeChapterNumber = False
.ChapterPageSeparator = wdSeparatorHyphen
.RestartNumberingAtSection = False
.StartingNumber = 0
End With
J'ai fait plusieurs essais, mais infructueux. Merci d'avance de votre aide.
Bonne journée.