Parcourir l'arborescence pour choisir un dossier

Et si tu étais plus explicite sur ce que tu voudrais faire ?

La liste des dossiers doit se visualiser où , dans quoi ?


Je te propose quelque chose comme ceci :

'Déclaration variables et API dans le haut d'un module Standard
Type BROWSEINFO
hOwner As Long
pidlRoot As Long
pszDisplayName As String
lpszTitle As String
ulFlags As Long
lpfn As Long
lParam As Long
iImage As Long
End Type

Declare Function SHGetPathFromIDListA Lib "Shell32.dll" _
(ByVal pidl As Long, ByVal pszPath As String) As Long

Declare Function SHBrowseForFolderA Lib "Shell32.dll" _
(lpBrowseInfo As BROWSEINFO) As Long

'--------------------------
Sub Test()
Dim bInfo As BROWSEINFO, szPath As String * 512
bInfo.lpszTitle = "Sélectionnez un dossier."
bInfo.ulFlags = &H1
If SHGetPathFromIDListA(SHBrowseForFolderA(bInfo), szPath) Then
MsgBox "Dossier sélectionné : " & _
Left(szPath, InStr(szPath, vbNullChar) - 1)
Else: MsgBox "Aucun dossier sélectionné."
End If
End Sub
'--------------------------





"Pierre Archambault" <pierre.archambault@videotron.ca> a écrit dans le message de news:
pfKbh.23971$yw5.594759@wagner.videotron.net...
Bonjour à tous,

J'aurais besoin d'une information.

Est-il possible, dans un UserForm, de faire choisir un dossier par
l'utilisateur en parcourrant l'arborescence de son système de fichiers sans
utiliser la boîte de dialogue: "BrowseFolder" ?

Merci pour votre aide.

Pierre