With ActiveSheet.PivotTables("ConsultantsDOC" ).PivotFields("Période" )
Ø .PivotItems(PERIODEANNEEP).Visible = False
.PivotItems(PERIODEANNEE).Visible = True
End With
Il me semble que le problème soit issu du format date lui-même. En effet, j'ai testé et cela fonctionne quand le "Pivotitem" est avec des lettres ou encore des chiffres.
Attention, je n'ai pas défini en amont les variables, ni leur format.
J'ai essayé en modifiant le format du champ qui m'interresse du format "date" au format "string" et, ceci même dans la base de données du TCD ...
Cela bute toujours.
Comment puis-je pallier à ce problème tout en conservant le format date (si possible) ?
Marsh Posté le 18-06-2009 à 16:51:05
Bonjour,
Je souhaite réaliser une action assez spécifique en macro et je n’y parviens pas, je me permets donc de poster cette question.
Merci d’avance pour vos réponses.
L’action que je souhaite réaliser est la suivante :
J’ai mis en place une macro afin qu’au sein d’un TCD, je désélectionne la période du 30/04/08 et que parallèlement je sélectionne celle du 30/04/09.
Ces dates ont été identifiées en amont dans ma macro (respectivement PERIODEANNEEP et PERIODEANNEE).
Mais cela bute à ce niveau :
Rows("18:18" ).Select
Selection.NumberFormat = "General"
ActiveSheet.PivotTables("ConsultantsDOC" ).PivotCache.Refresh
With ActiveSheet.PivotTables("ConsultantsDOC" ).PivotFields("Période" )
Ø .PivotItems(PERIODEANNEEP).Visible = False
.PivotItems(PERIODEANNEE).Visible = True
End With
Il me semble que le problème soit issu du format date lui-même. En effet, j'ai testé et cela fonctionne quand le "Pivotitem" est avec des lettres ou encore des chiffres.
Attention, je n'ai pas défini en amont les variables, ni leur format.
J'ai essayé en modifiant le format du champ qui m'interresse du format "date" au format "string" et, ceci même dans la base de données du TCD ...
Cela bute toujours.
Comment puis-je pallier à ce problème tout en conservant le format date (si possible) ?
Merci.