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:
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]".
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7 sub Macro1 ActiveSheet.PivotTables("tcd").PivotFields( _ ["[COUNTRY].[CITY]").CurrentPageName = _ "[COUNTRY].[CITY].&[124]" end sub
J'ai essayé les syntaxes ci-dessous aucune d'eux marche :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6 sub Macro1 ActiveSheet.PivotTables("tcd").PivotFields( _ ["[COUNTRY].[CITY]").CurrentPageName = _ "[COUNTRY].[CITY].[Paris]" end sub
Merci d'avance.
Partager