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

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

3 réponses

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

Dire « Merci » 3

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

Codes Sources 207 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
23
3
Merci
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

Dire « Merci » 3

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

Codes Sources 207 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
0
Merci
merci ca marche trés bien..