Corrigé 6.7 Gérer les erreurs

6.7.1 : Gérer simplement les erreurs

Sub GèreErreurSimple()  
  On Error GoTo Sortie_Sur_Erreur  
  Workbooks("Classeur N2.xlsx").Activate  
Sortie_Sur_Erreur:  
End Sub 

6.7.2 : Gérer les erreurs avec un message

Sub GèreErreurNumMessage()  
  On Error GoTo Sortie_Sur_Erreur  
  Workbooks("Classeur N2.xlsx").Activate  
Sortie_Sur_Erreur:  
  If Err.Number = 9 Then  
    MsgBox "Le classeur N2.xlsx n'est pas ouvert"  
  Else  
 ...