Bonjour et Bonne Année à tous,

Je me suis fait une petite routine qui manipule un tableau croisé.
Dans cette routine, je veux sélectionner un certain nombre d'item d'un champ (Dans le cas présent, il s'agit de les cocher tous).

J'utilise le code ci-après :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
    ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Date Prev Livraison").CurrentPage = "(All)"
 
    With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Date Prev Livraison")
        For I = 1 To .PivotItems.Count
            .PivotItems(I).Visible = True
        Next I
    End With
.

Le nombre d'items est de l'ordre de 400 et immanquablement la routine s'arrête sur le quatrième. Un message apparaît, me signalant
l'erreur 1004 - Impossible de définir la propriété 'Visible' de la classe PivotItem
Je ne comprends pas pourquoi cette erreur, les trois premiers items ont été cochés.
Quelqu'un peut-il me dire pourquoi ce plantage ?

Merci d'avance.