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.