c'est une valeur possible de ton champ Page, ça ?? ça sent le BI à plein nez...
peut être :
Code:
Dim An as long, Mo as long
An = 2009
Mo = 1
ActiveSheet.PivotTables("TCD").PivotFields("[Temps].[Annee - Mois]"). _
CurrentPageName = "[Temps].[Annee - Mois].[Annee].&[" & An & "].&[" & Mo & "]"