Actualiser un Graphique Croisé Dynamique en VBA

VBA
6

Bonjour,
A tester :

Sub Actualiser()
Dim feuille As Worksheet
Dim tcds As PivotTable
For Each feuille In Worksheets
    For Each tcds In feuille.PivotTables
        tcds.PivotCache.Refresh
    Next
Next
End Sub

Test actualisation GCD.xlsm (70,7 Ko)
Cordialement
Will-Fread