Equivalent du controle Dirlist dasn VBA

[christelle]

Bonjour,
Je travaillais sous VB 6 et ilm'était possible d'ajouter un composant qui permettait à l'utilisateur de parcourir son disque dur (un peu comme la boite de dialogue qui s'ouvre quand on fait 'fichier==>ouvrir' sous excel).
Est ce que ce composant est diponible sous VBA et si oui quelle reférence doit-on activer ?

Merci de vos réponses

 

[Creepy]

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

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

 

[Christelle]

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