Discussion :

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

Sélectionner tout - Visualiser dans une fenêtre à part

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