Actualisation de tableaux croisés dynamiques [Résolu]

[anisr]

Bonjour à Tous,

J'ai plusieurs tableaux dynamiques croisés sur une seule feuille dont la sources sont des feuilles dans le même classeur, comment faire pour actualiser en une seule fois tous les tableaux?

Merci de votre aide!

[SilkyRoad]

bonjour

tu peux essayer

Code :

1
2
3
4
5
6
7
8
9
Dim Tcd As PivotTable
 
Application.ScreenUpdating = False
 
    For Each Tcd In Worksheets("Feuil1").PivotTables
        Tcd.RefreshTable
    Next
 
Application.ScreenUpdating = True

michel