Discussion :

[arnaud.j92]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[riaolle]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Invité]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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