renommage product CATIA

[purp31]

bonjour a tous

 

Je suis en train de créer une macros renomage en CATVBA script (VBA sous catia). Elle est censé renomer le nom et l'instance de chaque composant de l'arbre de construction de l'assemblage.

 

Mon PB est que j'arrive a renomer le partnumber mais je n'arrive pas a renomer l'instance du composant. Si quelqu'un a une idée je suis preneur

 

Voici le code source

 

Code :

newname = renomage.TextBox2.Value

 

For Each productdocument In CATIA.Documents

Set product = productdocument.product

 

If product.PartNumber = renomage.TextBox1.Value Then

 

product.PartNumber = newname

product.Name = newname + ".1"

 

End If

 

Next productdocument