Discussion :

[alammerv]

Bonjour,


Voila j'ai un fichier excel qui conteient une feuille de données et d'autres feuilles avec des TCD qui proviennent de ces données....
Je voudrais créer un bouton qui permettent d'actualiser tous les TCD en meme temps..

Je n'arrive pas à créer cette macro...
Si vous pouviez m'aider

Voila j'avais pensé a un truc comme ca mais les données dans les TCD ne sont pas mises a jour

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Tcd() 
 
Dim Tcd As PivotTable 
Dim sht As Worksheet 
 
For Each sht In ActiveWorkbook.Worksheets 
Next 
 
For Each Tcd In PivotTables 
Tcd.RefreshTable 
Next 
 
End Sub

Merci

[Singular]

Essayes:

Code :

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

Tcd.PivotCache.Refresh