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 ? je n'ai rien trouvé sur le forum
Bonne journée à tous!
---------------
Steeven