Mettre à jour les filtres de rapport de plusieurs TCD en même temps

[ST33V]

Bonjour à tous,

Vous trouverez en PJ mon exemple à partir du quel je vais vous epxliquer mon problème.

Voila j'aimerai qu'en changeant la valeur en "A2", que les Service de Réception.Services se mettent à jour automatiquement.

Mais lorsque j'exécute ce code, trouvé sur votre forum :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$2" Then
For i = 1 To PivotTables.Count
ActiveSheet.PivotTables(i).PivotFields("[Service de Réception].[Services].[Services]").CurrentPage = Target.Text
Next
End If
End Sub

Mais à l'exécution j'ai le message d'erreur suivant :

Impossible de définir la propriété CurrentPage de la classe PivotField

Merci d'avance.

 

[ST33V]

Re : Mettre à jour les filtres de rapport de plusieurs TCD en même temps

Personne pour m'aider ?