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 : Sélectionner tout - Visualiser dans une fenêtre à part
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