Bonjour à tous,

j'ai une fonction qui permet de modifier un filtre sur un TCD en reprenant la valeur d'une cellule,
qui fonctionne parfaitement sur un TCD source standard,
mais qui ne marche pas sur un TCD dont la source est une base OLAP.

La fonction est la suivante :

Dans le TCD nommé "Tableau croisé dynamique2", modifier le filtre "TEST" par la valeur de la cellule D1

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
Sub AUTO()
 
ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("TEST").CurrentPage = ActiveSheet.Range("D1").Value
 
End Sub


L'erreur renvoyée est la 1004 : Impossible de lire la propriété PivotFields de la classe PivotTable

Est ce que quelqu'un saurait m'aider SVP ?