[XL-2010] Recuperation de la valeur d'un filtre TCD en VBA

[lcolombain]

Bonjour,

J'ai crée un TCD sous Excel 2010 avec un cube OLAP.
Je souhaite récuperer la valeur de mon filtre dans le VBA.

Exemple

Filtre : Prog1


Rubrique valeur
Charges 10
Recette 15

J'ai execute ce code

Code :

1
2
3
4
5
6
7
8
9
10
 
For Each pvt In ActiveSheet.PivotTables
        For Each fld In pvt.PivotFields
            For Each itm In fld.PivotItems
 
                MsgBox itm
 
            Next itm
        Next fld
    Next pvt

Avec ce code, j'ai les valeurs suivantes Charges, Recette, Prog1 (la valeur du filtre), et valeur.

Comment puis je faire pour récupérer uniquement Prog1 (la valeur du filtre du TCD)?

Merci par avance