Localiser emplacement disque dur avec un user form

'#######################################################################################################
'----------- pour function FLoadNomDuRep
Type StructBrowseInfo
  hWndOwner As Long
  pidlRoot As Long
  pszDisplayName As String
  lpszTitle As String
  ulFlags As Long
  lpfnCallback As Long
  lParam As Long
  iImage As Long
End Type
'Appel API pour function FLoadNomDuRep
Declare Function SHBrowseForFolder Lib "shell32" (lpbi As StructBrowseInfo) As Long
Declare Function SHGetPathFromIDList Lib "shell32" (ByVal pidList As Long, ByVal lpBuffer As String) As Long

Sub ESSAI()
MsgBox FLoadNomDuRep
End Sub

Public Function FLoadNomDuRep() As String
Dim BrowsInfo As StructBrowseInfo, RepDialog As Long, Path As String
BrowsInfo.lpszTitle = "Sélectionnez un répertoire"
BrowsInfo.pidlRoot = 0& 'Poste de travail
BrowsInfo.ulFlags = &H1 'Type directory
RepDialog = SHBrowseForFolder(BrowsInfo) 'affiche la boite de dialogue
' traite résultat
FLoadNomDuRep = "": Path = Space(512) 'crée un tampon pour extraire le chemin
If SHGetPathFromIDList(ByVal RepDialog, ByVal Path) Then FLoadNomDuRep = Left(Path, InStr(Path, Chr$(0)) - 1)
End Function
'#######################################################################################################