Macro pour filtrer un tableau croisé dynamique

[nyeri]

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 :

ImageShack® - Online Photo and Video Hosting

Cordialement