Discussion :

[Marneus22]

Bonjour à toutes et à tous !

Un nouveau challenge pour vous !

Sauriez-vous comment connaitre le nom de la "pivot table" qui a permis de créer un graphique ?

J'arrive à récupérer le nom d'un graphique mais maintenant j'aimerai connaitre le nom de la pivot table auquel il est relié... Ex : pivot table 20

Merci à vous

[Daniel.C]

Bonjour,

Code :

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

Debug.Print ActiveChart.PivotLayout.PivotTable.Name

[Marneus22]

Bonjour Daniel,

Un grand merci pour ton aide !

Ca fonctionne du tonnerre ! Je m'arrachais les cheveux depuis un bout de temps...

Par contre, ne sachant pas utiliser la fonction

Code :

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

Debug.Print

Je suis passé par :

Code :

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

 NomPT = ActiveChart.PivotLayout.PivotTable.Name

Encore merci

[Daniel.C]

Par contre, ne sachant pas utiliser la fonction

Code :

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

Debug.Print

Quand tu précises "Debug.Print" ce qui suit s'affiche dans la fenêtre Exécution de l'éditeur VB ("Affichage", "Fenêtre exécution").

[Marneus22]

D'accord ! C'est très intéressant et du coup, j'ai une question qui me vient.

Comment exploiter l'information qui se trouve dans la fenêtre Exécution ?

J'avais besoin du nom de la pivot table pour la chercher dans une feuille excel.

Voir mon code :

Code :

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

1
2
3
nomPT = xlApp.ActiveChart.PivotLayout.PivotTable.Name
                            With xlApp.ActiveWorkbook.Sheets(s).PivotTables(nomPT).PivotFields("3d")
....

Comment aurions-nous pu faire avec ta méthode ?

[Daniel.C]

Debug ne sert que pour la mise au point du code. Tu ne peux pas t'en servir dans une macro. Il faut, comme tu l'as fait, passer par une variable.