Forcer via VBA la valeur d'un champ page

Bonjour le Monde,
J'espère que vous allez bien !
24 heures que je me casse les dents sur une bêtise ==> Question !
Mon code "horriblement compliqué" :)

Code:

---

1 2 3 4

Private Sub Worksheet_Activate() ActiveSheet.PivotTables("TcdVentes").PivotFields("DateV").ClearAllFilters ActiveSheet.PivotTables("TcdVentes").PivotFields("DateV").CurrentPage = "10/10/17" End Sub

---

La dernière ligne (avant End Sub, évidemment) me retourne invariablement "Erreur 1004"
Merci d'empêcher de me pendre ou d'utiliser le gaz au risque de faire exploser la baraque :lol:
Bonne journée,
Daniel