Bonsoir.
Tu commences par scruter les feuilles.
1 2 3 4 5 6 7 8 9 10 11 12 13 14
| Sub RefreshAllWorksheetPivots()
Dim pt As Excel.PivotTable
Dim oSh as Excel.Worksheet
application.ScreenUpdating = False
For each oSh in thisworkbook.WorkSheets
For Each pt In osh.PivotTables
pt.RefreshTable
Next pt
next oSh
Application.ScreenUpdating = True |
Mais attention : au cas où tous les TCD utilisent les mêmes données, il est préférable de leur affecter un unique cache commun à tous les TCD. Dans ce cas, tu peux te contenter de rafraîchir ce cache. Par exemple
ThisWorkbook.PivotCaches("NomCache").Refresh
Cordialement,
PGZ
Partager