1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
| Private Sub impression()
Dim Nbre_Pages As Integer
Nbre_Pages = Worksheets("Edition").Range("A31").Value
Range("A18:H24").Select
ActiveSheet.PivotTables("Tableau croisé dynamique1").RefreshTable
For i = 1 To Nbre_Pages
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("PAGE"). _
CurrentPage = i
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Next i
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("PAGE"). _
CurrentPage = "1"
End Sub |
Partager