Résolu : Récupérer le nom d'un tableau dynamique sous Excel2007

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Résolu : Récupérer le nom d'un tableau dynamique sous Excel2007

wolfaryx

Bonjours à tous,
Je me suis récemment (re)-mis à la programmation de Macro sous Excel 2007, mais je désespère depuis quelques jours, parce que je ne trouve pas le moyen de renvoyer dans une variable chaîne le nom d'un tableau dynamique.
Ce que je voudrais faire, c'est : lorsque je sélectionne une cellule d'un tableau dynamique, en lançant la macro, j'arrive à récupérer le nom du tableau dynamique de la sélection en cours , pour ensuite rajouter une ligne sur ce tableau et diverses autres fonctions
...Mais, je n'y arrive pas

Merci de votre aide

Cordialement

Message édité par wolfaryx le 10-09-2009 à 19:07:31

Publicité

Wysi

Code :

ActiveCell.PivotTable.Name

Par contre, si ta cellule ne fait pas partie d'un TCD ça génére une erreur.

(oh et j'ai pas 2007 mais je pense que ca doit marcher quand même)

Message cité 1 fois

wolfaryx

Wysi a écrit :

Code :

ActiveCell.PivotTable.Name

Par contre, si ta cellule ne fait pas partie d'un TCD ça génére une erreur.

(oh et j'ai pas 2007 mais je pense que ca doit marcher quand même)

Helas, cela ne fonctionne pas
voici mon code, pourtant tout simple :

Code :

Sub name()
Dim actseet As String
Dim Nom As String
actseet = ActiveSheet.name
Nom = ActiveCell.PivotTable.name
Range("J2" ).Select
ActiveCell.FormulaR1C1 = Nom
End Sub

La macro est appelé par un bouton
J'obient une erreur 1004 : Impossible de lire la propriété PivotTable de la Classe Range en me surbrillant la ligne 6.

Wysi

C'est en effet l'erreur qui est générée quand ta cellule ne fait pas partie d'un tableau croisé dynamique.

Tu rajoutes une gestion d'erreur là dessus du genre :

Code :

on error resume next
msgbox ActiveCell.PivotTable.name
if err then
msgbox "La cellule ne fait pas partie d'un TCD"
endif

et ça roule tranquille normalement.

J'ai un 2003 au boulot et le code marche sans probleme.

wolfaryx

Merci à vous deux pour votre aide, sa marche correctement et sa m'a vraiment débloqué ma situation !

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Résolu : Récupérer le nom d'un tableau dynamique sous Excel2007

Sujets relatifs
[Résolu] warning friend declaration	VBA - excel - Tableau croisé dynamique - grouper...
[RESOLU] Lors de l'éxecution un coup ca marche, un coup ca marche pas	[RESOLU]J2ME et la génération de timestamp...
[Résolu]pb compilation operator ++	[RESOLU]Limiter le nombre de résultats d'un fichier xml
[Résolu] problème de CSS sur un menu	[Résolu] Macro excel pour tri tableau par semaine
Plus de sujets relatifs à : Résolu : Récupérer le nom d'un tableau dynamique sous Excel2007

Page générée en 0.033 secondes