Choix combobx et msgbox de validation

Version imprimable

08/09/2012, 10h27
Pierre67

Choix combobx et msgbox de validation

Bonjour à tous

dans un userform, j'ai une combobox qui me permet de choisir un fichierxls à ouvrir.
Comment associer le choix de la combo avec une msgbox de validation du style "est-ce le fichier que vous voulez ouvrir / oui / non)

je galère un peu avec le code
merci pour vos tuyaux
cordialement

Bonjour,

Un exemple de code qui utilise l’évènement change du ComboBox1.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Option Explicit
Private Sub ComboBox1_Change()
Dim Msg As String, Titre As String
Dim Style As Integer, Reponse As Integer
    Msg = "Vous avez sélectionné le fichier " & ComboBox1.Value & "." & Chr(10) & "Confirmez-vous ce choix ?"
    Style = vbYesNo + vbQuestion + vbDefaultButton2
    Titre = "CHOIX DU FICHIER "
    Reponse = MsgBox(Msg, Style, Titre)
    If Reponse = vbYes Then
        MsgBox "On peut ouvrir le fichier"
    Else
        MsgBox "On ne doit pas ouvrir le fichier"
    End If
End Sub

Cordialement.

08/09/2012, 11h17
Pierre67

Merci gFZT82
ce code fonctionne à merveille
maintenant en fonction du oui je vais tenter d'ouvrir le fichier et en cas de non revenir au choix de fichier
merci