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
- Ce programme est écrit en python. il construit un mot secret dans une variable mais il ne l'affiche pas. modifiez-le pour qu'il affiche le mot secret. exécutez-le. quel est ce mot secret ? ✓ - Forum Python
- Erreur 1004 vba ✓ - Forum VB / VBA
- Recuperer message whatsapp - Guide
- Message d'absence outlook - Guide
- Messenger me dit que j'ai un message alors que non - Forum Facebook Messenger
5 réponses
f894009
Messages postés
16904
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
18 mars 2023
1 678
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
16904
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
18 mars 2023
1 678
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
21303
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
18 mars 2023
1 326
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
16904
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
18 mars 2023
1 678
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
21303
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
18 mars 2023
1 326
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
16904
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
18 mars 2023
1 678
>
yg_be
Messages postés
21303
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
18 mars 2023
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