Menu

Comment afficher un message box? [Résolu]

muiigisha 61 Messages postés lundi 25 septembre 2017Date d'inscription 6 décembre 2017 Dernière intervention - 7 nov. 2017 à 08:39 - Dernière réponse : muiigisha 61 Messages postés lundi 25 septembre 2017Date d'inscription 6 décembre 2017 Dernière intervention
- 9 nov. 2017 à 08:37
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.


Afficher la suite 

Votre réponse

9 réponses

Meilleure réponse
f894009 13120 Messages postés dimanche 25 novembre 2007Date d'inscription 21 juin 2018 Dernière intervention - 7 nov. 2017 à 15:20
1
Merci
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

Merci f894009 1

Avec quelques mots c'est encore mieux Ajouter un commentaire

CCM a aidé 24353 internautes ce mois-ci

muiigisha 61 Messages postés lundi 25 septembre 2017Date d'inscription 6 décembre 2017 Dernière intervention - 9 nov. 2017 à 08:37
Super merci
Commenter la réponse de f894009
f894009 13120 Messages postés dimanche 25 novembre 2007Date d'inscription 21 juin 2018 Dernière intervention - 7 nov. 2017 à 08:45
muiigisha 61 Messages postés lundi 25 septembre 2017Date d'inscription 6 décembre 2017 Dernière intervention - 7 nov. 2017 à 09:30
merci f894009,
mais j'ai toujours l'erreur type mismatch à moins que je ne l'ai mal adapté à mon code

Dim Quelfichier() As Variant
Quelfichier = Application.GetOpenFilename("Excel Files (*.csv), *.csv", 2, "Sélection des fichiers", , True)

If Not Array(Quelfichier) 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
Commenter la réponse de f894009
yg_be 5804 Messages postés lundi 9 juin 2008Date d'inscriptionContributeurStatut 21 juin 2018 Dernière intervention - 7 nov. 2017 à 10:29
0
Merci
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
Commenter la réponse de yg_be
f894009 13120 Messages postés dimanche 25 novembre 2007Date d'inscription 21 juin 2018 Dernière intervention - 7 nov. 2017 à 13:12
0
Merci
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
yg_be 5804 Messages postés lundi 9 juin 2008Date d'inscriptionContributeurStatut 21 juin 2018 Dernière intervention - 7 nov. 2017 à 13:47
bonjour, cela donne type "mismatch" dans le cas où getopenfilename retourne un boolean plutôt qu'une array de variants.
f894009 13120 Messages postés dimanche 25 novembre 2007Date d'inscription 21 juin 2018 Dernière intervention > yg_be 5804 Messages postés lundi 9 juin 2008Date d'inscriptionContributeurStatut 21 juin 2018 Dernière intervention - 7 nov. 2017 à 15:05
Re,
Ok, sur annuler selection fichier
Commenter la réponse de f894009
muiigisha 61 Messages postés lundi 25 septembre 2017Date d'inscription 6 décembre 2017 Dernière intervention - Modifié par muiigisha le 7/11/2017 à 14:22
0
Merci
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.
Commenter la réponse de muiigisha