Discussion :

[koobcam]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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'

Merci pour votre aide

cdt

koobcam

[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 !

Voici le code qui fonctionne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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)