[VBA] Récupérer le nombre de pages d'une feuille

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [VBA] Récupérer le nombre de pages d'une feuille

scaryfan

Apple Inside

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 ! :fou:
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... :pt1cable:

Existe-t-il une autre méthode plus sympathique ???

---------------
Conducteur de Twingo - Ancien pilote de 206 RC

Publicité

scaryfan

Apple Inside

---------------
Conducteur de Twingo - Ancien pilote de 206 RC

dje69r

Arme de distraction massive

Bonjour

Aucun souci avec ce genre de code :

Code :

Sheets(1).Select
Sheets("Donnees" ).Cells(2,1).Value = ExecuteExcel4Macro("GET.DOCUMENT(50)" )

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

Message édité par dje69r le 16-02-2010 à 14:56:14

---------------
Plus tu pédales moins vite, moins tu avances plus vite

FORUM HardWare.fr

Programmation

VB/VBA/VBS

[VBA] Récupérer le nombre de pages d'une feuille

Sujets relatifs
Excel calcul sur date en VBA	Word: VBA pour trouver et changer une couleur RGB en une autre
recuperer le nb de frames d'un flv	Access ouverture d'un état paramétré avec variable VBA
Script pour recuperer des données dans une page .htm	Récupérer une largeur d'image ?
récupérer les variables PHP dans un symbole flash (AS 2)	VBA Fin de la fonction je reviens dans ma boucle ???
Recuperer header d'une image rapidement	Récupérer un fichier indépendamment de la casse de son extension
Plus de sujets relatifs à : [VBA] Récupérer le nombre de pages d'une feuille

Page générée en 0.177 secondes