tableau croisé dynamique
Bonjour,
j'ai un tableau croisé dynamique avec un champ "Date" et j'aimerai changer
les données
de chaques Items afin d'avoir l'exercice fiscal sous la forme "2002-2003"
par exemple.
En sachant que la date de cloture est le 31 mars.
Pour cela j'ai écrit la macro suivante :
1 Dim exercice As String
2 Dim DateFacture As Date
3 Dim ItemCount As Integer
4 ItemCount =
Worksheets(1).PivotTables(1).PivotFields("Date").P ivotItems.Count
5 For l = 1 To ItemCount
6 DateFacture =
Worksheets(1).PivotTables(1).PivotFields("Date").P ivotItems(l).Name
7 If Day(DateFacture) <= 31 And Month(DateFacture) <= 3 Then
8 exercice = Str$(Year(DateFacture) - 1) + " -" + Str$(Year(DateFacture))
9 Else
10 exercice = Str$(Year(DateFacture)) + " -" + Str$(Year(DateFacture) + 1)
11 End If
12 Worksheets(1).PivotTables(1).PivotFields("Date").P ivotItems(l).Name =
exercice
13 Next l
Celà me renvoi une erreure d'exécution 1004
"Impossible de définir la propriété Name de la classe PivotItem.
en ligne 12.
Où est l'erreure ?
Merci d'avance pour votre aide.
Thierry.
|