comparé nom de product parent/enfant

bonjour,
je cherche a comparé le nom d'une part ou Product avec sons Product parent mais je ne comprend pas comment je peut appeler le parent ou l'enfant

voici un test:
------------------
Sub child()
Dim b As ProductDocument
Set b = CATIA.ActiveDocument
Dim a As String
a = b.parent.Name
MsgBox (a)  'CNEXT

End Sub

-----------------
avec se code j'obtient "CNEXT" alors que je veux le nom du Product supérieur

quelqu'un peut m'aider?

merci

Salut Quentin,

Le parent du document actif c'est Catia, c'est donc normal que tu obtiennes "CNEXT".

Pour comparer une part avec son product parent :

Code:

Sub catmain()

    Dim oProdDoc As ProductDocument
    Set oProdDoc = CATIA.ActiveDocument

    Dim oRootProd As Product
    Set oRootProd = oProdDoc.Product
       
 
  Dim oInstances As Products
  Set oInstances = oRootProd.Products


Dim k As Integer
    For k = 1 To oInstances.Count
        Dim oInst As Product
        Set oInst = oInstances.Item(k)
        Nompart = oInst.PartNumber
        NomParent = oInst.Parent.Parent.PartNumber
        MsgBox (Nompart & " --> " & NomParent)
    Next

End Sub

bonjour,
ok merci pour ton aide

quentin