Equivalent du controle Dirlist dasn VBA

Bosoir le Forum, Christelle,

Voici une fonction qui va afficher la boite de dialogue choisir repertoire

Function ChoisirDossier() ' fonction permettant de faire apparaitre une sorte d'explrateur permettant de selectionner un repertoire

Dim ObjShell, ObjFolder, Chemin, SecuriteSlash

Set ObjShell = CreateObject('Shell.Application')
Set ObjFolder = ObjShell.BrowseForFolder(&H0&, 'Choisissez un répertoire', &H1&)

On Error Resume Next

Chemin = ObjFolder.ParentFolder.ParseName(ObjFolder.Title).Path & ''

ChDir Chemin

If ObjFolder.Title = 'Bureau' Then MsgBox ' choisissez un répertoire autre que le bureau': Exit Function

If ObjFolder.Title = '' Then Chemin = ''

SecuriteSlash = InStr(ObjFolder.Title, ':')

If SecuriteSlash > 0 Then Chemin = Mid(ObjFolder.Title, SecuriteSlash - 1, 2) & ''

ChoisirDossier = Chemin
End Function

Cliquez pour agrandir...

et on l'appelle comme ca :

LblDestRep.Caption = ChoisirDossier & '\\'

Par contre ce ne te permet pas de choisir un fichier juste un répertoire.
Si tu veux choisir un fichier dit le je te donenrais une autre fonction.

Dernière remarque, ca ne marche pas avec le bureau

@+

Creepy

Merci c'est exactement ce dont j'avais besoin. Quelle rapidité !
Encore merci