Mise à jour filtre d'un TCD

Bonjour,

J'ai trouvé un code sur le forum qui doit me permettre de metrre à jour le filtre d'un TCD.

Le filtre doit prendre la valeur qui se trouve dans une autre feuille et mettre à jour le tcd avec cette nouvelle valeur.

Voila le code que j'ai trouvé mais qui ne fonctionne pas :

Private Sub Worksheet_Activate()

Dim i As Integer

Application.ScreenUpdating = False

For i = 1 To 3

ActiveSheet.PivotTables("Tableau croisé dynamique" & i).PivotFields("REGION 04 2017"). _

ClearAllFilters

ActiveSheet.PivotTables("Tableau croisé dynamique" & i).PivotFields("REGION 04 2017"). _

CurrentPage = IIf(Sheets("TDB").Range("B7").Value = "", "(All)", Sheets("TDB").Range("B7").Value)

Next

End Sub

J'ai un message d'erreur : Error - Unable to get the pivottables property of the worksheet class

Quelqu'un peux t-il m'aider? je suis bloqué depuis 2 jours!!!

Bonjour

Faudrait voir le fichier...

Cordialement