Discussion :

[meolimo]

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

[RyuAutodidacte]

Bonjour,
Je te conseil d'utiliser l'enregistreur de macro qui lui te donnera le code exact pour la Maj de ton TCD.
Tu n'auras plus qu'à réadapter la partie de code que tu souhaite sur ton code

[meolimo]

Merci pour l'intérêt et la rapidité de ta réponse RyuAutodidacte mais évidement j'ai aussi pris ce chemin dans le but d'élucider l'énigme.

[meolimo]

J'ai finalement trouvé une solution qui fait l'affaire .... Merci a un certain Dan ..

ma procédure ressemble maintenant à :

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
20
Dim pt As PivotTable
Dim pf As PivotField
Dim pI As PivotItems
 
For Each pt In Worksheets("Graph1").PivotTables
    pt.ClearAllFilters
    With ActiveSheet.PivotTables("TCD1").PivotFields("NUMÉRO DE DOSSIER")
 
        For i = 1 To .PivotItems.Count
 
            Select Case .PivotItems(i).name
 
                    Case "(blank)"
                        .PivotItems(i).Visible = False
 
            End Select
        Next i
 
    End With
Next pt

Sans trop comprendre le "pourquoi", le résultat me convient parfaitement

[RyuAutodidacte]

Re.
Désolé , Je ne savais pas que tu étais déjà passé par la case enregistreur de macro.
Quoi qu'il en soit si ton problème est résolu c'est le principal
Ryu

[RyuAutodidacte]

Re, peux-tu faire un test avec ton ancien code si c'est possible :
- mets un filtre sur ton tcd manuellement puis rends ta feuille non visible puis applique ton code
- refait le même test en ayant pris soin auparavant d'enlever tous les filtres de ton tcd et re applique ton ancien code.

Résultat ??

Edit :

Sans trop comprendre le "pourquoi" …

il se pourrait que cela vienne du filtre => voilà pourquoi le tester