XL 2010 Filtrer TCD entre 2 Dates

[sams96]

Bonjour a tous ,
Je cherche à filtrer tous les TCD de mon classeur entre 2 dates , mais malheureusement quand j 'exécute ma macro , je tombe sur l'erreur "1004"" La méthode ADD2 de l'Objet Pivotfilters a échoué "
Est ce qu'il serait possible de m'aider à résoudre ce problème .
Je vous remercie d'avance .

Sub actiu()

Dim Sheet As Worksheet, pi As PivotTable, pd As PivotField
Dim pvI As PivotItem
For Each Sheet In ThisWorkbook.Worksheets
 For Each pi In Sheet.PivotTables
   Set pd = pi.PivotFields("date annonce")
   pd.ClearAllFilters
   pd.PivotFilters.Add2 Type:=xlDateBetween, Value1:="04/01/2014", Value2:= _
        "12/01/2019"
 
  
Next
Next
End Sub

 

[Hasco]

bonjour,

Je travail également sous excel 2010 et n'ai aucune méthode Add2 comme membre de l'objet PivotFilters.
Méthode Add Oui mais Add2 Non.

Chez moi cette ligne fonctionne depuis des années ou début et fin sont des dates bien entendu :

.PivotFilters.Add Type:=xlDateBetween, Value1:=Format(Debut,"dd/mm/yyyy"), Value2:=Format(Fin,"dd/mm/yyyy")

Bonne soirée