Supprimer un message
Raison de suppression du message (envoyée à l'utilisateur)

Voulez vous réellement supprimer ce message?  


ebdalaoueb
Tu peux vite faire une Macro

Option Explicit

Public Sub Copy()
CopySheet "Sheet1", 99
End Sub

Private Sub CopySheet(SheetName As String, NbCopy As Integer)
Dim i As Integer
For i = 1 To NbCopy
Sheets(SheetName).Copy After:=Sheets(Sheets.Count)
Next i
End Sub


Le problème c'est que là tu crées les feuilles dans ton document. Blietaer veut incrémenter son numéro de page à l'impression.
Il faut donc incrémenter le footer (ici j'ai mis le numéro de page à droite...) et on lance l'impression

  1. Rep = InputBox("Copie multiple""Nombre de pages à imprimer"1
  2. If Rep < 1 Then Exit Sub 
  3. For NPage = 1 To Rep     
  4.     With ActiveSheet.PageSetup 
  5.         .RightFooter = NPage 
  6.     End With 
  7.     ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True 
  8. Next 
  9. End Sub


J'avoue, google est mon ami...Il y avait un bon début de réponse ici
Informaticien.be - © 2002-2024 AkretioSPRL  - Generated via Kelare
The Akretio Network: Akretio - Freedelity - KelCommerce - Votre publicité sur informaticien.be ?