Besoin d'aide Stagiaire sur CATIA V5

Ah j'ai fait des test, je pense trouvé ce qui ne va pas

écris moi le contenue exacte de la ligne du texte qu'il y a dans ton fichier texte.


Je pense qu'il y a un caractère qui ne passe pas.

Je pense qu'en écrivant la ligne :
Excel.ActiveWorkbook.ActiveSheet.Range("a4").value = "en remplaçant ici par ton texte exactement comme il est dans le fichier texte"

ça ne passera pas, et tu aura une erreur de syntaxe en écrivant

Alors, la ligne est la suivante :
= Récapitulatif sur M999-5-99999-9999--_00_TEST =

Peut être les = ?

Effectivement, en faisant le test, j'ai un message d'erreur de syntaxe.
Selon moi c'est à cause des signes "=", je vois plus que la solution de selctionner les caractéres.

C'est le = à la fin de ligne qui ne passe pas

Pourquoi ? parce que Excel prend comme une formule tout texte commencent par =

Si tu ajoute un espace devant le 1er = il n'y a plus de soucis

C'est un problème lié à excel et pas à la marco

D'accord, mais le probléme c'est que je ne peux pas toucher au fichier .txt.
J'essaie de selectionner les caractéres à mettre dans la case.

Peux tu regarder, s'il te plait, je te l'envoie par message.

Il faut ajouter l'espace dans ton code macro alors

Excel.ActiveWorkbook.ActiveSheet.Range("a4").text = " " & TmpStr

Je pense avoir trouvé la solution pour le " file already open ", même si c'est pas exactement ce que je voulais. Pour l'instant ca marche.. Je reviendrais dessus plus tard !
Merci beaucoup pour ton aide !

file already open c'est parce-que lorsque al macro plante elle n'a pas exécuter la commande
close #1

du coup le canal #1 reste en mémoire et lorsque tu relances la macro
à la ligne
Open " ...." input as #1
La macro te signal que le fichier est déjà ouvert


Alors pour palier à ça avec la ligne
Open " ...." input as #1

écrit Close #1

ça donnera un truc du genre

close #1
Open " ...." input as #1


ça te permet de t'assurer que le canal #1 est bien fermer pour y ouvrir un fichier

Merci !

Je n'arrive pas à récupérer la valeur d'une donnée. Cette donnée est : "Liasse : ----". Je l'ai créée (paramètre) et elle est donc visible et modifiable dans l'arborescence dans un DRAW.

Text_35 = "LIASSE: " 'Liasse
Set Text = DrwTexts.Add ( Text_35, widthsheet - Offset - 8 - 35, Offset + 158 + 4 )
Text.Name = "TitleBlock_liasse"
Text.SetFontName 0, 0, "Monospac821 BT"
Text.SetFontSize 0, 0, 5
Text.SetParameterOnSubString catColor, 5, 0, -16776961
Text.AnchorPosition = catTopCenter
Set iParameter = DrwDocument.Parameters.Item("Liasse")
Text.InsertVariable 0, 0, iParameter

Set liasse = DrwDocument.Parameters.CreateString("Liasse", "----")

Set parameterdraw = CATIA.ActiveDocument.Parameters
parameterdraw.Item("Liasse").ValuateFromString UserForm_draw.TextBox_Numero_Liasse.Value

J'aimerais récupérer la valeur de la liasse pour la mettre dans un fichier excel :

Excel.ActiveWorkbook.ActiveSheet.Range("i4").Value = Liasse_Value

Dans le fichier excel, j'ai insérer un "?" dans la case où je souhaite inscrire le numéro de la liasse. La macro fonctionne mais le numéro ne s'affiche pas, il n'écrit rien , il modifie le "?" par rien (comme si le numéro n'existe pas).

Merci d'avance

bah elle est définie où ta variable Liasse_Value

Justement, j'ai mis ca comme ca pour le moment. Je n'ai pas de variable Liasse_Value.
Et je comprend pas pourquoi sur le plan, cela fonctionne sans variable...

sur le plan tu as dis avoir mi un paramètre donc un lien entre ton texte et ton paramètre, non ?

Non, sur le plan, j'ai la liasse et son numéro. Mais j'ai pas inscrit de variable.
Et si je mets : UserForm_draw.TextBox_Numero_Liasse.Value
Il me m'écrit dans la case du xls : "----" qui est la valeur par défaut de la liasse.

bas si ta zone de texte correspond à la variable "Text"
alors tu peux écrire :

Excel.ActiveWorkbook.ActiveSheet.Range("i4").Value = text.text

Non, ca ne fonctionne pas..