Bonjour a tous,

J'aimerai automatiser un TCD afin de pouvoir filtrer les donnees d'un champ de maniere automatique.

En utilisant l'enregistreur de macro, j'obtiens le code suivant:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
    ActiveSheet.PivotTables("PivotTable1").PivotFields( _
        "[Dim_Countries].[Country_Name].[Country_Name]").VisibleItemsList = Array( _
        "[Dim_Countries].[Country_Name].&[CHILE]")
Mon probleme etant le suivant : je souhaite remplacer le [CHILE] par une variable definie auparavant mais je ne vois pas comment faire.

Si vous avez une solution je suis preneur

Merci

Remi