Répertoire mes documents dans macro

'Du Grand Laurent Longre Le Grand Chef à Trois Plumes !!

Private Declare Function SHGetSpecialFolderLocation Lib 'Shell32' _
  (ByVal hwnd As Long, ByVal nFolder As Long, ppidl As Long) As Long

Private Declare Function SHGetPathFromIDList Lib 'Shell32' _
  (ByVal Pidl As Long, ByVal pszPath As String) As Long

Sub test()
  MsgBox 'Bureau = ' & DSpec(0)
  MsgBox '''Mes Documents'' = ' & DSpec(5)
End Sub

Private Function DSpec(nFolder As Long) As String
  Dim Pidl As Long
  SHGetSpecialFolderLocation 0, nFolder, Pidl
  DSpec = Space(260)
  SHGetPathFromIDList Pidl, DSpec
  DSpec = Left$(DSpec, InStr(1, DSpec, vbNullChar) - 1)
End Function

Sub ListSpeacialFolders()
Dim i&
    For i = 0 To 100
    Cells(i + 1, 1) = 'ID N° ' & i
    Cells(i + 1, 2) = DSpec(i)
   
    Next
End Sub

Cliquez pour agrandir...

Sub DeskTop()
Dim ScrHst As Object
Dim Where As String

Set ScrHst = CreateObject('WScript.Shell')
Where = ScrHst.SpecialFolders('DeskTop')
MsgBox Where

End Sub

Cliquez pour agrandir...