Bonjour,
J'ai un petit problème avec un tableau croisé dynamique que je suis en train de faire en vba.
Je veux ajouter un champ période dans la partie "page" de mon tableau, mais je ne veux pas rendre visible toutes les données mais seulement 1 qui se trouvera dans une cellule de ma feuille de calcul.
J'ai écris le code ci-dessous, mais il ne fonctionne pas avec ma variable "date1".
Il fonctionne avec une date donnée, 01/05/2010 par exemple.
With ActiveSheet.PivotTables("TCD5").PivotFields("Period")
.Orientation = xlPageField
.Position = 1
End With
Dim Date1 As Date
Date1 = Trim(ThisWorkbook.Sheets("Feuil1").Range("I3"))
ActiveSheet.PivotTables("TCD5").PivotFields("Period").CurrentPage = _
"Date1"
Une idée ?
J'ai un petit problème avec un tableau croisé dynamique que je suis en train de faire en vba.
Je veux ajouter un champ période dans la partie "page" de mon tableau, mais je ne veux pas rendre visible toutes les données mais seulement 1 qui se trouvera dans une cellule de ma feuille de calcul.
J'ai écris le code ci-dessous, mais il ne fonctionne pas avec ma variable "date1".
Il fonctionne avec une date donnée, 01/05/2010 par exemple.
With ActiveSheet.PivotTables("TCD5").PivotFields("Period")
.Orientation = xlPageField
.Position = 1
End With
Dim Date1 As Date
Date1 = Trim(ThisWorkbook.Sheets("Feuil1").Range("I3"))
ActiveSheet.PivotTables("TCD5").PivotFields("Period").CurrentPage = _
"Date1"
Une idée ?