PivotFields et date

Bonjour,

J'ai une base de donnée, que j'ai nommé Tablo, et dans laquelle j'ai une colonne date "mm-yyyy" et qui se nomme Report month. je souhaiterais modifier cette date dans plusieurs tcd.J'ai essayé en mettant la date sous forme "mm-yyyy" et sous "dd/mm/yyyy" mais dans tous les cas j'ai une erreur lorsque j'effectue ce code.
Pouvez-vous m'aider?

Merci

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

For Each ws In Worksheets For Each Pt In ws.PivotTables ws.Select Select Case Pt.Name Case "PivotTable4", "PivotTable5", "PivotTable6", "PivotTable9", "PivotTable10", "PivotTable14", "PivotTable15", "PivotTable16", "PivotTable19", "PivotTable20", "PivotTable23", "PivotTable24"   Pt.PivotFields("Report month").ClearAllFilters   Pt.PivotFields("Report month").CurrentPage = "01/01/2016" Case Else End Select Next Pt   Next ws

---

Bonjour,
Il ya toujours des problèmes avec les dates en VBA :roll: A cause des notations anglophones et francophones ...
Essaie, au lieu de "01/01/2016" :

Code:

---

1 2 3 4

DateSerial(2016, 1, 1) CLng("01/01/2016") 'ou même CLng(DateSerial(2016, 1, 1))

---

Code:

---

Pt.PivotFields("Report month").CurrentPage = format("01/01/2016","yyyy-mm-dd")

---