Modifier un filtre sur plusieurs TCD

Bonjour,

C'est enfin à mon tour de poster une demande après les nombreuses solutions que vous avez déjà apporté. Mais là je ne trouve pas ma réponse je vous expose donc mon problème.

J'ai un fichier avec 15 onglets. Chacun de ces onglets contient un TCD sur le même format avec des clés de trie différentes mais aussi des clés de trie communes par exemple le mois de sélection.
Je recherche la façon de mettre à jour tous les onglets pour un mois défini par un msg box par exemple.
J'ai commencé par enregistrer dans une macro la mise à jour de chacun de ces onglets. Ensuite dans la macro j'ai juste change le mois mais cela ne fonctionne pas. Le mois changer est en Rouge
ca donne cela
[Sheets("Detail Visible2").Select
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
"[Périodes].[Périodes]").CurrentPage = _
"[Périodes].[Périodes].[Année].&[2011].[6]"
Sheets("Detail Visible3").Select
Range("D12").Select
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
"[Périodes].[Périodes]").CurrentPageName = _
"[Périodes].[Périodes].[Année].&[2011].[6]"I][/I]

Merci de votre aide