Avant de lancer l'impression de ma feuille Excel, j'aimerais savoir combien de feuilles vont sortir de mon imprimante.

Pour la feuille active:

sub test()
 nbpages = Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")
 MsgBox nbpages
 end sub

ou sinon : MsgBox (ActiveSheet.HPageBreaks.Count + 1) * (ActiveSheet.VPageBreaks.Count + 1) S'il y a plusieurs feuilles: tpage = 0 For s = 1 To 3 tpage = tpage + (Sheets(s).HPageBreaks.Count + 1) * (Sheets(s).VPageBreaks.Count + 1) Next s MsgBox tpage