pied de page

bonjour Paul,

je ne voie qu'une solution vba, à copier dans ThisWorkbook de ce
classeur.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveWindow.SelectedSheets.HPageBreaks.Count =0 Then
ActiveSheet.PageSetup.CenterFooter = ""
Else
ActiveSheet.PageSetup.CenterFooter = "Page &P de &N"
End If
End Sub

à adapter selon que c'est pour LeftFooter, CenterFooter ou RightFooter

isabelle

bonsoir à tous,
Une question bête : j'ai préparé un modèle qu'un utilisateur va remplir et
je voudrais mettre dans mon pied de page l'indication "Page &P / &N" mais
uniquement lorsqu'il y a plus d'une page à imprimer. Lorsqu'il n'y a qu'une
page, je ne tiens pas à ce qu'apparaisse "Page 1 / 1" !
Merci de votre aide.
Paul

Merci, Isabelle, pour cette réponse nocturne.
Je vais macrotiser mon classeur.
Paul

Bonjour Paul
Sinon pour récupérer le nombre de pages d'une feuille tu peux aussi utiliser
cette méthode :
Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")
Cordialement
Pascal

"Paul" <antispam@antispam.fr> a écrit dans le message de
news:eRM%23UEjuDHA.2316@TK2MSFTNGP10.phx.gbl...

Merci, Isabelle, pour cette réponse nocturne.
Je vais macrotiser mon classeur.
Paul

Merci, Pascal, ça a l'air de bien marcher.
Paul

"papou" <nspm> a écrit dans le message de news:
OnWFZcjuDHA.2148@TK2MSFTNGP12.phx.gbl...

Bonjour Paul
Sinon pour récupérer le nombre de pages d'une feuille tu peux aussi
utiliser

cette méthode :
Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")
Cordialement
Pascal>