Bonjour,

Je souhaiterais sélectionner via une macro une plage de dates dans un des filtres de mon TCD.
J'ai rédigé le code suivant mais cela ne marche pas:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
    With ActiveSheet.PivotTables("PivotTable29").PivotFields("Reporting Date")
        For Each pi In .PivotItems
 
                If CDate(pi.Value) > CDate("01/01/2017") And CDate(pi.Value) < CDate("01/03/2017") Then
                pi.Visible = True
                End If
 
                If CDate(pi.Value) < CDate("01/01/2017") And CDate(pi.Value) > CDate("01/03/2017") Then
                pi.Visible = False
                End If
 
        Next pi
 
    End With
A noter, il semble, qu'il y ait aussi un problème au niveau du format. En effet dans le TCD mes dates sont stockées sous forme "dd/mm/yyyy" et lorsque j'utilise l'enregistreur de macro les dates sont sous forme "mm/dd/yyyy".


Merci beaucoup de votre aide,