VBA Excel : récupérer le nom d'un tableau croisé dynamique

Bonjour,

Je me casse les dents depuis 1/4h pour simplement récupérer le nom d'un tableau croisé dynamique (TCD) . Je pense que je n'utilise pas le bonnes méthodes/propriétés.

1/ je créer un TCD auquel j'y ajoute un champ en ligne "LIB"

2/ à partir de la macro VB suivante je vais pointer sur la cellule d'en-tête du champ "LIB" afin d'obtenir le nom du TCD auquel elle appartient :

Code:

---

1 2 3 4 5 6 7

'Déclaration de ma variable texte Dim tcd As String   'Idendification du nom du TCD lorsque je pointe sur la cellule d'en-tête du champ "LIB"   ActiveCell.PivotTable.Name = tcd MsgBox ("Le nom du TCD est " & tcd)

---

3. Rien à faire le MsgBox me renvoie du vide : 'Le nom du TCD est' :calim2:

Merci pour votre aide

cdt

koobcam

Eh bien en reprenant de zéro dans l'aide VB, à partir des concepts de 'Classe', d''Objet', de 'Méthode' et de 'Propriété', j'ai compris ce qui n'allait pas et j'ai trouvé la propriété Parent que l'on peut appliquer à l'objet PivotCell et qui a pour effet renvoyer l'objet (PivotTable dans ce cas) auquel PivotCell appartient ! :mrgreen:

Voici le code qui fonctionne :

Code:

---

1 2 3 4 5 6 7 8

'Déclaration de ma variable texte Dim tcd As String   'Idendification du nom du TCD lorsque je pointe sur la cellule (ActiveCell) d'En-tête du champ "LIB" qui est une cellule appartement au TCD (PivotCell) :   tcd = ActiveCell.PivotCell.Parent   MsgBox ("Le nom du tcd est " & tcd)

---