XL 2013 VBA Renommer TCD

[a_loic]

Bonjour,

J'ai créé un document excel sur lequel se trouve deux tableaux croisés dynamiques.

J'ai remarqué que des collègues de travail doivent faire une fausse manip en enregistrant sous le fichier et les tableaux croisés dynamiques se renomment, ce qui plante ma macro qui les "rafraichit".

J'ai réussi dans une de mes macros à intégrer ce code en début d'action afin de renommer le TCD :

Sheets("Resultats").Range("B7").Select
nm = ActiveCell.PivotTable.Name
ActiveSheet.PivotTables(nm).Name = "resultat"

Cependant, lorsque je l'intègre à ma seconde macro, de mon second TCD, je me retrouve avec un problème de "variable non définie".
Je dois être bête mais je ne comprends pas le problème étant donné qu'il s'agit du même code et qu'il fonctionne sur la première macro...

J'ai donc tenté de laisser ce bout de code seul et d'appeler cette nouvelle macro mais rien n'y fait

Pouvez vous m'aider ?

Sub TCDANALYSE()
Sheets("Analyse").Range("B9").Select
nm2 = ActiveCell.PivotTable.Name
ActiveSheet.PivotTables(nm2).Name = "Analyse"
End Sub

Merci d'avance à tous et à toutes,

Excellente journée,

Loic

 

[a_loic]

Bonjour,

Pour information à ceux qui chercheraient la même chose, j'ai réussi à corirger le problème :

j'ai ajouté une variable simple : "Dim nm2" en début de code
ce qui donne :

Sub TCDANALYSE()
Dim nm2
Sheets("Analyse").Range("B9").Select
nm2 = ActiveCell.PivotTable.Name
ActiveSheet.PivotTables(nm2).Name = "Analyse"
End Sub

Bonne journée,
Loic

 

[chris]

Bonjour

Les TCD ne se renomment pas lors d'un enregistrer sous. Le TCD a surement été refait...