VBA - Combien de pages dans mon impression ?

NbPages = Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")


"Jac" <jsanssp@mfra.net> a écrit dans le message de news: eIn0lo5nHHA.4212@TK2MSFTNGP04.phx.gbl...
Bonjour à tous,

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

Merci d'avance.

Jac

Heureusement que les macros XL4 fonctionnent encore !!!
Pourvu que ça dure.
Y a-t-il une liste des fonctionnalités macros XL4 irremplaçables ?

Merci

Jac


"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
eGraA85nHHA.3264@TK2MSFTNGP04.phx.gbl...

NbPages = Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")


"Jac" <jsanssp@mfra.net> a écrit dans le message de news:
eIn0lo5nHHA.4212@TK2MSFTNGP04.phx.gbl...
Bonjour à tous,

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

Merci d'avance.

Jac

Jac a écrit, le 26/05/2007 16:59 :

Heureusement que les macros XL4 fonctionnent encore !!!
Pourvu que ça dure.
Y a-t-il une liste des fonctionnalités macros XL4 irremplaçables ?

Salut,

ça s'appelle Macrofun, et Google te trouve ça du tac au tac.

Bonjour,

Feuille active:

MsgBox (ActiveSheet.HPageBreaks.Count + 1) *
(ActiveSheet.VPageBreaks.Count + 1)

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

JB





On 26 mai, 15:31, "Jac" <jsan...@mfra.net> wrote:

Bonjour à tous,

Avant de lancer l'impression de ma feuille Excel, j'aimerais savoir combi en
de feuilles vont sortir de mon imprimante.
Est-ce possible ?

Merci d'avance.

Jac