J'ai le code suivant qui permet de compter le nombre de pages imprimées sur ma feuille de calcul sous la forme d'une formule :
Function PageCount() As String
Application.Volatile
PageCount = ExecuteExcel4Macro("GET.DOCUMENT(50)")
End Functionmais lorsque je tape la formule PageCount() sur une formule excel, il fait toujours un #VALUE! return, alors que je m'attends à obtenir un entier. Quelle est l'erreur dans mon code ?
SOLVÉ
Voici le code que j'ai écrit pour compter les pages imprimées qui fonctionnent sur une Fonction
Function PageCount()
Dim wks As Worksheet
Dim iHorPgs As Integer
Set wks = ActiveSheet
iHorPgs = wks.HPageBreaks.Count + 1
PageCount = iHorPgs
End FunctionNote : Ce code ne s'applique qu'à une feuille de calcul dont les pages sont verticales, et non horizontales comme sur l'image.
SystemesEZ est une communauté de sysadmins où vous pouvez résoudre vos problèmes et vos doutes. Vous pouvez consulter les questions des autres sysadmins, poser vos propres questions ou résoudre celles des autres.
