Appliquer un filte sur un TCD connecté à une source OLAP en utilisant VBA
Bonsoir à tous,
Je suis débutant en VBA et je suis venu pour éspèrer votre aide.
Mon problème est comme suit :
Je souhaite appliquer un filtre sur un TCD connecté à une source de données OLAP (SSAS). Quand j'enregistre la macro, j'obtiens le code ci-dessous:
Code:
1
2
3
4
5
6
7
|
sub Macro1
ActiveSheet.PivotTables("tcd").PivotFields( _
["[COUNTRY].[CITY]").CurrentPageName = _
"[COUNTRY].[CITY].&[124]"
end sub |
Cela fonctionne correctement. Sauf que moi j'ai besoin de filter en utilisant une valeur "paris" : "[COUNTRY].[CITY].&[paris]". et non pas l'id "[COUNTRY].[CITY].&[124]".
J'ai essayé les syntaxes ci-dessous aucune d'eux marche :
Code:
1
2
3
4
5
6
|
sub Macro1
ActiveSheet.PivotTables("tcd").PivotFields( _
["[COUNTRY].[CITY]").CurrentPageName = _
"[COUNTRY].[CITY].&[Paris]"
end sub |
Code:
1
2
3
4
5
6
|
sub Macro1
ActiveSheet.PivotTables("tcd").PivotFields( _
["[COUNTRY].[CITY]").CurrentPageName = _
"[COUNTRY].[CITY].[Paris]"
end sub |
Votre aide est très appréciée.
Merci d'avance.
