Mise à jour filtre d'un TCD

Question

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!!...

Dan · Answer

Faudrait voir le fichier... Cordialement...