Nombre de page en VBA

[nrdz83]

Bonsoir à tous,
je cherche à faire inscrire en cellule (D25) le numéro de la page sur le nombre de pages (1/6 par exemples)
La même chose que dans les pieds de pages.
Par avance merci pour vos lumières,
amitiés

 

[jpb388]

Re : Nombre de page en VBA

Bonjour
a tester

Sub essai()
Dim i%
For i = 1 To Sheets.Count
If ActiveSheet.Name = Sheets(i).Name Then
Range("d25") = "'" & i & "/" & Sheets.Count
Exit For
End If
Next
End Sub

a+