Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Pages à imprimer

Pages à imprimer

3 réponses
Avatar
Vincent.
Bonjour =E0 tous.
Comment, en VBA, peux-t-on compter le nombre de pages=20
d'une s=E9lection (classeur entier, feuilles enti=E8res ou=20
partielles...) ?
Merci d'avance

PS : dans word, =E7a donnerait =E0 peu pr=E8s =E7a
NbPages =3D ActiveDocument.Bookmarks("\endofdoc"). _
Information(wdActiveEndPageNumber)

A+ (et merci d'avance)
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
manu l.
Bonjour Vincent,

Comme ceci :

nbPages = Windows(1).SelectedSheets.Count

Meilleures salutations.

--
manu l.

"Vincent." a écrit dans le message de
news:0c5501c38f2a$53bf7300$
Bonjour à tous.
Comment, en VBA, peux-t-on compter le nombre de pages
d'une sélection (classeur entier, feuilles entières ou
partielles...) ?
Merci d'avance

PS : dans word, ça donnerait à peu près ça
NbPages = ActiveDocument.Bookmarks("endofdoc"). _
Information(wdActiveEndPageNumber)

A+ (et merci d'avance)
Avatar
FxM
Bonsoir,

Non testé :
NbPages = Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")

Source : FS
http://www.google.fr/groups?hl=fr&lr=&ie=UTF-8&oe=UTF-8&threadm=qy3eb.80563%24C92.29040%40charlie.risq.qc.ca&rnum=1&prev=/groups%3Fas_q%3Ddocument(50)%26ie%3DUTF-8%26oe%3DUTF-8%26as_ugroup%3D*fr.excel%26as_scoring%3Dd%26lr%3D%26num%3D100%26hl%3Dfr

@+
FxM



Vincent. wrote:

Bonjour à tous.
Comment, en VBA, peux-t-on compter le nombre de pages
d'une sélection (classeur entier, feuilles entières ou
partielles...) ?
Merci d'avance

PS : dans word, ça donnerait à peu près ça
NbPages = ActiveDocument.Bookmarks("endofdoc"). _
Information(wdActiveEndPageNumber)

A+ (et merci d'avance)


Avatar
Vincent.
Bonsoir, et merci ;-)
Je m'en vais de ce pas tester tout ça !
A+

-----Message d'origine-----
Bonsoir,

Non testé :
NbPages = Application.ExecuteExcel4Macro("GET.DOCUMENT
(50)")


Source : FS
http://www.google.fr/groups?hl=fr&lr=&ie=UTF-8&oe=UTF-
8&threadm=qy3eb.80563%24C92.29040%

40charlie.risq.qc.ca&rnum=1&prev=/groups%3Fas_q%3Ddocument
(50)%26ie%3DUTF-8%26oe%3DUTF-8%26as_ugroup%3D*fr.excel%
26as_scoring%3Dd%26lr%3D%26num%3D100%26hl%3Dfr

@+
FxM



Vincent. wrote:

Bonjour à tous.
Comment, en VBA, peux-t-on compter le nombre de pages
d'une sélection (classeur entier, feuilles entières ou
partielles...) ?
Merci d'avance

PS : dans word, ça donnerait à peu près ça
NbPages = ActiveDocument.Bookmarks("endofdoc"). _
Information(wdActiveEndPageNumber)

A+ (et merci d'avance)


.