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 ?![]()
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 ?![]()
Mon bricolage à moi !
Pour mon test, j'ai placé le N° de page dans le pied de page à gauche
Chui un teigneux
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
En attendant que Silky ou bbil te propose une syntaxe plus orthodoxe
Edit
J'ai ajouté là (!!!)
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
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager