Vba excel actualiser TCD

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:

---

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

Essayes:

Code:

---

Tcd.PivotCache.Refresh

---

;)