VBA - Combien de pages dans mon impression ?

Le
Jac
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
MichDenis
Le #4545831
NbPages = Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")


"Jac" 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
Le #4545821
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"
NbPages = Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")


"Jac"
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





Gloops
Le #4545751
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.

JB
Le #4545701
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"
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


Publicité
Poster une réponse
Anonyme