Code VBA - positionner au premier choix d'un filtre dans un TCD

Bonjour

Comment écrire un code dans VBA qui , Dans un TCD , permet de se positionner au premier choix d'un filtre.

Merci pour votre aide

Bonsoir

En fin c'est resolu :ccool:

Code:

---

1 2 3 4 5

With .PivotFields("DATE EXPORT" ) .Orientation = xlPageField .Position = 1 .EnableMultiplePageItems = True End With

---