OLAP Filtre - Element not found - VBA

Bonjour, je cherche a faire des filtres sur un TCD OLAP en VBA, or impossible de faire réference aux élements de mon filtre :

Par exemple pour un élement "test" :

pf.VisibleItemsList = Array("test")

Erreur : Element OLAP not found.

Quand je regarde en détails, l'element test sort en integer, de meme que tout les élements, je peux donc filtrer avec cet integer :

Code:

---

1 2 3 4 5 6

For Each pf In ThisWorkbook.Sheets("NAV").PivotTables("Tableau croisé dynamique1").PageFields If pf.Name = "[D_MAGASINS].[D_MAGASINS_D_ID_MAGASINS].[D_MAGASINS_D_ID_MAGASINS]" Then pf.VisibleItemsList = Array("[D_DATE_K_DATE].[D_DATE_D_ID_DATE].&[36797]", _ "[D_DATE_K_DATE].[D_DATE_D_ID_DATE].&[36890]") End if next pf

---

Pièce jointe 528161

Je ne possède donc que les noms des élements, comment trouver les integer pour filtrer avec ? Ou si vous avez une autre solution ?

Merci beaucoup,

Hedi F.