Bonjour,
Je me suis fait avoir comme un bleu. Ci-contre un extrait de code fonctionnel :
With ActiveSheet.PivotTables("Tableau croisé dynamique1")
.PivotFields("D Chargt").ClearAllFilters
.PivotFields("D Chargt").CurrentPage = Date1ereVague
.PivotFields("D Mag").ClearAllFilters
.PivotFields("D Mag").CurrentPage = Date1ereVague
.PivotCache.Refresh
End With
Je ne sais pas comment est réellement votre export, mais vous avez des soucis de formats/espaces.
En effet dans l'extract les "dates" sont en réel un texte avec un espace devant. Donc dans la plage de TCD il est nécessaire de restituer cet espace et d'écrire la "date" sous le format " jj/mm/aa" par exemple " 11/03/21".
Après à vous de voir si vous souhaitez modifier les dates de l'extract, ce que je conseille fortement si l'on veut filtrer sur des périodes.
Cdlt,
Edit : Déclarez du coup vos variables As String ici car ce ne sont pas des dates.