Bonjour à tous.

J'ai UF avec un bouton de commande. Dans ce bouton, j'ai une gestion des erreurs.

Code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Bug:
    Select Case Err
 
        Case 0
            Exit Sub
        Case 1004
            Application.DisplayAlerts = False
            MsgBox "Le nom de l'employé(e) existe déjà dans le nom des onglets. Vous devez nommer l'employé(e) actuel(le) d'une autre façon", vbOKOnly
            TextBox2.SetFocus
            ActiveSheet.Delete
             Worksheets("Calcul").Visible = 2
             Application.DisplayAlerts = True
 
        Case Else
            MsgBox "Une erreur inconnue est survenue. Veuillez prendre contact avec ...", vbOKOnly
            Exit Sub
    End Select
Avec Excel 2003, aucun problème car case 0 est sélectionné.

Dans Excel 2007 (avec les mêmes informations dans mon UF), le code fonctionne bien mais au lieu de sélectionné "Case 0", il sélectionne "Case else".

J'ai annulé la gestion des erreurs pour obtenir le code d'erreur et surprise il n'y en a pas d'erreur.

Je suis confus.

Quelqu'un a une idée ?

Dlight