[WD-2002] Continuité numérotation pages [Résolu]

[jmric]

[VBA]
Bonjour,

J'utilise word 2002 SP3 sous XP.
j'ai créé une procédure VBA qui ouvre un document Word (toutes les pages sont en portrait, les pieds de page contiennent le numéro de la page), dans lequel je souhaite insérérer, à des endroits précis, des insertions de saut de section page suivante, orienté en portrait ou paysage selon le cas.
J'ai inséré des signets spécifiques à ces endroits.
La procédure marche bien, insère correctement les sauts de section où sont positionnés les signets, sauf qu'à chaque insertion de saut de section page suivante, la numérotation du bas de page repart à 1 ! Mes pieds de page sont pourtant tous liés ("identique au précédent").
Savez-vous quelle est l'instruction qui permet de continuer la numérotation normalement séquentiellement du début à la fin du document ?

Voici un extrait de mon code pour l'insertion des sauts de section :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
'Pour le signet en cours
If strNomSignet = DONNEE_SAUT_PAGE_PORTRAIT Then
   'on insère un saut de section page suivante, orientation portrait
   strOrientation = wdOrientPortrait
Else
   'on insère un saut de section page suivante, orientation paysage
   strOrientation = wdOrientLandscape
End If
'On insère le saut de section page suivante
'Application.ScreenUpdating = False
Application.ActiveDocument.Bookmarks(i).Select
'Selection.InsertBreak Type:=wdSectionBreakNextPage
Selection.InsertBreak Type:=wdSectionBreakContinuous
With Selection.PageSetup
    .LineNumbering.Active = False
    .Orientation = strOrientation
    .FirstPageTray = wdPrinterDefaultBin
    .OtherPagesTray = wdPrinterDefaultBin
    .SectionStart = wdSectionNewPage
    .OddAndEvenPagesHeaderFooter = False
    .DifferentFirstPageHeaderFooter = False
    .VerticalAlignment = wdAlignVerticalTop
    .SuppressEndnotes = False
    .MirrorMargins = False
    .TwoPagesOnOne = False
    .BookFoldPrinting = False
    .BookFoldRevPrinting = False
    .BookFoldPrintingSheets = 1
    .GutterPos = wdGutterPosLeft
End With
'puis passage au signet suivant

Par avance merci de votre aide !

[Heureux-oli]

Salut,

J'ai essayé ton code et je ne rencontre pas ce problème de renumérotation.


Pour qu'elle ne recommence pas, peut-être une piste :

Code :

ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary).PageNumbers.RestartNumberingAtSection = False

[jmric]

Merci beaucoup Heureux-Oli pour ta réponse !
Oui c'était la bonne piste !
J'ai ajouté la boucle suivante à partir de ta ligne de code :

For Each sec In ActiveDocument.Sections
sec.Footers(wdHeaderFooterPrimary).PageNumbers.RestartNumberingAtSection = False
Next sec

=> ça fonctionne impec !
Merci encore mille fois !