Bonjour,
Je voudrais grâce à VBA appliquer la valeur d'une cellule au filtre du TCD.
En A1 de ma feuille, j'ai 2017W41 (semaine 41 de l'année de 2017), le filtre de mon TCD est aussi sous ce format là (je dois actualiser hebdomadairement plusieurs TCD et filtrer la semaine en question, je perds beaucoup de temps).
J'ai commencé quelques chose mais ça ne donne rien.
Sheets("Feuil1").Select
ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotCache.Refresh
ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("Date_").PivotItems(Range("A1")).Visible = True
Merci d'avance pour votre aide.
Cordialement,
Simon
Je voudrais grâce à VBA appliquer la valeur d'une cellule au filtre du TCD.
En A1 de ma feuille, j'ai 2017W41 (semaine 41 de l'année de 2017), le filtre de mon TCD est aussi sous ce format là (je dois actualiser hebdomadairement plusieurs TCD et filtrer la semaine en question, je perds beaucoup de temps).
J'ai commencé quelques chose mais ça ne donne rien.
Sheets("Feuil1").Select
ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotCache.Refresh
ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("Date_").PivotItems(Range("A1")).Visible = True
Merci d'avance pour votre aide.
Cordialement,
Simon