Discussion :

[roadrunner34]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[binarygirl]

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.

[Thumb down]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[deedolith]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Thumb down]

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.