Discussion :

[hedidev1]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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.