Bernard-Louis
XLDnaute Occasionnel
Bonjour le forum,
J'ai cette macro qui imprime toutes les pages d'un Tableau Croise Dyn sur l'imprimante par defaut il y a 229 pages a imprimer.
La macro complete est :
Private Sub impression()
Dim Nbre_Pages As Integer
Nbre_Pages = Worksheets("tc envoi").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
La macro bug sur cette ligne :
Nbre_Pages = Worksheets("tc envoi").Range("A31").Value
A priori je ne vois pas la raison car le code a toujours bien fonctionne jusqu' a présent.
Si quelqu'un a une solution, je suis preneur.
Merci
J'ai cette macro qui imprime toutes les pages d'un Tableau Croise Dyn sur l'imprimante par defaut il y a 229 pages a imprimer.
La macro complete est :
Private Sub impression()
Dim Nbre_Pages As Integer
Nbre_Pages = Worksheets("tc envoi").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
La macro bug sur cette ligne :
Nbre_Pages = Worksheets("tc envoi").Range("A31").Value
A priori je ne vois pas la raison car le code a toujours bien fonctionne jusqu' a présent.
Si quelqu'un a une solution, je suis preneur.
Merci