Bonjour,

Je suis en train de créer un tableau de bord mensuel se mettant à jour quotidiennement via des Tableaux Croisés Dynamique (TCD).

Ma problématique :
- automatiser la mise à jour des filtres dans mes TCD.

Ce que je n'arrive pas à faire :
Automatiser la mise à jour du filtre en définissant les données à filtrer.

Exemple :
le 5 du mois dans ma colonne "Nom" qui me sert de filtre dans le TDC, j'ai
- titi
- tata
- toto

Dans mon TCD j'ai besoin de filtrer avec les "noms" suivants :
- titi
- tata
- toto
- tutu

Problème "tutu" n'est toujours pas présent le 5 du mois, mais apparaitra plus tard, le 10 du mois par exemple.

Ma question (enfin me direz-vous) :
Est-il possible de définir une liste de "nom" dans une autre feuille pour automatiser la mise à jour du filtre (ce qui m'arrangerait car j'ai plus de 50 TCD avec des filtres différents),
Ou une solution en VBA ?

Le code que j'utilise et qui bien sur ne fonctionne pas :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Sub Macro3()
' Macro3 Macro
    ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Groupe"). _
        CurrentPage = "(All)"
    With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Groupe")
        .PivotItems("toto").Visible = True
        .PivotItems("titi").Visible = True
        .PivotItems("tata").Visible = True
        .PivotItems("tutu").Visible = True
    End With
End Sub
En vous remerciant par avance de votre aide.

Cordialement.