insérer un part dans un product (VBA)

[borisivanov]

Salut à tous j'aurai aimé avoir une petite aide je voudrais insérer des parts dans un product,

j'ai enregistré la macro lorsque je le faisais manuellement puis j'ai voulu l'insérer dans mon projet VBA sous catia :

 

 

 

Private Sub CommandButton2_Click()

 

Dim documents1 As Documents

Set documents1 = CATIA.Documents

 

Dim productDocument1 As ProductDocument

Set productDocument1 = documents1.Add("Product")

 

Set productDocument1 = CATIA.ActiveDocument

 

productDocument1.SaveAs "T:\......chemin1......CATProduct"

 

Dim product1 As Product

Set product1 = productDocument1.Product

 

Dim products1 As Products

Set products1 = product1.Products

 

Dim arrayOfVariantOfBSTR1(0)

arrayOfVariantOfBSTR1(0) = "T:\.....chemin2.......CATPart"

Dim products1Variant As Products

Set products1Variant = products1.Products

products1Variant .AddComponentsFromFiles arrayOfVariantOfBSTR1, "All"

 

 

End Sub

 

 

 

 

 

Mais à l'exécution j'ai le message d'erreur suivant :

 

function or interface marked as restricted, or the function uses an Automation type not supported in Visual Basic

 

 

valable pour le AddComponentsFromFiles souligné

 

 

Si qq'un peut me renseigner ça serait bien sympa

 

 

 

[marc54]

bug de programmation CATIA.

 

Il faut que tu commentes le type de la variable sur lequel ça plante :

Dim products1Variant 'As Products

 

ou passer par une variable tempo non typée.

 

 

[borisivanov]

ok j'essaierai ça merci bien