Numérotation Pages

REIVAKS · 21 Septembre 2007

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 · 21 Septembre 2007

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 · 21 Septembre 2007

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

Numérotation Pages

REIVAKS

Guest

sousou

XLDnaute Barbatruc

Cousinhub

XLDnaute Barbatruc

Discussions similaires

Numérotation Pages

REIVAKS

Guest

sousou

XLDnaute Barbatruc

Cousinhub

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency