Excel 2007 - Rechercher valeur dans filtre du rapport (TDC)

Bonjour tout le monde,

J'ai un petit souci avec un bout de code qui devrait faire le 'check' si un élément est bien inclus dans le filtre du rapport d'un TCD (je dois vérifier si une équipe un dans la liste). J'ai déjà essayé le DataFields.pvtField / CurrentPage.Name / CurrentPageList. Mais rien fonctionne. Je ne reçois pas de bug donc c'est clairement une faute logique. En annexe ce que j'ai déjà pu faire (mais fonctionne pas).

 
i = 2
Do Until IsEmpty(Sheets("Service").Cells(i, 1))
nom_equipe = Sheets("Service").Cells(i, 1).Value

If Sheets("Table").PivotTables("TCD_BKS").PivotFields("Service").CurrentPage.Name = nom_equipe Then ''<-- Le probleme est ici

   Sheets("Table").PivotTables("TCD_ADH").PivotFields("Service").ClearAllFilters
   Sheets("Table").PivotTables("TCD_ADH").PivotFields("Section").ClearAllFilters
   Sheets("Table").PivotTables("TCD_ADH").PivotFields("Service").CurrentPage = nom_equipe
   Sheets("Overview").Shapes("Txt_PasdeDonn_ADH").Visible = 0

Else: Sheets("Overview").Shapes("Txt_PasdeDonn_ADH").Visible = 1

End If

i = i + 1
Loop 

Si quelqu'un pourrait m'aider, ça serait genial!

Merci!

Bonjour GuillaumeC86,

Sans fichier

As-tu pensé à déclarer nom_équipe en 'String'?

Cdlt

Bonjour tous!

J'ai une bonne nouvelle! J'ai trouvé la réponse! Il fallait simplement

@ Jean Eric, j'ai déclaré nom_equipe comme global variant

'Creer le loop qui contient les choix pour la service
    Call Create_Folder

    i = 2
    Do Until IsEmpty(Sheets("Service").Cells(i, 1))

            nom_equipe = Sheets("Service").Cells(i, 1).Value
            Sheets("Table").Select

            Dim PvtTbl_BKS As PivotTable
            Dim PvtTbl_ADH As PivotTable
            Dim pvtItm As PivotItem

        '------------------------
        'BKS
            Set PvtTbl_BKS = Worksheets("Table").PivotTables("TCD_BKS")
            For Each pvtItm In PvtTbl_BKS.PivotFields("Service").PivotItems

                If pvtItm.Value = nom_equipe Then
                    Sheets("Table").PivotTables("TCD_BKS").PivotFields("Service").ClearAllFilters
                    Sheets("Table").PivotTables("TCD_BKS").PivotFields("Section").ClearAllFilters
                    Sheets("Table").PivotTables("TCD_BKS").PivotFields("Service").CurrentPage = nom_equipe
                    Sheets("Overview").Shapes("Txt_PasdeDonn_BKS").Visible = 0
                    Exit For
                Else: Sheets("Overview").Shapes("Txt_PasdeDonn_BKS").Visible = 1
                End If

            Next pvtItm