Numérotation Pages

[REIVAKS]

Bonjour,

Je souhaiterais afficher le nombre de pages dans une cellule sur l'onglet de la page de garde.
- Onglet 1 : "Page 1 sur X"
- sachant que X doit compter le nombre de pages des onglets successifs.

Je sais que la réponse est en vous.

A tout de suite,

Reivaks

 

[sousou]

Re : Numérotation Pages

Bonjour reivaks

Met ce code dans le classeur

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
nbp = Sheets.Count
n = ActiveSheet.Index
nom = "Page " & n & " sur " & nbp
Sh.Name = nom
End Sub

 

[Cousinhub]

Re : Numérotation Pages

Bonjour reivaks, sousou, le forum

pour compter le nombre total de pages à imprimer dans ton classeur, tu peux utiliser ce code :

Sub nbpage()
Dim NbP As Integer
For Each sh In ActiveWorkbook.Sheets
sh.Select
NbP = NbP + ExecuteExcel4Macro("GET.DOCUMENT(50)")
Next sh
With Sheets("Feuil1")
.Select
.Range("A1").Value = NbP
End With
End Sub