[EXCEL - VBA]Macro pour filtrer un tableau croisé dynamique

Signaler
Messages postés
46
Date d'inscription
vendredi 2 novembre 2007
Statut
Membre
Dernière intervention
29 février 2012
-
Bonjour à tous,

Voici mon problème, à l'aide d'une macro enregistré, j'ai développé une application qui me permettait de sélectionner une date précise pour filtrer mon tableau. Voila le code :

    ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
        "[DATE].[Annee - Semaine - Date].[Annee ISO]").VisibleItemsList = Array( _
        "[DATE].[Annee - Semaine - Date].[Annee ISO].&[2011]")
    ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
        "[DATE].[Annee - Semaine - Date].[Semaine Annee]").VisibleItemsList = Array("")
    ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
        "[DATE].[Annee - Semaine - Date].[Date]").VisibleItemsList = Array("")


Maintenant je voudrai rajouter un filtre, en sélectionnant des filières. J'ai donc fait une macro enregistré qui me donne ceci :

   ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
        "[FILIERE TRANSPORT].[Code Filiere].[Code Filiere]").ClearAllFilters
    ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
        "[FILIERE TRANSPORT].[Code Filiere].[Code Filiere]").CurrentPage = _
        "[FILIERE TRANSPORT].[Code Filiere].&[FT006]"


Le problème c'est qu'on me renvoie ce message d'erreur :

Erreur d'exécution '1004'

Impossible de définir la propriété CurrentPage de la classe PivotField


J'ai utilisé exactement la même procédure pour faire mes macros, la seul chose qui changent entres les dates et les filières est ceci :

http://imageshack.us/photo/my-images/839/sanstitrefsu.jpg/

Cordialement