Rafraîchir TCD via VBA

Version imprimable

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:

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

14/12/2016, 17h07
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
14/12/2016, 17h33
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. ;)

Rafraîchir TCD via VBA

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

ma procédure ressemble maintenant à :

Code:

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 :D

14/12/2016, 17h59
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
14/12/2016, 18h19
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 :

Citation:

Sans trop comprendre le "pourquoi" …

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