Supprimer un 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
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
- Rep = InputBox("Copie multiple", "Nombre de pages à imprimer", 1)
- If Rep < 1 Then Exit Sub
- For NPage = 1 To Rep
- With ActiveSheet.PageSetup
- .RightFooter = NPage
- End With
- ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
- Next
- End Sub
J'avoue, google est mon ami...Il y avait un bon début de réponse ici