Discussion :

[Pierre67]

Bonjour à Tous

dans un usf je fais fais un choix dans une combobox.
Une msgbox s'ouvre (Oui:Non) si le choix est bon tout va bien
par contre si le choix n'est pas bon il faudrait pouvoir choisir à nouveau dans la combo

je patauge un peu
si après mon 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
18
19
20
21
22
Sub cbliste_Change()
Dim Msg As String, Titre As String, Style As Integer, Reponse As Integer, nomfichier As String
Dim fichier As String, nomfich As String, pos As String, chemin As String, repertoire As String
    If MsgBox("Vous avez sélectionné le fichier " & cbliste.Value & "." & Chr(10) & "Confirmez-vous ce choix ?", vbYesNo, "CHOIX DU FICHIER ") = vbYes Then
        fichier = cbliste.Value
        Workbooks.Open Filename:=repertoire & fichier
        nomfich = repertoire & fichier
       'MsgBox nomfich
       chemin = ActiveWorkbook.Name
       pos = InStr(chemin, ".xls")
       nomfichier = Left(chemin, pos - 1)
       ActiveWorkbook.SaveAs Filename:= _
       repertoire & nomfichier & ".xlsm", _
       FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
       ActiveWorkbook.Close
       Workbooks.Open Filename:=repertoire & nomfichier & ".xlsm"
 
 End If
' MENU.Hide
 'synthese
 
End Sub

si quelqu'un a une idée lorsque la réponse est non
cordialement

[Daniel.C]

Bonjour,

Genre :

Code :

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

1
2
3
    Dim Rep As Byte
    Rep = MsgBox("Est-ce que tu es sûr ?", vbOKCancel)
    If Rep = vbCancel Then Exit Sub

[Pierre67]

merci pour le réponse

mais quand la réponse est non vbcancel je n'arrive pas a valider un autre choix
la boucle est incomplète

[fring]

Bonjour,

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
If MsgBox("Vous avez sélectionné le fichier " & cbliste.Value & "." & Chr(10) & "Confirmez-vous ce choix ?", vbYesNo, "CHOIX DU FICHIER ") = vbNo Then Exit Sub
 
fichier = cbliste.Value
Workbooks.Open Filename:=repertoire & fichier
nomfich = repertoire & fichier
'MsgBox nomfich
chemin = ActiveWorkbook.Name
pos = InStr(chemin, ".xls")
nomfichier = Left(chemin, pos - 1)
ActiveWorkbook.SaveAs Filename:= _
repertoire & nomfichier & ".xlsm", _
FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
ActiveWorkbook.Close
Workbooks.Open Filename:=repertoire & nomfichier & ".xlsm"
 
'End If <-- supprimer cette ligne

[Pierre67]

cela tourn comme je le souhaitais
meric à tous pour la contribution