Discussion :

[ouskel'n'or]

Tu as un moyen qui est un bricollage : Mettre un N° de page en bas de page, tu le relis et si c'est toujours le même, c'est la dernière page
Pas essayé, pas testé
Tu sauras faire ?

[ouskel'n'or]

Mon bricolage à moi !
Pour mon test, j'ai placé le N° de page dans le pied de page à gauche

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
    Application.ScreenUpdating = False
    Selection.HomeKey Unit:=wdStory
    Do
        ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter
        Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend
        Memo = PageActive
        PageActive = Selection
        ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
        Selection.WholeStory 'si ça ne met pas le champ à jour sans cette ligne, ajoute-la (!!!)
        Selection.Fields.Update
        ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
        With Selection
            .GoTo What:=wdGoToPage, Which:=wdGoToNext, Count:=1
        End With
    Loop While Memo <> PageActive
    Application.ScreenUpdating = True
    MsgBox PageActive

Chui un teigneux
En attendant que Silky ou bbil te propose une syntaxe plus orthodoxe
Edit
J'ai ajouté là (!!!)

[SfJ5Rpw8]

au cas ou tu ne l'ait pas testé je te remet mon code bouclant dans les entêtes .. et j'y rajoute aussi les pieds de pages ..!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Sub MajChamps()
 Dim H As HeaderFooter
 Dim s As Section
 For Each s In ActiveDocument.Sections
    For Each H In s.Headers
      H.Range.Fields.Update
    Next
    For Each H In s.Footers
      H.Range.Fields.Update
    Next
  Next
End Sub