Sélectionner un fichier via explorateur "on_click"
Résolu
antoine_ferard
Messages postés
222
Date d'inscription
mercredi 5 avril 2006
Statut
Membre
Dernière intervention
18 février 2011
-
19 juil. 2007 à 16:13
jmfmarques Messages postés 7666 Date d'inscription samedi 5 novembre 2005 Statut Membre Dernière intervention 22 août 2014 - 19 juil. 2007 à 18:12
jmfmarques Messages postés 7666 Date d'inscription samedi 5 novembre 2005 Statut Membre Dernière intervention 22 août 2014 - 19 juil. 2007 à 18:12
A voir également:
- Sélectionner un fichier via explorateur "on_click"
- Fichier .ini - Conseils pratiques -Visual Basic / VB.NET
- Fichier json - Conseils pratiques -Javascript
- Vba écrire dans un fichier texte - Conseils pratiques -Visual Basic / VB.NET
- Vba sélectionner une feuille - Forum VB.NET
- Selectionner la derniere cellule non vide d'une colonne excel vba - Forum VBA Office (Excel, Word ...)
3 réponses
jmfmarques
Messages postés
7666
Date d'inscription
samedi 5 novembre 2005
Statut
Membre
Dernière intervention
22 août 2014
27
19 juil. 2007 à 16:16
19 juil. 2007 à 16:16
C'est déjà toout fait, tout cuit et tout prêt à être dégusté ...
Ce plat s'appelle un contrôle CommonDialog
(de nombreux exemples et sources sur ce forum).
Ce plat s'appelle un contrôle CommonDialog
(de nombreux exemples et sources sur ce forum).
antoine_ferard
Messages postés
222
Date d'inscription
mercredi 5 avril 2006
Statut
Membre
Dernière intervention
18 février 2011
3
19 juil. 2007 à 16:46
19 juil. 2007 à 16:46
merci beaucoup, c'est "nikouel"...
Private Sub Command2_Click()
CommonDialog1.ShowOpen
Txt_Clt_Contact(2).Text = CommonDialog1.FileName
End Sub
Private Sub Command2_Click()
CommonDialog1.ShowOpen
Txt_Clt_Contact(2).Text = CommonDialog1.FileName
End Sub
jmfmarques
Messages postés
7666
Date d'inscription
samedi 5 novembre 2005
Statut
Membre
Dernière intervention
22 août 2014
27
19 juil. 2007 à 18:12
19 juil. 2007 à 18:12
Bravo (bien)
Pense également à tes filtres :
Ainsi, par exemple :
Private Sub Command1_Click()
CommonDialog1.Filter = "Text (*.txt)|*.txt|Pictures (*.bmp;*.ico)|*.bmp;*.ico"
CommonDialog1.ShowOpen
MsgBox CommonDialog1.filename
End Sub
Pense également à tes filtres :
Ainsi, par exemple :
Private Sub Command1_Click()
CommonDialog1.Filter = "Text (*.txt)|*.txt|Pictures (*.bmp;*.ico)|*.bmp;*.ico"
CommonDialog1.ShowOpen
MsgBox CommonDialog1.filename
End Sub