Resume, instruction

Article
10/25/2024

Reprend l’exécution après la fin du traitement par une routine de gestion d’erreur.

Syntaxe

Reprendre [ 0 ]
Resume Next
Reprendre laligne

La syntaxe de l’instruction Resume peut prendre l’une des formes suivantes :

Statement	Description
Resume	Si l’erreur s’est produite dans la procédure contenant le gestionnaire d’erreurs, l’exécution reprend à partir de l’instruction qui a provoqué l’erreur. Si l’erreur s’est produite dans une procédure appelée, l’exécution reprend à l’instruction ayant appelé la procédure contenant la routine de gestion d’erreur.
Resume Next	Si l’erreur s’est produite dans une procédure contenant le gestionnaire d’erreurs, l’exécution reprend à partir de l’instruction qui suit immédiatement celle qui a provoqué l’erreur. Si l’erreur s’est produite dans une procédure appelée, l’exécution reprend avec l’instruction immédiatement après l’instruction qui a été appelée pour la dernière fois hors de la procédure contenant la routine de gestion des erreurs (ou l’instruction On Error Resume Next ).
Reprendre laligne	L’exécution reprend à la ligne spécifiée dans l’argumentde ligne requis. L’argument line, qui correspond à une étiquette de ligne ou à un numéro de ligne, doit se trouver dans la même procédure que le gestionnaire d’erreurs.

Remarques

Si vous utilisez une instruction Resume en dehors d’une routine de gestion d’erreur, une erreur se produit.

Exemple

Cet exemple utilise l’instruction Resume pour mettre fin à la gestion d’erreur dans une procédure et reprendre l’exécution au niveau de l’instruction qui a provoqué l’erreur. L’erreur numéro 55 est générée pour illustrer l’utilisation de l’instruction Resume.

Sub ResumeStatementDemo() 
 On Error GoTo ErrorHandler ' Enable error-handling routine. 
 Open "TESTFILE" For Output As #1 ' Open file for output. 
 Kill "TESTFILE" ' Attempt to delete open file. 
 Exit Sub ' Exit Sub to avoid error handler. 
ErrorHandler: ' Error-handling routine. 
 Select Case Err.Number ' Evaluate error number. 
  Case 55 ' "File already open" error. 
   Close #1 ' Close open file. 
  Case Else 
   ' Handle other situations here.... 
 End Select 
 Resume ' Resume execution at same line that caused the error. 
End Sub

Voir aussi

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.

Partage via