[RÉSOLU] Message d'erreur impossible à indentifier

  parallel%=0 : ON_ERROR_GOTO err1 : DLL_ON "inpout.dll"  : parallel%=1 : OFF_ERROR_GOTO : GOTO ok1
   err1:
      ON_ERROR_GOTO err2 : DLL_ON "C:\Windows\System32\inpout.dll" : parallel%=1 : OFF_ERROR_GOTO : GOTO ok1
   err2:
      OFF_ERROR_GOTO
   ok1:
      IF parallel%=0 : RESTORE_LABEL d1 : READ t$ : CAPTION ALP_PARA%(1),t$ : FOR n%=1 TO 4 : READ t$ : ITEM_ADD MEM_PARA%(1),t$ : NEXT n%
      ELSE : RESTORE_LABEL d2 :  READ t$ : CAPTION ALP_PARA%(1),t$ : FOR n%=1 TO 4 : READ t$ : ITEM_ADD MEM_PARA%(1),t$ : NEXT n% : END_IF
      excel%=0 : ON_ERROR_GOTO err3 : EXCEL_STOP : excel%=1 : OFF_ERROR_GOTO : GOTO ok2
   err3:
      INACTIVE MEM_PARA%(1) : ON_ERROR_GOTO err4 : EXCEl_START : excel%=1 : EXCEL_STOP
   err4:
      OFF_ERROR_GOTO
   ok2:
      IF excel%=0 : RESTORE_LABEL d3 : READ t$ : CAPTION ALP_PARA%(2),t$ : FOR n%=1 TO 6 : READ t$ : ITEM_ADD MEM_PARA%(2),t$ : NEXT n%
      ELSE : RESTORE_LABEL d4 : READ t$ : CAPTION ALP_PARA%(2),t$ : FOR n%=1 TO 6 : READ t$ : ITEM_ADD MEM_PARA%(2),t$ : NEXT n% : END_IF
      midi%=0 : ON_ERROR_GOTO err5 : MIDI_OFF : midi%=1 : OFF_ERROR_GOTO : GOTO ok3
   err5:
      INACTIVE MEM_PARA%(2) : ON_ERROR_GOTO err6 : MIDI_ON : OFF_ERROR_GOTO : MIDI_OFF : midi%=1 : GOTO ok3
   err6:
      OFF_ERROR_GOTO
   ok3:
      IF midi%=0 : RESTORE_LABEL d5 : READ t$ : CAPTION ALP_PARA%(3),t$ : FOR n%=1 TO 5 : READ t$ : ITEM_ADD MEM_PARA%(3),t$ : NEXT n%
      ELSE : RESTORE_LABEL d6 : READ t$ : CAPTION ALP_PARA%(3),t$ : FOR n%=1 TO 5 : READ t$ : ITEM_ADD MEM_PARA%(3),t$ : NEXT n% : END_IF    
      parallel%=0 : ON_ERROR_GOTO err7 : DLL_ON "inpout.dll"  : parallel%=1 : OFF_ERROR_GOTO
   err7:
      INACTIVE MEM_PARA%(3) : OFF_ERROR_GOTO

  err1:
      ON_ERROR_GOTO err2 : DLL_ON "C:\Windows\System32\inpout.dll" : parallel%=1 :

affichage_info_mc:
   CLEAR MEMO_MC2%
   FOR n%=1 TO nb_mc%
      IF GRID_READ$(GRID_MC%,n%,1)=ITEM_INDEX$(LIST_MC%) THEN ITEM_ADD MEMO_MC2%,GRID_READ$(GRID_MC%,n%,2) : EXIT_FOR
   NEXT n%  
   ACTIVE PANEL_MC_INF% : ACTIVE PANEL_MC_COP% : ACTIVE PANEL_MC_AJOUT%
   SET_FOCUS EDIT_MC%
RETURN

