Discussion :

[hortencia]

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.

[casefayere]

Bonsoir,
exemple ;

Code :

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

1
2
3
4
5
sub nanana()
Bouton.Caption = "Modifications en cours"
...ton code
Bouton.Caption = "Modifications terminées"
end sub

ça ne suffirait pas ?

[hortencia]

Merci casefayere.

Non.
En fait lorsque je click pour une première fois sur le bouton.
Le code 1 doit s'effectuer.
Entre autre, je choisit un fichier à ouvrir et je le manipule.
Mais si par exemple j'annule, le statut du bouton passe quand même à "Modifications terminées" et procedureEnCours passe à False.

Je voudrais mettre une condition.
Genre si le code1 ne s’exécute pas jusqu'au bout alors procedureEnCours reste à True et quand je reclickerais sur le bouton, ce ne sera pas le code 1 mais bien le code 2 qui sera exécuté.

code 1 et code 2 sont des procédures que j'ai dans d'autre module.

Cordialement.

[casefayere]

Excuses-moi de ne pas comprendre, mais :

Mais si par exemple j'annule,...

quelle est ta procédure pour annuler (éventuellement) ?

[hortencia]

Voici un fichier Test,

Ce sera beaucoup plus parlant.

[mercatog]

C'est un peu tordu à mon sens comme façon de procéder mais bon, je ne saurai donner d'avis personnel.

J'ai ajouté une variable publique booléenne Ouvert
Module:

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
Public ProcedureEnCours As Boolean
Public ClasseurOuvert As String
Public Ouvert As Boolean
'Chemin initial proposé à l'utilisateur quand il ouvre le fichier
Private Const CHEMIN_FICHIERS As String = "C:\Documents and Settings\llolekal\Bureau"    'A PERSONNALISER !
 
 
'Première partie de la macro
'Ouverture du fichier, préparation et choix pour l'utilisateur des catégories
Public Sub Code1()
Dim wb1 As Workbook
Dim ws1 As Worksheet
 
Ouvert = OuvertureFichier(wb1, CHEMIN_FICHIERS)
If Ouvert Then
    ClasseurOuvert = wb1.Name
    Set ws1 = wb1.Worksheets(1)
    MsgBox ClasseurOuvert
End If
End Sub
 
Public Sub Code2()
 
MsgBox "Voilà"
End Sub
 
Public Function OuvertureFichier(ByRef Wb As Workbook, ByVal CheminInitial As String) As Boolean
 
With Application.FileDialog(msoFileDialogOpen)
    .Filters.Clear
    .Filters.Add "Fichier Excel", "*.xls; *.xlsx; *.xlsm"
    .AllowMultiSelect = False
    .InitialFileName = CheminInitial
    .Show
    If .SelectedItems.Count = 1 Then
        OuvertureFichier = True
        Set Wb = Workbooks.Open(.SelectedItems(1))
    Else
        MsgBox "Erreur à l'ouverture du fichier"
    End If
End With
End Function

Bouton:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub btnExecution_Click()
 
If ProcedureEnCours Then
    Code2
    ProcedureEnCours = False
    btnExecution.Caption = "Ouvrir le fichier"
Else
    Code1
    If Ouvert Then
        ProcedureEnCours = True
        btnExecution.Caption = "Modifications terminées"
    End If
End If
End Sub

PS: J'ai pas trop cherché à comprendre le pourquoi

[hortencia]

Bonjour à tous,

Merci Mercadog.

Mais la solution de me convient pas, dans le code1 ainsi que dans le code 2 il y a beaucoup de code.

Est ce possible de mettre une condition le fait ou non que les codes 1 et 2 s’exécute jusqu'à la fin, dans quel cas je change mon Statut et la valeur de ma variable procedureEnCours.

Cordialement.

[Philippe Tulliez]

Bonjour,
L'utilisation de la variable booléenne est la solution.
La proposition de Mercatog est celle que j'aurais préconisée quant à tes procédures Code1 & Code2 tu écris ce que tu veux à l'intérieur. Ce n'est qu'un exemple qu'il t'a montré.

[hortencia]

Merci de ta réponse Corona.

Voici le fichier complet en pièce jointe.
Car je n'y parvient pas.

Cordialement.

Bonjour à tous,

Quelqu'un aurait t-il une idée.
Comme vous voyez dans le classeur ci dessous, lorsque l'on "click" sur le bouton, même si la première partie ne s’exécute, le statut est changé.

Je voudrais éviter cela.
Que si la première partie ne s’exécute pas correctement, le statut ne change pas et que lorsque l'on "reclickera" sur le bouton, ce soit la première partie qui soit appelé et non la deuxième.

Cordialement.