Zouri - Arb.TreeView

Merci =E0 tous pour toutes vos propositions.
Zouri, le code fonctionne mais le d=E9butant que je suis ne=20
comprend pas comment rajouter des checkboxes en face=20
chaque dossier qui apparait dans la boite qui montre=20
l'arborescence. Il y a deux boites de dialogue qui=20
apparaissent mais je ne comprend pas comment l'une d'elle=20
est d=E9finie. Faut-il intervenir dans cette partie de code=20
du Module1:
'**********************************************************
' Ouvre la fen=EAtre de dialogue pour dossier
'**********************************************************
Public Function BrowseForFolder _
( _
ByRef hOwnerWnd As Long, _
ByRef sStartFolder As String _
) As String

Dim lpIDList As Long 'Pointeur vers la liste d'ID de=20
'fichier
Dim bi As BrowseInfo ' Infos pour la configuration du=20
'dialogue
Const MAX_PATH As Long =3D 260& ' Nombre de caract=E8res=20
'maximum d 'un chemin

With bi
.hWndOwner =3D hOwnerWnd ' Initialise la fen=EAtre=20
'parent
.lpszTitle =3D StrPtr(sStartFolder) ' Initialise le=20
'pointeur sur la chaine
.ulFlags =3D BIF_RETURNONLYFSDIRS ' Ferme le=20
'dialogue seulement si l 'usager =E0 s=E9lectionner un dossier


End With

lpIDList =3D SHBrowseForFolder(bi)
' Montre le dialogue
=20
If lpIDList <> 0 Then
BrowseForFolder =3D String$(MAX_PATH, vbNullChar)
' Initialise un buffer pour la chaine
SHGetPathFromIDList lpIDList, BrowseForFolder
' Obtient le chemin de la liste d'ID
CoTaskMemFree lpIDList
' Lib=E8re le block de m=E9moire
StripNullTerminator BrowseForFolder
' Enl=E8ve le caract=E8re Null =E0 la fin de la chaine
End If

End Function


Merci encore...

FRED