TCD Automatique

Bonjour,

J'ai besoin de créer plusieurs Tableaux Croisés Dynamiques de façon automatique avec des filtres variables (dont je connais les valeurs)

Voici l'exemple de code que je voudrai avoir de façon variable

With ActiveSheet.PivotTables("Tableau croisé dynamique8").PivotFields( _
"Num Semaine")
.PivotItems("1").Visible = False
.PivotItems("2").Visible = False
.PivotItems("3").Visible = False
.PivotItems("4").Visible = False
.PivotItems("5").Visible = False
.PivotItems("47").Visible = False
.PivotItems("48").Visible = False
.PivotItems("49").Visible = False
End With

Dans cet exemple toutes les semaines existantes sont: 1; 2; 3; 4; 5; 47; 48; 49; 50; 51;52 et j'ai besoin de filtrer sur les semaines 50; 51; 52. Une autre fois j'aurais besoins des semaines: 47; 48; 49.

Voici ma problématique, je ne sais pas par quel bout commencé ce Pb.

J'ai joint la macro d’exécution.

Cordialement

Jean-François