affiche le nom de la part active

Sub CATMain()
set mypart = catia.activedocument
msgbox(mypart.name)
End Sub