Comment utilise-t-on cette instruction ?

L'instruction On Error GoTo 0 permet de désactiver la gestion d'erreur générée avec On Error Goto et de réactiver la gestion des erreurs d'Excel / VBA. Test :

sub gestionerreur()
 Dim oWB As Workbook
 
 'Erreur gérée par mes soins
 On Error GoTo GestionErreur
 Set oWB = Workbooks.Open("C:\FichierInexistant.xls")
 ' quand excel rencontre l'erreur, il va lire la ligne GestionErreur:
 ' il affiche alors le message attendu et reprend à la ligne suivante (resume next)
 On Error GoTo 0
 ' Cette ligne interrompt la gestion des erreurs essaie de la mettre en commentaire...
 
 'Erreur gérée par Excel
 Set oWB = Workbooks.Open("C:\FichierInexistant.xls")
 exit sub
 
 GestionErreur:
 MsgBox "Le fichier n'existe pas"
 Resume Next
 end sub