Actions sur les filtres d'un Cube par VBA

Bonjour à toutes et à tous,

je souhaite autoriser la multi sélection d'un champ de la zone de filtres d'un cube (en tout environ 40 champs).

J'ai tout d’abord effectué la manipulation en utilisant l'enregistreur de macro et j'ai obtenu :

Sub Macro1()
' Macro1 Macro
' activation sélection multiple dans champ IDENT de la zone filtre du rapport
'
    ActiveSheet.PivotTables("Tableau croisé dynamique2").CubeFields(1). _
        EnableMultiplePageItems = True
    ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields( _
        "[DimAgent].[IDENT].[IDENT]").VisibleItemsList = Array("")
End Sub

Après avoir fermé et réouvert Excel et le Cube, et m'être assuré que la feuille active était bien la bonne, j'ai lancé Macro1, et là Erreur 1004 au niveau de la première instruction !

Quelqu'un saurait-il me dire pourquoi la macro enregistrée ne fonctionne pas ? (bug d'Excel 2010 ?)

Je voudrais également savoir comment à partir du nom du filtre ("[DimAgent].[IDENT].[IDENT]") on peut retrouver son index (CubeFields(1))?

Espérant avoir été clair, je vous remercie par avance.

Cordialement.

Bonjour,

Pouvez vous joindre un fichier ? parce que là, c'est compliqué de répondre...

Cordialement