XL 2010 VBA Imprimer numéro de page

[ëdes40]

Bonjour les amis, je bloque sur un fichier
je vous ai mis en PJ un fichier qui s'imprime sur deux pages
Je voudrais imprimer un cahier de n pages et imprimer le numéro des pages en bas de page ou dans une cellule du bas
par exemple Page1/50, page 2/50...
J'ai trouvé une macro mais qui ne marche que sur une seule page, avec par exemple la cellule H29
mais sans le /50.
Si vous avez un peu de temps pour vous y pencher je vous remercie d'avance
ou si vous connaissez un lien de discussion
Eric

la macro que j'ai trouvé :

La macro dans ThisWorkbook :

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Cancel = True
Imprimer
End Sub

Et dans Module1 :

Sub Imprimer()
Dim n As Variant
1 n = InputBox("Nombre de copies :", "Imprimer")
If n = "" Then Exit Sub
If Val(n) = 0 Then GoTo 1
Application.EnableEvents = False 'évite le lancement de BeforePrint
With ActiveSheet
For n = 1 To Val(n)
.[H29] = .[H29] + 1 'numérotation
.PrintOut
Next
End With
Application.EnableEvents = True
End Sub

 

[cathodique]

Bonjour,

à tester

Sub Imprimer()
   Dim n As Variant
1  n = InputBox("Nombre de copies :", "Imprimer")
   If n = "" Then Exit Sub
   If Val(n) = 0 Then GoTo 1
   Application.EnableEvents = False   'évite le lancement de BeforePrint
   With ActiveSheet
      .PageSetup.RightFooter = "Page &P / &N"   'numerotation page
      For n = 1 To Val(n)
         .[H29] = .[H29] + 1   'numérotation
         .PrintOut
      Next
   End With
   Application.EnableEvents = True
End Sub

 

[ëdes40]

Bonjour Cathodique, merci pour ton essai
Mais j'ai toujours le même souci, la numérotation se fait uniquement sur la première page, et toute les pages impaires
sur la une 1/2, sur la 2, rien, sur la 3, 1/2, sur la 4, rien, ...

 

[cathodique]

Hé, oui. Est-ce que ton code imprime plusieurs?
Il m'imprime que la feuille active.
Il faut boucler sur toutes les feuilles à imprimer.

 

[ëdes40]

Les deux feuilles sont bien imprimées
mais seule la première est numérotée et sur chaque copie 1/2