1. Accueil
  2. Forum Codes-Sources
  3. Visual Basic
Sujet Précédent Sujet Suivant

Boite de dialogue ouvrir..quelqu'un peut m'aider!

Résolu
laiila Messages postés 16 Date d'inscription jeudi 23 novembre 2000 Statut Membre Dernière intervention 21 mai 2006 - 7 mai 2006 à 21:28
laiila Messages postés 16 Date d'inscription jeudi 23 novembre 2000 Statut Membre Dernière intervention 21 mai 2006 - 7 mai 2006 à 22:27
salut,
j'ai un petit probléme est j'espere que qq'un a une solution,je voudrais savoir
comment faire pour avoir la boite de dialogue ouvrir de windows.
Merci

3 réponses

Réponse 1 / 3
econs Messages postés 4030 Date d'inscription mardi 13 mai 2003 Statut Modérateur Dernière intervention 23 décembre 2008 23
7 mai 2006 à 21:40
Salut, en VB6, çà donne ceci :



Appuies sur les touches CTRL+T

Coches la case "Microsoft Common Dialog"



Un composant apparaît sur ta barre d'outils. Places en un sur ta feuille.



Le composant s'appelle alors CommonDialog1



Et le code :



CommonDialog1.ShowOpen

MsgBox CommonDialog1.Filename


Manu
3
Réponse 2 / 3
cs_JMO Messages postés 1854 Date d'inscription jeudi 23 mai 2002 Statut Membre Dernière intervention 24 juin 2018 26
7 mai 2006 à 21:43
Bonsoir,

MsgBox BrowseForFile("D:", "txt File|*.txt|All Files|*.*")
Function BrowseForFile(pstrPath, pstrFilter)
Set objDialog = CreateObject("UserAccounts.CommonDialog")
objDialog.Filter = pstrFilter
objDialog.InitialDir = pstrPath
objDialog.Flags = &H80000 + &H4 + &H8
intResult = objDialog.ShowOpen
BrowseForFile = objDialog.FileName
Set objDialog = Nothing
End function

jean-marc
3
Réponse 3 / 3
laiila Messages postés 16 Date d'inscription jeudi 23 novembre 2000 Statut Membre Dernière intervention 21 mai 2006
7 mai 2006 à 22:27
merci ca marche trés bien..
0