Salut à tous !
 
J'ai plusieurs feuilles Excel.
Chaque feuille Excel doit être imprimé... et chaque feuille Excel s'imprime sur plusieurs pages.
Je cherche à renseigner un tableau qui va récupérer le nombre de pages imprimées de chacune de ces feuilles.
 
J'ai utilisé deux types de méthode pour retrouver cela :
 
- ExecuteExcel4macro("GET.DOCUMENT(50)" ) +1
- (ActiveSheet.HPageBreaks.Count + 1) * (ActiveSheet.VPageBreaks.Count + 1)
 
Les deux méthodes ne fonctionnent pas correctement... parfois cela marche et parfois cela ne marche pas... ???????    
J'y comprends rien là !
Pour une certaine feuille, je clique sur 'Aperçu avant impression' et je ne vois qu'une page (page 1 sur 1 en bas à gauche).
La formule ExecuteExcel4macro("GET.DOCUMENT(50)" ) +1 me donne 2 !    
La feuille suivante qui a 5 pages affiche bien 5 pages (Aperçu : page 1 sur un total de 5) et la formule ExecuteExcel4macro("GET.DOCUMENT(50)" ) +1 me donne bien 5...    
 
Existe-t-il une autre méthode plus sympathique ???
 

UP

Bonjour
 
Aucun souci avec ce genre de code :
 

 
Edit : Je mettais comme toi, dans un tableau le nb de pages de chaque onglet.
Je viens de tester, ca marche nickel...
 
Edit 2 : Pourquoi mets tu "+1" ?

Bonjour,
j'ai exactement le même souci .. impossible d'obtenir le nombre de page total de ma feuille
j'ai lu attentivement les commentaires sur le sujet
voici les 3 procédures que j'ai créé mais rien n'y fait. j'obtiens 1 au lieu de 5. puis-je vous envoyer mon document et comment ? :
 
Sub nbpage()
Dim nbf As Integer
Sheets(2).Select
nbf = ActiveSheet.HPageBreaks.Count + 1
 
MsgBox "Nombre de feuille : " & nbf
End Sub
------------------------------------------------------------------
Sub nbpage2()
Dim nbf As Integer
Sheets(2).Select
Range("A24" ).Select
Sheets(3).Cells(1, 1).Value = ExecuteExcel4Macro("GET.DOCUMENT(50)" )
 
'MsgBox "Nombre de feuille dans la : " & nbf
End Sub
------------------------------------------------------------------
Sub nbpage3()
 Dim plage As String
    Dim pageOriginale As Worksheet
    Set pageOriginale = ActiveSheet
 
 
    MsgBox ("nb Ligne = " & pageOriginale.UsedRange.Rows.Count)
    plage = "$A$1:$T$" & pageOriginale.UsedRange.Rows.Count
 
    MsgBox ("Plage = " & plage)
 
    pageOriginale.PageSetup.PrintArea = plage
 
    MsgBox ("nbBreaks = " & pageOriginale.HPageBreaks.Count)
End Sub