Niveau de complexité: moyen/élevé

salut à tous,

le problème que j'ai est assez complexe, mais je vais essayer d'être le + clair possible:

- Je dois modifier le message d'erreur (pour le changer et l'écrire en français) venant d'une librairie sous Catia.

- Pour la modifier, il faudrait intégrer le code suivant:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
    On Error GoTo LongTransaction_Error
   ' You may wish to set the titles once, in Sub Main.
   App.OleServerBusyMsgTitle = "title"
 
   App.OleRequestPendingMsgTitle = "APP_TITLE"
   ' Message texts specific to this request.
   App.OleServerBusyMsgText = "The component for"
   ' Code to make a request and use results...
   ' ...
 
LongTransaction_Error:
   If Err.Number = &H80010001 Then
      MsgBox "Transaction cancelled"
   Else
 
      ' Code to handle other errors.
   End If
   Resume LongTransaction_Cleanup
 
LongTransaction_Cleanup:
   ' Code to perform any necessary cleanup...
   ' ...
   ' Exit Sub

Info sup:
- La librairie en question est définie par:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Set xSel = CATIA.ActiveDocument.Selection
-L'erreur apparaît au niveau de:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
sStatus = xSel.SelectElement2(sFilter, "Select a " & typ, False)
N.B: j'ai déjà utilisé la partie "on error go to..." citée plus haut mais sans résultat. Il faudrait changer la gestion des erreurs de la foncion "SelectElement2".

-L'erreur est de type 448:
448 Named argument not found

Comment peut-on changer le message d'erreur de cette librairie??

Merci d'avance,

a+

Nicolas