Macro de selection plage de dates - PivotTable
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:
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,