VBA Récupérer valeurs sélectionnées d'un filtre

Bonjour,

J'aimerais savoir si il existe un code VBA pour récupérer les valeurs d'un filtre (filtre issu d'un graphique croisé dynamique (filtre du rapport))

Pour ensuite récupérer les données et les inscrire dans le titre d'un graphique car à l'heure actuelle c'est "(Plusieurs éléments)" qui s'affiche..

Merci d'avance

Pour ceux qui souhaitent j'ai trouvé :

Dim SelectedItems As String ' Liste des items sélectionnés

With ActiveSheet.PivotTables("Tableau croisé dynamique 1").PivotFields("Semaine") 'mettre le filtre que vous souhaité

For i = 1 To .PivotItems.Count

If .PivotItems(i).Visible = True Then

SelectedItems = SelectedItems + "-" + .PivotItems(i)

End If

End With