Renommer un TcD

[franck70]

Bonjour,

Je cherche à renommer un TCD, mais celui-ci au départ à un nom aléatoire. Le code est ci-dessous. Le problème, c'est que le "Tableau croisé dynamique6" change à chaque fois, ce qui fait planter la macro. Mais le code ActivePivotTable n'existe pas.


ActiveSheet.PivotTables("Tableau croisé dynamique6").Name = _
"Tableau croisé dynamique5"

Merci d'avance pour votre aide.

 

[CB60]

Re : Renommer un TcD

Bonjour
Je pense que ça doit fonctionner?

ActiveSheet.PivotTables(1).Name = _
"Tableau croisé dynamique5"

si tu n'a qu'un tcd sur ta feuil

 

[franck70]

Re : Renommer un TcD

Merci CB60. Ca fonctionne parfaitement.