Gestion des erreursRésolu

Question

Salut!
Visual Basic 6
Je viens d'ajouter  une gestion d'erreur a mon programme ou tout ce passer bien

Par exemple une fonction appelé au début du programme : 

Function LireINI(Entete As String, Variable As String) As String
    Dim Retour As String
    
    On Error GoTo Erreur
    fichier = App.Path & "" & App.EXEName & ".ini"
    Retour = String(255, Chr(0))
    LireINI = Left$(Retour, GetPrivateProfileString(Entete, ByVal Variable, "", Retour, Len(Retour), fichier))
Erreur:
    MsgBox ("Placer le fichier G150.ini dans le même répertoire que l'exécutable")
    Err.Clear
End Function


Mon soucis est qu'a chaque appel de la fonction, la popup apparée... Alors qu'il ne doit pas y avoir d'erreur puisque le code marchait niquel avant.

aidez moi svp :)

Merci! :)

jrivet · Accepted Answer

Salut,

il faut mettre un exit Function juste avant ta gestion d'erreur.
Ce qui donne

Function LireINI(Entete As String, Variable As String) As String
    Dim Retour As String
    
    On Error GoTo Erreur
    fichier = App.Path & "" & App.EXEName & ".ini"
    Retour = String(255, Chr(0))
    LireINI = Left$(Retour, GetPrivateProfileString(Entete, ByVal Variable, "", Retour, Len(Retour), fichier))
Exit Function
Erreur:
    MsgBox ("Placer le fichier G150.ini dans le m&#234;me r&#233;pertoire que l'ex&#233;cutable")
    Err.Clear
End Function
Et Voila
@+, Julien 
Pensez: Moteur de Recherche, R&#233;ponse Accept&#233;e

aurelien2723 · Answer

cool   merci :)

jrivet · Answer

Re,

Pas de quoi

@+, Julien 
Pensez: Moteur de Recherche, R&#233;ponse Accept&#233;e

aurelien2723 · Answer

J'ai une autre question concernant cette fonction.

Je voulais détecter si le fichier ini n'existe pas.

Donc je pensais mettre la gestion de cette erreur dans cette fonction mais celle ci ne déclenche pas d'erreur lorsque le fichier n'est pas présent.

Pourquoi svp? :)

Merci

jrivet · Answer

Re,

Dans ce cas si tu veux juste teste si le fichier INI existe, fait simplement.

fichier = App.Path & "" & App.EXEName & ".ini"
If Dir(fichier) = "" Then MsgBox ("Placer le fichier G150.ini dans le m&#234;me r&#233;pertoire que l'ex&#233;cutable")

@+, Julien 
Pensez: Moteur de Recherche, R&#233;ponse Accept&#233;e

aurelien2723 · Answer

ok merci bien :) ca marche comme je veux :)

jrivet · Answer

Salut,

Mais de rien nous sommes la pour ca.

En revanche n'oublie pas le r&#233;ponse accept&#233;e sur le ou les posts qui ont pu t'aider.

(si tu l'a fait pendant l'ecriture de ce message desole)

@+, Julien 
Pensez: Moteur de Recherche, R&#233;ponse Accept&#233;e

Gestion des erreurs

7 réponses

Discussions similaires