PIVOTFILTERS

Bonjour,

Je suis en Excel 2010.

Je parcours les forums et ne comprends toujours pas pourquoi mon filtre VBA ne fonctionne pas.

En cliquant sur un bouton, je souhaite appliquer un filtre à un TCD.

Voici mon scrit :

Sub Bouton1_Cliquer() 

    ' ping_S3
    Set pt6 = Feuil29.PivotTables(1)
    Dim Var_Filter_Ping_S3 As PivotField
    Set Var_Filter_Ping_S3 = Feuil29.PivotTables(1).PivotFields("File")
    Var_Filter_Ping_S3.ClearAllFilters
    Var_Filter_Ping_S3.PivotFilters.Add Type:=xlValueEquals, Value1:="A"
    pt6.RefreshTable

End Sub

Cette ligne me renvoie l'erreur d'execution 5 : "Argument ou appel de procedure incorrect"

Var_Filter_Ping_S3.PivotFilters.Add Type:=xlValueEquals, Value1:="A"

J'ai essayé plusieurs syntaxes. TOujours la même erreur.

Votre aide serait précieuse..