Discussion :

[kortecs_]

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 ?

[halaster08]

Bonjour,

Si ça marche pour un TCD normal mais pas celui là alors la syntaxe est surement différente
As tu essayé de récupérer la syntaxe correcte via l'enregistreur de macro?

[kortecs_]

halaster08 merciiiiiii !!!!!!!
quel idiot que je suis ... j'y avais pas pensé

ça marche

Pour les prochains la réponse est la suivante :
pour le --> PivotFields("_") , il faut saisir l'intégralité de la dimension

Je m'explique par cet exemple :
j'ai la dimension "date" qui contient les sous dimensions "année", "mois", "jour"

ça donne :

Code :

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

PivotFields("[date].[année].[mois].[jour]").CurrentPage = ActiveSheet.Range("L10").Value

Encore merci halaster08