Bonjour à tous,
J'ai un tcd comportant un filtre de rapport permettant de choisir des dates.
Je voudrais qu'à l'ouverture du classeur ce filtre présélectionne la plus récente des dates.
Cette date (ex: mar 22/04/2014) se situe dans un range nommé MaxDate
J'ai donc écrit :
Dim Madate
Sheets("Tb01").Select
Madate = Format(Range("MaxDate"), "ddd dd/mm/yyyy")
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("DATE"). _
ClearAllFilters
ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("DATE"). _
DataRange = Madate
Mais ça ne marche pô.
Merci par avance de vos lumières.
Bonne soirée,
François
J'ai un tcd comportant un filtre de rapport permettant de choisir des dates.
Je voudrais qu'à l'ouverture du classeur ce filtre présélectionne la plus récente des dates.
Cette date (ex: mar 22/04/2014) se situe dans un range nommé MaxDate
J'ai donc écrit :
Dim Madate
Sheets("Tb01").Select
Madate = Format(Range("MaxDate"), "ddd dd/mm/yyyy")
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("DATE"). _
ClearAllFilters
ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("DATE"). _
DataRange = Madate
Mais ça ne marche pô.
Merci par avance de vos lumières.
Bonne soirée,
François