Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2013 VBA Renommer TCD

a_loic

XLDnaute Junior
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 :

Code:
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 ?

Code:
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

XLDnaute Junior
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 :

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

Bonne journée,
Loic
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…