Réponse acceptée !



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

Réponse acceptée !


 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