Ce site est optimisé pour être consulté depuis un navigateur moderne dans lequel JavaScript est activé.

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

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

<pre data-code-wrap="vba"><code class="lang-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

</code></pre>
Ou plus simplement :
<pre data-code-wrap="vba"><code class="lang-vba">ThisWorkbook.RefreshAll

</code></pre>
Pour rafraîchir automatiquement à l’ouverture, placez <code>ThisWorkbook.RefreshAll</code> dans l’événement <code>Workbook_Open</code>.