Macro pour Imprimer TCD pour chaque Item de champ de page

Salut,

clic droit, dans le tcd, afficher les pages, les sélectionner et imprimer,
(et éventuellement les supprimer après)
a+
rural thierry


"René Delcourt" <RenDelcourt@discussions.microsoft.com> a écrit dans le
message de news: 3384F05D-D493-4ED6-8688-9AE7F3B300BF@microsoft.com...

Bonjour,
Oui, je sais, cela existe quelque part.
Cela fait une heure que je cherche et je me résouds à faire appel à vous
pour m'éclairer.
--
René Delcourt

Merci pour cette réponse.
J'attendais un script (qui existe quelque part) qui activait chaque Item du
champ de page du TCD et imprimait la zone d'impression qui est plus large que
le TCD (autres données à imprimer).
--
René Delcourt


"ru-th" wrote:

Salut,

clic droit, dans le tcd, afficher les pages, les sélectionner et imprimer,
(et éventuellement les supprimer après)
a+
rural thierry


"René Delcourt" <RenDelcourt@discussions.microsoft.com> a écrit dans le
message de news: 3384F05D-D493-4ED6-8688-9AE7F3B300BF@microsoft.com...

Bonjour,
Oui, je sais, cela existe quelque part.
Cela fait une heure que je cherche et je me résouds à faire appel à vous
pour m'éclairer.
--
René Delcourt

OK J'ai trouvé sur http://www.mrexcel.com/tip026.shtml
Sub PrintAll()
' Find name of page field
PageField1 = ActiveSheet.PivotTables("PivotTable1").PageFields(1)
' Save the name of the page field displayed when macro begins
OrigPage =
ActiveSheet.PivotTables("PivotTable1").PivotFields(PageField1).CurrentPage
' Determine how many pages there are in page field
NumPages =
ActiveSheet.PivotTables("PivotTable1").PivotFields(PageField1).PivotItems.Count
For i = 1 To NumPages
ThisPage =
ActiveSheet.PivotTables("PivotTable1").PivotFields(PageField1).PivotItems(i)

ActiveSheet.PivotTables("PivotTable1").PivotFields(PageField1).CurrentPage =
ThisPage
ActiveWindow.SelectedSheets.PrintOut
Next i
' Print the (all) page

ActiveSheet.PivotTables("PivotTable1").PivotFields(PageField1).CurrentPage =
"(all)"
ActiveWindow.SelectedSheets.PrintOut
' Restore view back to original page

ActiveSheet.PivotTables("PivotTable1").PivotFields(PageField1).CurrentPage =
OrigPage
End Sub


--
René Delcourt

Salut,

clic droit, dans le tcd, afficher les pages, les sélectionner et imprimer,
(et éventuellement les supprimer après)
a+
rural thierry


"René Delcourt" <RenDelcourt@discussions.microsoft.com> a écrit dans le
message de news: 3384F05D-D493-4ED6-8688-9AE7F3B300BF@microsoft.com...

Bonjour,
Oui, je sais, cela existe quelque part.
Cela fait une heure que je cherche et je me résouds à faire appel à vous
pour m'éclairer.
--
René Delcourt