comment afficher un message box? Résolu

Question

Bonjour, 
 Désolée le libellet de mon sujet ne dit pas clairement mon problème mais plus de place  ...bref
j'ai plusieurs modules dans mon code où dans le getopenfilename j'autorise la sélection de 2 fichiers seulement j'aimerai afficher un message d'alerte  si un seul est sélectionné ou rien du tout au lieu d'avoir un bug mais je ne trouve pas comment faire en faisant comme d'habitude (c'est-à-dire lorsque c'est un seul fichier sélectionné et mettant le msgBox)  j'ai l'erreur type mismatch.

Merci d'avance pour votre aide.


Configuration: Windows / Chrome 61.0.3163.100

f894009 · Answer

Bonjour,

A voir

https://support.microsoft.com/fr-fr/help/465507

yg_be · Answer

et ainsi?
 Dim  Quelfichier() As Variant
Quelfichier = Application.GetOpenFilename("Excel Files (*.csv), *.csv", 2, "Sélection des fichiers", , True)
Dim ok As Boolean
   ok = False    
    If (VarType(Quelfichier) = vbArray + vbVariant) Then
        If UBound(Quelfichier, 1) - LBound(Quelfichier, 1) + 1 = 2 Then
            ok = True
        End If
    End If
    If Not ok Then
        'Displaying a message if file not choosed in the above step
        MsgBox "Files not Found. Choose 2 files", vbExclamation, "!! Warning !!"
        Exit Sub
   End If

f894009 · Answer

Bonjour a vous deux,

Sub FileName()
FichiersAOuvrir = Application.GetOpenFilename(, , , , True)
If IsArray(FichiersAOuvrir) And UBound(FichiersAOuvrir, 1) > 1 Then
For i = LBound(FichiersAOuvrir, 1) To UBound(FichiersAOuvrir, 1)
    'Ouvre les fichiers sélectionnés
    Workbooks.Open FichiersAOuvrir(i)
Next i
Else
 MsgBox "Files not Found. Choose 2 files", vbExclamation, "!! Warning !!"
End If
End Sub

muiigisha · Answer

Merci à tous les deux et surtout pour vos promptes réactions,
j'ai finalement utilisé celui de f894009 parce que je comprenais mieux les les instructions et commandes qu'il a utilisées, merci yg_be(je suis disposée à comprendre si tu veux bien m'expliquer, je suis là pour apprendre).
Et pour l'erreur dont yg_be parlait je ne l'ai pas eu quand j'ai compilé.

Merci encore à vous.

f894009 · Answer

Re,


Mieux comme ca:
Sub FileName()
    Dim FichiersAOuvrir
    FichiersAOuvrir = Application.GetOpenFilename(, , , , True)
    If VarType(FichiersAOuvrir) <> vbBoolean Then
        If IsArray(FichiersAOuvrir) And UBound(FichiersAOuvrir, 1) > 1 Then
            For i = LBound(FichiersAOuvrir, 1) To UBound(FichiersAOuvrir, 1)
                'Ouvre les fichiers sélectionnés
                Workbooks.Open FichiersAOuvrir(i)
            Next i
        Else
            MsgBox "Files not Found. Choose 2 files", vbExclamation, "!! Warning !!"
        End If
    Else
        MsgBox "No chosen file", vbExclamation, "!! WARNING !!"
    End If
End Sub

Comment afficher un message box?

5 réponses

Discussions similaires

Newsletters