Detecter le Niveau Actif (CATProduct/Composant/CATPart)

Bonjour à tous,

Je suis en train de créer une macro qui doit s'executer sur une CATPart spécifique (En m'appuyant sur une metaDonnée).
Seulement je voudrais pouvoir vérifier si l'utilisateur est bien actif dans une CATPart pour dérouler la suite de ma macro (vérification de la dite méta... entre autre).

Est-ce que vous auriez une idée de comment réaliser la chose ?

Merci.

moi j'ai utilisé un truc complique puisque je debute..
c'est que verifie l'extension du nom de fichier.
sinon il me semble que la donné existe en direct.

'On test si un document est ouvert et son type :
On Error Resume Next
If Not CATIA.ActiveDocument.Name Like "*.CATPart" Then
If Error <> "" Then ' cas ou aucun doc n'est actif ==> on sort
On Error GoTo 0
Exit Sub
End If
MsgBox "Pour réaliser cette opération, vous devez travailler dans un document de type CATPart.", vbExclamation, "NomMsgBox"
Exit Sub
End If

Il y a surement plus propre mais ca marche en tout cas !

Super ! J'avais pas pensé a aller tester l'extention de fichier...
Je vais tester ça de suite !

Merci beaucoup pour vos réponses.

Bonjour ...
Il y a ça aussi ..
Sub detectionpart()

Dim CATIA As Object
    On Error Resume Next
   

' detection que CATIA est bien ouvert
    Set CATIA = GetObject(, "CATIA.Application")
   
    If Err.Number <> 0 Then
        MsgBox "Lancer CATIA !", vbCritical, "Error Macro"
        Exit Sub
    End If
   
Set partDocument1 = CATIA.ActiveDocument
' retour pour info du nom du doc actif
test = partDocument1.Name


On Error Resume Next

Set part1 = partDocument1.Part
' si rien n'est detecté alors tu as le retour d'erreur et tu ouvres le msg box et tu sort
If Err.Number <> 0 Then
    MsgBox "Ouvrir une Part ! svp .. ", vbCritical, "Error"
    Exit Sub
End If
' si tu es dans une part ca continu

End Sub