CATIA V5 | 3DEXPERIENCE
Vous souhaitez réagir à ce message ? Créez un compte en quelques clics ou connectez-vous pour continuer.
Le Deal du moment : -15%
(Adhérents Fnac) LEGO® Star Wars™ ...
Voir le deal
552.49 €

Exporter des valeurs de paramètres dans Excel

2 participants

Aller en bas

EnCours Exporter des valeurs de paramètres dans Excel

Message par Blanstfr Mar 6 Fév 2018 - 13:56

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!

Blanstfr
timide
timide

Messages : 2
Date d'inscription : 06/02/2018
Localisation : Chaumont

Revenir en haut Aller en bas

EnCours Re: Exporter des valeurs de paramètres dans Excel

Message par lumpazepfel Mer 7 Fév 2018 - 12:46

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
lumpazepfel
lumpazepfel
Fédérateur
Fédérateur

Messages : 315
Date d'inscription : 02/11/2015
Localisation : Ensisheim

Revenir en haut Aller en bas

Revenir en haut

- Sujets similaires

 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum