Bonsoir à tous,

J'ai un bouton sur lequel est attaché ce code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Option Explicit
 
Private Sub Bouton_Click()
    If procedureEnCours Then
       Code1
        procedureEnCours = False
        Bouton.Caption = "Ouvrir le fichier"
    Else
       Code2
        procedureEnCours = True
        Bouton.Caption = "Modifications terminées"
    End If
End Sub
procedureEnCours est égale à vrai au départ.

Donc lorsque je click sur le bouton.
Le Code1 s’exécute.

Je voudrais que dès lors qu'il y a une erreur et que le code 1 ne s’exécute pas jusqu’au bout, l'inscription du bouton reste "Ouvrir le fichier"(Bouton.Caption = "Ouvrir le fichier").

Sauriez vous comment je dois m'y prendre, s'il vous plaît.
Cordialement.