Boucle sur une des conditions du TCD

Salut,

J'ai une multitude de fichiers qui contiennent chacun plusieurs TCD (les TCD sont tous définis de la même manière et se trouve tous dans un onglet contenant dans le nom "Pivot Table".)

Une des conditions variable est la Température.

Je souhaiterais imprimer pour chaque TCD la globalité de l'onglet pour chaque température.

Mon problème actuel est de lui faire faire une boucle sur cette condition (il selectionne la première température et il imprime, puis il selectionne la 2ème temp. et il imprime, etc.).

Comme je ne suis pas sur d'être très clair, ci joint un fichier exemple.

Fab

Lien vers le fichier : https://www.excel-pratique.com/~files/doc/Fab_02.zip

Resalut,

Pas de proposition ?

Fab

Voila, j'ai apparement trouvé sur un site américain, mais je ne comprend pas vraiment le code :

' Find name of page field

PageField2 = ActiveSheet.PivotTables(1).PageFields(2)

' Save the name of the page field displayed when macro begins

OrigPage = ActiveSheet.PivotTables(1).PivotFields(PageField2) .CurrentPage

' Determine how many pages there are in page field

NumPages = ActiveSheet.PivotTables(1).PivotFields(PageField2) .PivotItems.Count

For i = 1 To NumPages

ThisPage = ActiveSheet.PivotTables(1).PivotFields(PageField2) .PivotItems(i)

ActiveSheet.PivotTables(1).PivotFields(PageField2) .CurrentPage = ThisPage

ActiveWindow.SelectedSheets.PrintOut

Next i

' Print the (all) page

ActiveSheet.PivotTables(1).PivotFields(PageField2) .CurrentPage = "(all)"

'ActiveWindow.SelectedSheets.PrintOut

' Restore view back to original page

ActiveSheet.PivotTables(1).PivotFields(PageField2) .CurrentPage = OrigPage

Fab