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
- Messages postés
- 16
- Date d'inscription
- jeudi 23 novembre 2000
- Statut
- Membre
- Dernière intervention
- 21 mai 2006
A voir également:
- Boite de dialogue ouvrir..quelqu'un peut m'aider!
- Visual Basic / VB.NET : Boite de dialogue ouvrir/enregistrer - CodeS SourceS - Guide
- Visual Basic / VB.NET : Programmer sa boite de dialogue ouvrir répertoire - CodeS SourceS - Guide
- Boite de dialogue ouvrir et suppression lignes ✓ - Forum - Visual Basic 6
- Boite de dialogue Ouvrir / Enregistrer Sous (API OPENFILENAME) ✓ - Forum - Visual Basic
- Afficher boite de dialogue ouvrir dans excel ✓ - Forum - Visual Basic
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
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
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
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
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
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
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
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
207 internautes nous ont dit merci ce mois-ci