Comment afficher un message box?
Résolu/Fermé
muiigisha
Messages postés
61
Date d'inscription
lundi 25 septembre 2017
Statut
Membre
Dernière intervention
6 décembre 2017
-
7 nov. 2017 à 08:39
muiigisha Messages postés 61 Date d'inscription lundi 25 septembre 2017 Statut Membre Dernière intervention 6 décembre 2017 - 9 nov. 2017 à 08:37
muiigisha Messages postés 61 Date d'inscription lundi 25 septembre 2017 Statut Membre Dernière intervention 6 décembre 2017 - 9 nov. 2017 à 08:37
A voir également:
- Afficher un message vba
- Comment recuperer un message supprimé sur whatsapp - Guide
- Message d'absence thunderbird - Guide
- Laisser un message vocal et raccrocher - Forum Mobile
- Messenger me dit que j'ai un message alors que non - Forum Facebook Messenger
- Message non envoyé appuyez pour réessayer - Forum Mobile
5 réponses
f894009
Messages postés
17185
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
15 avril 2024
1 701
7 nov. 2017 à 15:20
7 nov. 2017 à 15:20
Re,
Mieux comme ca:
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
f894009
Messages postés
17185
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
15 avril 2024
1 701
7 nov. 2017 à 08:45
7 nov. 2017 à 08:45
Bonjour,
A voir
https://support.microsoft.com/fr-fr/help/465507
A voir
https://support.microsoft.com/fr-fr/help/465507
muiigisha
Messages postés
61
Date d'inscription
lundi 25 septembre 2017
Statut
Membre
Dernière intervention
6 décembre 2017
Modifié le 7 nov. 2017 à 09:31
Modifié le 7 nov. 2017 à 09:31
merci f894009,
mais j'ai toujours l'erreur type mismatch à moins que je ne l'ai mal adapté à mon code
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
yg_be
Messages postés
22696
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
17 avril 2024
1 471
7 nov. 2017 à 10:29
7 nov. 2017 à 10:29
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
Messages postés
17185
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
15 avril 2024
1 701
7 nov. 2017 à 13:12
7 nov. 2017 à 13:12
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
Messages postés
22696
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
17 avril 2024
1 471
7 nov. 2017 à 13:47
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
Messages postés
17185
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
15 avril 2024
1 701
>
yg_be
Messages postés
22696
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
17 avril 2024
7 nov. 2017 à 15:05
7 nov. 2017 à 15:05
Re,
Ok, sur annuler selection fichier
Ok, sur annuler selection fichier
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
muiigisha
Messages postés
61
Date d'inscription
lundi 25 septembre 2017
Statut
Membre
Dernière intervention
6 décembre 2017
Modifié le 7 nov. 2017 à 14:22
Modifié le 7 nov. 2017 à 14:22
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.
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.
9 nov. 2017 à 08:37