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 : 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
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 : 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

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.
Merci d'avance.