on error goto .

Bonjour

j'ai créé une série de de macro protégées faisant référence à des onglets etc
en cas d'erreur je voudrais forcer la fermeture du fichier
exemple en cas de changement de nom de l'onglet ou d'une autre erreur d'exécution est - il possible d'empêcher l'ouverture de visual basic editor et de forcer la fermeture du classeur sans enregistrement?

j'ai essayer ça , mais ça ne fonctionne pas (si l'onglet "janvier" n'existe pas , l'éditeur s'ouvre ):
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Sub test_erreur() On Error GoTo Gestion_Erreur Sheet(janvier).Activate Gestion_Erreur: MsgBox "Une erreur s'est produite. Fin de la procédure" Exit Sub ActiveWorkbook.Close Savechanges:=False End Sub
Merci à tous

Le nom janvier devrait être quoté non ?
De manière plus générale, il me semble préférable d'anticiper l'erreur plutôt que la gérer après coup. Il est facile de vérifier si un sheet portant un certain nom existe.
D'autre part, le Exit Sub est probablement à la mauvaise place et a pour effet de sortir de la procédure trop tôt: la ligne suivante ne sera pas exécutée.

bonjour,
ton code fonctionnerait si tu avais écri Sheets et pas Sheet!

Code:

1
2
 'Sheet(janvier).Activate
  Sheets(janvier).Activate

Code:

1
2
3
4
5
6
7
8
9
Sub test_erreur()
On Error GoTo Gestion_Erreur
Err.Raise 1664, "APP", "Vas donc boire une bière à ma santé !"
 
Gestion_Erreur:
MsgBox "Err : " & Err.Number & vbCrLf & "Source : " & Err.Source & vbCrLf & Err.Description
Exit Sub
ActiveWorkbook.Close Savechanges:=False
End Sub

Attention à ne pas tomber dans la facilité.

La seule raison d'être des gestionnaires d'erreur est de prendre en charge quelque chose contre lequel tu ne peux te prémunir (une connexion réseau qui lâche par exemple).
Dans le cas contraire, il s'agit d'erreur de programmation, que tu te dois de corriger.

Vérifier l'existence d'une feuille est facile:
Tu parcours la collection Worksheets et tu test le nom de chaque feuille.
Par exemple:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Public Function SheetExist(ByVal Name As String) As Boolean Dim Return As Boolean Return = False Dim Ws As Excel.Worksheet For Each Ws In thisWorkbook.Worksheets If(Ws.Name = Name) Then Return = True End If Next SheetExist = Return End Function

bonjour deedolith,
pour l'heure, je pense que notre amis veux générer une erreur pour tester, mais vba l'informais d'une erreur de syntaxe sur Sheet!

le Sheets(janvier).Activate devait générer l'erreur attendue.
ceci dit tu as raison la gestion des erreur doit prendre en compte ce qui n'est pas prédictif.