Je fais encore appel à vos connaissances, voici ma question : Comment avoir
le nombre total de pages à imprimer d'1 classeur contenant plusieurs
feuilles.
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
FxM
Bonsoir,
quelque chose comme ...
(à placer dans le ThisWorkbook) Sub test() acs = ActiveSheet.Name: toto = 0 With Application .ScreenUpdating = False .EnableEvents = False For Each sht In Sheets sht.Select toto = toto + .ExecuteExcel4Macro("GET.DOCUMENT(50)") Next sht Sheets(acs).Select .EnableEvents = True .ScreenUpdating = True End With MsgBox toto & " pages" End Sub
@+ FxM
bsh77 wrote:
Bonsoir,
Je fais encore appel à vos connaissances, voici ma question : Comment avoir le nombre total de pages à imprimer d'1 classeur contenant plusieurs feuilles.
Merci BS
Bonsoir,
quelque chose comme ...
(à placer dans le ThisWorkbook)
Sub test()
acs = ActiveSheet.Name: toto = 0
With Application
.ScreenUpdating = False
.EnableEvents = False
For Each sht In Sheets
sht.Select
toto = toto + .ExecuteExcel4Macro("GET.DOCUMENT(50)")
Next sht
Sheets(acs).Select
.EnableEvents = True
.ScreenUpdating = True
End With
MsgBox toto & " pages"
End Sub
@+
FxM
bsh77 wrote:
Bonsoir,
Je fais encore appel à vos connaissances, voici ma question : Comment avoir
le nombre total de pages à imprimer d'1 classeur contenant plusieurs
feuilles.
(à placer dans le ThisWorkbook) Sub test() acs = ActiveSheet.Name: toto = 0 With Application .ScreenUpdating = False .EnableEvents = False For Each sht In Sheets sht.Select toto = toto + .ExecuteExcel4Macro("GET.DOCUMENT(50)") Next sht Sheets(acs).Select .EnableEvents = True .ScreenUpdating = True End With MsgBox toto & " pages" End Sub
@+ FxM
bsh77 wrote:
Bonsoir,
Je fais encore appel à vos connaissances, voici ma question : Comment avoir le nombre total de pages à imprimer d'1 classeur contenant plusieurs feuilles.
