VBA - EXCEL : gestion de TCD

Bonjour.
Essaie :

Sub test()
Dim tcd As PivotTable
For Each tcd In ActiveSheet.PivotTables
tcd.PivotCache.Refresh
MsgBox tcd.Name
Next
End Sub

Cordialement.
Daniel
"Jordane" <Jordane@discussions.microsoft.com> a écrit dans le message de
news: BB5A5625-02E4-44C1-B140-960D8F5CCD63@microsoft.com...

Bonjour,

J'ai plusieurs TCD sur un onglet excel.
j'aimerai savoir :

- Quel serait le code pour actualiser tous les TCD de cette feuille ?

- Quelle est la commande qui permet de recuperer le nom d'un TCD ?
( pivottable.name ne fonctionne pas )

Merci d'avance pour vos réponses.

Bonjour

Mettre à jour un TCD
Private Sub Worksheet_Activate()
ThisWorkbook.RefreshAll
End Sub

Abed_H

Bonjour,

J'ai plusieurs TCD sur un onglet excel.
j'aimerai savoir :

- Quel serait le code pour actualiser tous les TCD de cette feuille ?

- Quelle est la commande qui permet de recuperer le nom d'un TCD ?
( pivottable.name ne fonctionne pas )

Merci d'avance pour vos réponses.

Bonjour à tous et merci pour vos réponses.

pour actualiser mes TCD, J'ai utilisé le code suivant :

Dim Pt As PivotTable
For Each Pt In Sheets("nom de ma feuille").PivotTables
Pt.RefreshTable
Next

Bonne journée.

Bonjour,

J'ai plusieurs TCD sur un onglet excel.
j'aimerai savoir :

- Quel serait le code pour actualiser tous les TCD de cette feuille ?

- Quelle est la commande qui permet de recuperer le nom d'un TCD ?
( pivottable.name ne fonctionne pas )

Merci d'avance pour vos réponses.