XL 2010 VBA Imprimer numéro de page

ëdes40

XLDnaute Nouveau
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
 

Pièces jointes

  • Cahier suivi plaquettes.xlsm
    83.8 KB · Affichages: 6

cathodique

XLDnaute Barbatruc
Bonjour,

à tester
VB:
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
 

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 949
Membres
101 851
dernier inscrit
vaiata