Bonsoir,

Lors de l'application d'un filtre sur un T.C.D. (PageField), Excel n'affiche pas les valeurs sélectionnées manuellement.
Lors d'une impression, on ne connait donc pas les valeurs de filtrage représentant le tableau.


Actuellement, j'arrive avec un code de ce genre à obtenir le critère de filtrage d'un TCD :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
Function FilterString() As String
    FilterString = ActiveSheet.PivotTables("TCD1").PivotFields("Col3").CurrentPage
End Function
Le problème est lorsque l'on utilise plusieurs critères de filtrage: j'obtiens toujours "(All)".
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
    ActiveSheet.PivotTables("TCD1").PivotFields("Col3").CurrentPage = "(All)"
    With ActiveSheet.PivotTables("TCD1").PivotFields("Col3")
        .PivotItems("1").Visible = True
        .PivotItems("12").Visible = True
    End With
Si j'ai bien compris, il faudrait se balader sur toutes les valeurs de "PivotItelms" et tester la propriété "Visible".

Mon problème est comment récupérer la collection "PivotItems" ?

N'y a-t-il pas plus simple, plus rapide ?

Merci.

ESVBA