' ----- AJOUT D'UN OBJET DEPUIS LE CREATEUR D'OBJET -----
ajout_objet:  
   FOR n%=1 TO 31    
      IF n%=6 OR n%=7 OR n%=12
         CAPTION ALPHA_proprietes%(n%),CAPTION$(ALPHA_proprietes%(n%))+CHR$(34)+TEXT$(OBJET_saisie%(n%))+CHR$(34)
      ELSE    
         IF OBJET_saisie%(n%)<>0 THEN CAPTION ALPHA_proprietes%(n%),CAPTION$(ALPHA_proprietes%(n%))+TEXT$(OBJET_saisie%(n%))
      END_IF
   NEXT n%
      
   ' Ajout des OBJETS
   FOR n%=1 TO COUNT(SYN_EDIT%)
      IF INSTR(ITEM_READ$(SYN_EDIT%,n%),"' ### Emplacement des OBJETS ###")<>0 THEN ligne3%=n% : EXIT_FOR
   NEXT n%
          
   ITEM_INSERT SYN_EDIT%,ligne3%,"" : ligne3%=ligne3%+1
   ITEM_INSERT SYN_EDIT%,ligne3%,"' Objet "+CAPTION$(PANEL_objet%(selecobj%))+" ("+CAPTION$(PANEL_objet%(selecobj%))+STR$(nbo%(selecobj%))+"%)" : ligne3%=ligne3%+1
   t$="no%=no%+1 : "+CAPTION$(PANEL_objet%(selecobj%))+" no% : " : IF CAPTION$(PANEL_objet%(selecobj%))="FORM" AND nbobj%=0 THEN t$=""
   t$=t$+"DIM "+CAPTION$(PANEL_objet%(selecobj%))+STR$(nbo%(selecobj%))+"% : "+CAPTION$(PANEL_objet%(selecobj%))+STR$(nbo%(selecobj%))+"%=no%"
   ITEM_INSERT SYN_EDIT%,ligne3%,t$ : t$="" : ligne3%=ligne3%+1  
          
   FOR n%=1 TO 31
      IF n%=2 OR n%=6 OR n%=8 OR n%=10 OR n%=12 OR n%=14 OR n%=18
         IF t$<>"" THEN ITEM_INSERT SYN_EDIT%,ligne3%,LEFT$(t$,LEN(t$)-3) : ligne3%=ligne3%+1 : t$=""  
      END_IF
      IF n%>17 AND t$<>""
         IF LEFT$(t$,3)="OFF" THEN t$=LEFT$(t$,INSTR(t$,",")-1)
         ITEM_INSERT SYN_EDIT%,ligne3%,t$ : ligne3%=ligne3%+1 : t$=""  
      END_IF
      ' Vérifie si le Check est activé
      IF CHECKED(CHECK_proprietes%(n%))=1    
        
         ' Ajout de la propriété
         t$=t$+CAPTION$(ALPHA_proprietes%(n%))+" : "
            
         ' Création des sous-programmes
         IF n%>17
            t$=CAPTION$(ALPHA_proprietes%(n%))

            ' Ajout des LABELS
            d%=0
            FOR b%=1 TO COUNT(SYN_EDIT%)
               IF ITEM_READ$(SYN_EDIT%,b%)="LABEL "+RIGHT$(t$, LEN(t$)-INSTR(t$,",")) THEN d%=1
               IF INSTR(ITEM_READ$(SYN_EDIT%,b%),"' ### Emplacement des LABELS ###")<>0 THEN ligne2%=b% : EXIT_FOR
            NEXT b%              

            IF d%=0
               ITEM_INSERT SYN_EDIT%,ligne2%,"LABEL "+RIGHT$(t$, LEN(t$)-INSTR(t$,",")) : ligne2%=ligne2%+1 : ligne3%=ligne3%+1

               FOR b%=1 TO COUNT(SYN_EDIT%)
                  IF INSTR(ITEM_READ$(SYN_EDIT%,b%),"' ### Emplacement des DIMS ###")<>0 THEN ligne1%=b% : EXIT_FOR
               NEXT b%  
               IF n%<>19 AND n%<26 THEN ITEM_INSERT SYN_EDIT%,ligne1%,"DIM "+LOWER$(RIGHT$(t$, LEN(t$)-INSTR(t$,",")-5))+"%" : ligne1%=ligne1%+1 : ligne3%=ligne3%+1
                  
               FOR b%=1 TO COUNT(SYN_EDIT%)
                  IF INSTR(ITEM_READ$(SYN_EDIT%,b%),"' ### Emplacement des SOUS-PROGRAMMES ###")<>0 THEN ligne4%=b% : EXIT_FOR
               NEXT b%
               ITEM_INSERT SYN_EDIT%,ligne4%,"" : ligne4%=ligne4%+1
               ITEM_INSERT SYN_EDIT%,ligne4%,"' Sous-programme "+UPPER$(RIGHT$(t$, LEN(t$)-INSTR(t$,","))) : ligne4%=ligne4%+1  
               ITEM_INSERT SYN_EDIT%,ligne4%,RIGHT$(t$, LEN(t$)-INSTR(t$,","))+":" : ligne4%=ligne4%+1  
                  
               IF n%<>19 AND n%<26
                  ITEM_INSERT SYN_EDIT%,ligne4%,"   "+LOWER$(RIGHT$(t$, LEN(t$)-INSTR(t$,",")-5))+"%=NUMBER_"+UPPER$(RIGHT$(t$, LEN(t$)-INSTR(t$,",")-5)) : ligne4%=ligne4%+1
               END_IF
               ITEM_INSERT SYN_EDIT%,ligne4%,"RETURN" : ligne4%=ligne4%+1
              
               ' Ajout des repères des sous-programmes
               ITEM_ADD LIST_REP%,"Sous-programme "+UPPER$(RIGHT$(t$, LEN(t$)-INSTR(t$,",")))
               GRID_WRITE GRI_REP%,COUNT(LIST_REP%),1,"Sous-programme "+UPPER$(RIGHT$(t$, LEN(t$)-INSTR(t$,",")))
               GRID_WRITE GRI_REP%,COUNT(LIST_REP%),2,"' Sous-programme "+UPPER$(RIGHT$(t$, LEN(t$)-INSTR(t$,",")))
               GRID_SAVE GRI_REP%,COUNT(LIST_REP%),2,chemin$+"\rep"+LEFT$(FILE_EXTRACT_NAME$(fichier$),LEN(FILE_EXTRACT_NAME$(fichier$))-3)+"rep"  
            END_IF

            IF n%<>19 AND n%<26
               FOR b%=1 TO COUNT(SYN_EDIT%)
                  IF INSTR(ITEM_READ$(SYN_EDIT%,b%),RIGHT$(t$, LEN(t$)-INSTR(t$,","))+":")<>0 THEN ligne5%=b% : EXIT_FOR
               NEXT b%
               REPEAT : ligne5%=ligne5%+1 : UNTIL ITEM_READ$(SYN_EDIT%,ligne5%)="RETURN"
               t1$="   IF "+RIGHT$(t$, LEN(t$)-INSTR(t$,",")-5)+"%="+CAPTION$(PANEL_objet%(selecobj%))+STR$(nbo%(selecobj%))+"% THEN MESSAGE "
               t1$=t1$+CHR$(34)+RIGHT$(t$, LEN(t$)-INSTR(t$,",")-5)+"%="+CAPTION$(PANEL_objet%(selecobj%))+STR$(nbo%(selecobj%))+"%"+CHR$(34)
               ITEM_INSERT SYN_EDIT%,ligne5%,t1$ : ligne5%=ligne5%+1
            END_IF
         END_IF
      END_IF
      COLOR PANEL_proprietes%(n%),240,240,240 : MARK_OFF CHECK_proprietes%(n%)
   NEXT n%
      
   IF INSTR("FORM PANEL MAIN_MENU SUB_MENU MAIN_MENU_POP CONTAINER CONTAINER_TAB CONTAINER_OPTION TAB",CAPTION$(PANEL_objet%(selecobj%)))<>0
      IF CAPTION$(PANEL_objet%(selecobj%))<>"OPTION" THEN ITEM_ADD OBJET_saisie%(1),CAPTION$(PANEL_objet%(selecobj%))+STR$(nbo%(selecobj%))+"%" : ITEM_SELECT OBJET_saisie%(1),COUNT(OBJET_saisie%(1))
   END_IF
                                            
   IF t$<>"" : ITEM_INSERT SYN_EDIT%,ligne3%,t$ : ligne3%=ligne3%+1 : END_IF
   nbo%(selecobj%)=nbo%(selecobj%)+1 : nbobj%=nbobj%+1
      
   FOR n%=1 TO 31
      OFF_CLICK CHECK_proprietes%(n%) : OFF_CLICK PANEL_proprietes%(n%) : OFF_CLICK ALPHA_proprietes%(n%)
      t$=GRID_READ$(GRID_proprietes%,n%+1,1)
      d%=INSTR(t$," no%")
      t1$=LEFT$(t$,d%+4)
      CAPTION ALPHA_proprietes%(n%),t1$
      ON_CLICK CHECK_proprietes%(n%),menu : ON_CLICK PANEL_proprietes%(n%),menu : ON_CLICK ALPHA_proprietes%(n%),menu
   NEXT n%  
RETURN

' ----- AFFICHER INFO SUR L'AIDE PAN_EXPRESS -----  
afficher_info_aide:
   CLEAR MEMO_AIDE%
   FOR n%=1 TO nb_aide%
      IF GRID_READ$(GRID_AIDE%,n%,1)=ITEM_INDEX$(LIST_AIDE%)
         t$=GRID_READ$(GRID_AIDE%,n%,2)
         REPEAT
            a%=INSTR(t$,"*")
            IF a%>=LEN(t$) OR a%<=0 THEN EXIT_REPEAT
            t1$=LEFT$(t$,a%-1)
            t$=RIGHT_POS$(t$,a%+1)
            ITEM_ADD MEMO_AIDE%,t1$
         UNTIL a%=0
         ITEM_ADD MEMO_AIDE%,t$
         EXIT_FOR
      END_IF
   NEXT n%
   ITEM_SELECT MEMO_AIDE%,1  
RETURN