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  
 ...
Pour consulter la suite, découvrez le livre suivant :
couv_TP21EXCV.png
60-signet.svg
En version papier
20-ecran_lettre.svg
En version numérique
41-logo_abonnement.svg
En illimité avec l'abonnement ENI
130-boutique.svg
Sur la boutique officielle ENI
Précédent
Corrigé 6.6 Gérer les événements
Suivant
Corrigé 6.8 Créer une classe avec un événement de classe