Bonjour,

J'utilise ce code afin d'obtenir la valeur max de ma chronologie :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
Private Sub worksheet_PivotTableUpdate(ByVal Target As PivotTable)
    Worksheets("Feuil1").activate
    Range("A1").Select
    Selection.Value = ActiveWorkbook.SlicerCaches(1).TimelineState.FilterValue2
End Sub
Mais je me retrouve confronté à un message d'erreur 1004
erreur définie par l'application ou l'objet
Pour information j'ai deux feuilles. La "Feuil 1" contient 7 TCD et la "feuil2" contient 7 segments et la chronologie (dont je veux récupérer la valeur max).
Tous les segments sont connectés avec chacun des TCDs.

Avez-vous une idée d'où peux provenir l'erreur ?

Merci de votre retour !

Nom : macro erreur.png
Affichages : 261
Taille : 9,5 Ko
Nom : macro.png
Affichages : 249
Taille : 7,8 Ko
Nom : message erreur.png
Affichages : 245
Taille : 5,0 Ko
Nom : feuil1.png
Affichages : 258
Taille : 29,1 Ko
Nom : Feuil 2.png
Affichages : 244
Taille : 38,9 Ko