Bonjour, j'ai besoin d'appliquer un rafraîchissement de mon TCD nommé TDC1 inclus sur ma feuille "Gaph1" via une procédure VBA

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
    Sheets("Graph1").Visible = True
    Sheets("Graph1").Select
    With ActiveSheet.PivotTables("TCD1").PivotFields("NUMÉRO DE DOSSIER")
        For i = 1 To .PivotItems.Count
            Debug.Print .PivotItems(i).name
            Select Case .PivotItems(i).name
                Case "(blank)"
                Case Else
                    Select Case .PivotItems(i).Visible
                        Case True
                            .PivotItems(i).Visible = False
                        Case False
                            .PivotItems(i).Visible = True
                    End Select
                    Debug.Print .PivotItems(i).Visible
            End Select
 
        Next i
    End With
j’obtiens au moment de rendre .visible à true, l'erreur d'exécution '1004' impossible de définir la propriété Visible de la classe PivoItem.

J'ai parcouru plusieurs textes sur le sujet et je ne comprend pas.

Si la propriété de l'objet est a true, le passage a false se fait sans problème par contre le contraire provoque l'erreur ??

Une explication serait appréciée.

Merci à l'avance