Bonsoir à tous,
J'ai un bouton sur lequel est attaché ce code :
procedureEnCours est égale à vrai au départ.
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
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.
Partager