Exporter des valeurs de paramètres dans Excel

Bonjour à tous,

Voila ma situation: j'ai une Part (ou un Product) et j'aimerai pouvoir extraire la valeur d'un paramètre dans excel (ou à défaut .txt).
Cependant je suis débutant dans les macros, et la seule que j'ai trouvé qui me permet d'exporter le TITRE de ma part/Product est celle ci:

Code:

 Sub CATMain()

Dim partDoc As PartDocument
Set partDoc = CATIA.ActiveDocument

Dim partProd As Product
Set partProd = partDoc.Product

Dim filename As String
filename = CATIA.ActiveDocument.Name
Dim path As String
path = CATIA.ActiveDocument.Path

Set Datos = CATIA.FileSystem.CreateFile(path & "\" & CATIA.ActiveDocument.Name & ".xls" , True)

Set ostream = Datos.OpenAsTextStream("ForAppending")

ostream.Write  CATIA.ActiveDocument.Name & Chr(10)
ostream.Close

MsgBox "Check results in folder " & chr(10) & path & "\" &  chr(10) & chr(10) &"File:" & chr(10) & partDoc.Name & ".xls" &  chr(10)

End Sub

Que je transforme en ce code ci-dessous pour extraire la VALEUR de mon paramètre:

Code:

 Sub CATMain()

Dim partDoc As PartDocument
Set partDoc = CATIA.ActiveDocument

Dim partProd As Product
Set partProd = partDoc.Product

Dim filename As String
filename = CATIA.ActiveDocument.Name

Dim path As String
path = CATIA.ActiveDocument.Path

Dim Parameters
Set Parameters = partProd.Parameters

Dim ParameterToTest
Set ParameterToTest = Parameters.Item("Flexion")

Set Datos = CATIA.FileSystem.CreateFile(path & "\" & CATIA.ActiveDocument.Name & ".xls" , True)

Set ostream = Datos.OpenAsTextStream("ForAppending")

ostream.Write  ParameterToTest  & Chr(10)
ostream.Close

MsgBox "Check results in folder " & chr(10) & path & "\" &  chr(10) & chr(10) &"File:" & chr(10) & partDoc.Name & ".xls" &  chr(10)

End Sub

Et c'est là que j'ai mon problème puisque il me dit que ma ligne "ostream.Write  ParameterToTest  & Chr(10)" est fausse ("Object doesn't support this property or method")

Est ce que vous avez une idée ?

Bonne journée à tous!

Salut,

Pour récupérer la valeur de ton paramètre il faut rajouter .value:

Code:

Set ParameterToTest = Parameters.Item("Flexion").value

Tu trouveras un autre exemple ici: https://catiav5.forumactif.org/t1604-export-proprietes-catia-vers-excel-et-vice-versa