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

Microsoft 365 & Office Excel & VBA
1

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

2 
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 :

ThisWorkbook.RefreshAll

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