Compter le nombre de pages en impression

[Thierry]

Bonsoir à tous,

J'aurai besoin de pouvoir avoir l'information en VBA du nombre de pages en impression : à savoir tel feuille équivaut à tant de pages.
Il s'agit de pouvoir effectuer un sommaire.

Merci d'avance

Thierry R

 

[@+Thierry]

Bonjour Homonyme.

Pour compter le nombre de pages, il suffit d'utiliser la propriété HpageBreaks. (on compte + 1, pour comptablilser la première page)

Sub CompteNombrePages ()
MsgBox ActiveSheet.HPageBreaks.Count + 1
End Sub

J'ai regardé aussi cet exemple dans l'aide qui peut-être interressant

Sub Test()
For Each pb In Worksheets(1).HPageBreaks
If pb.Extent = xlPageBreakFull Then
cFull = cFull + 1
Else
cPartial = cPartial + 1
End If
Next
MsgBox cFull & " full-screen page breaks, " & cPartial & _
" print-area page breaks"
End Sub

Bon Après Midi
@+Thierry

 

[ThierryR]

Bonsoir Thierry

Merci pour ta réponse. Je commençai à envisager cette solution.

Merci encore beaucoup

ThierryR