Se connecter  
Suivez Informaticien.be sur Facebook  Suivez Informaticien.be sur Twitter  Suivez le Podcast Les Technos sur YouTube  Suivez le Podcast Les Technos sur iTunes  Suivez Informaticien.be via RSS
Supprimer un message
Raison de suppression du message (envoyée à l'utilisateur)

Voulez vous réellement supprimer ce message?  


ebdalaoueb
Citation de: Pinou
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

Spoiler:
Code:
  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 ?