Boite de dialogue ouvrir..quelqu'un peut m'aider! [Résolu]

Signaler
Messages postés
16
Date d'inscription
jeudi 23 novembre 2000
Statut
Membre
Dernière intervention
21 mai 2006
-
Messages postés
16
Date d'inscription
jeudi 23 novembre 2000
Statut
Membre
Dernière intervention
21 mai 2006
-
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

Messages postés
4030
Date d'inscription
mardi 13 mai 2003
Statut
Modérateur
Dernière intervention
23 décembre 2008
20
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
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 112 internautes nous ont dit merci ce mois-ci

Messages postés
1854
Date d'inscription
jeudi 23 mai 2002
Statut
Membre
Dernière intervention
24 juin 2018
25
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
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 112 internautes nous ont dit merci ce mois-ci

Messages postés
16
Date d'inscription
jeudi 23 novembre 2000
Statut
Membre
Dernière intervention
21 mai 2006

merci ca marche trés bien..