replacecomponent

[golum_64]

Bonjour,

En exécutant le code suivant, j'ai le message d'erreur :

"Method 'item' of object 'Products' failed"

Ce code doit permettre de faire un replace component dynamique

 

Note : les vars SearchFile & file_full sont déclarées en 'string'

 

Merci d'avance

 

 
Function REPLACE_COMPONENT(SearchFile As String)

Dim productDocument1 As Document
Set productDocument1 = CATIA.ActiveDocument

Dim product1 As Product
Set product1 = productDocument1.Product

Dim products1 As Products

Set products1 = product1.Products
Dim product2 As Product

Set product2 = products1.Item(file_full)

Set Nothing1 = product1.ReplaceComponent(product2, SearchFile, True)

product2.Name = file_full

End Function