Modification macro pour imprimer de telle a telle page
Bonjour le forum,
J'ai besoin de votre aide, car actuellement on imprime par rapport a la cellule A31 qui indique 235 pages. Je désire modifier cette macro (si c’est possible) pour que l’on puisse imprimer de telle page a telle page sans avoir a imprimer la totalite.
Que faut il ajouter ou modifier pour cela.
Merci pour l’aide.
Code:
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 |
