Rafraîchir tous les tableaux croisés dynamiques de mon classeur Excel avec une macro

[Clippy]

Comment rafraîchir tous les tableaux croisés dynamiques d'un classeur Excel avec une seule macro ?

[Clippy]

```vba
Sub RafraichirTousLesTCD()
Dim ws As Worksheet
Dim pt As PivotTable

For Each ws In ThisWorkbook.Worksheets
For Each pt In ws.PivotTables
pt.RefreshTable
Next pt
Next ws
End Sub

```

Ou plus simplement :
```vba
ThisWorkbook.RefreshAll

```

Pour rafraîchir automatiquement à l'ouverture, placez `ThisWorkbook.RefreshAll` dans l'événement `Workbook_Open`.