Macro impression qui bug

[Bernard-Louis]

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

 

[Staple1600]

Re : Macro impression qui bug

Bonjour


Tu n'as pas renommé cette feuille récemment?
Worksheets("tc envoi")

 

[Bernard-Louis]

Re : Macro impression qui bug

Je te remercie Staple1600, c'est effectivement ça, quelqu'un a renomer les feuilles.
Mais quand je demande, c'est comme d'hab = personne.
Merci encore et bonne journée.

 

[Bernard-Louis]

Re : Macro impression qui bug

Une derniere question ,
Comment peut on modifier la macro pour imprimer seulement de la page X a la page Y

Nbre_Pages = Worksheets("tc envoi").Range("A31").Value

De A31 =page 57
A à A33 = page 61
Merci

 

[kiki29]

Re : Macro impression qui bug

Jour Bon, pour la dénomination des feuilles et pour éviter ce genre de gag
http://cjoint.com/?bCpvIujUTQ

 

[Bernard-Louis]

Re : Macro impression qui bug

Merci kiki29, la modif est faite.