VBA CATIA - Retrieving the name of the active share in a product

Hi all

I'm trying to retrieve the name of the part defined as a work object in a product, but I can't find anything that allows me to do this on the internet and the macro recorder doesn't give anything either.

To explain the need a little more, I want to run a macro from a shortcut in the CATIA tool bar, this should only work if the document is a product and the active element is a share. It will then execute a first part of the code and then pause until the active element is another part or product.

That's why I want to retrieve the name of the current object in order to first check that I can run the macro and then run the second part of the code as soon as I have an active part with a different name.

I hope you can help me.

I am reformulating my own request a little , I am afraid that the term "work object" is not the right one. What I want to do is retrieve the name of the blue highlighted element in the tree in order to put the macro on standby until the blue element changes.