XL 2016 Gestion Erreur

KTM à dit:

J'ai une macro nommée "Reinit"
Je voudrais fermer mon fichier sans l'enregistrer si une erreur se produit lors de l'exécution de la macro.
Jai essayé avec On error goto mais il se trouve que ça marche pas .Le fichier se ferme même si pas erreur.

VB:

sub reinitier

On Error GoTo Err:
Call Reinit
Err:
MsgBox "Une Erreur est survenue et Votre Opération n'a Pu s'effectuer!!! ", vbCritical
ThisWorkbook.Close False

end sub

Cliquez pour agrandir...

sub reinitier

    On Error GoTo Erreur

    Call Reinit
    GoTo Fin

Erreur:
    MsgBox "Une erreur est survenue et votre opération n'a pu être effectuée !!! ", vbCritical
    ThisWorkbook.Close False

Fin:

End Sub

TooFatBoy à dit:

Bonjour,



Peut-être comme ceci :

VB:

sub reinitier

    On Error GoTo Erreur

    Call Reinit
    GoTo Fin

Erreur:
    MsgBox "Une erreur est survenue et votre opération n'a pu être effectuée !!! ", vbCritical
    ThisWorkbook.Close False

Fin:

End Sub

Cliquez pour agrandir...