Microsoft 365 [RESOLU] problème Retour Chemin Environ(5) ou Environ("Documents)

Sub test()
Dim objFolders As Object
Set objFolders = CreateObject("WScript.Shell").SpecialFolders
MsgBox objFolders("mydocuments")
End Sub

Sub CheminRepertoiresSpeciaux()
       Const Cible = &H5 'Mes Documents
    Dim objShell As Object
    Dim objFolder As Object, objFolderItem As Object
    Set objShell = CreateObject("Shell.Application")
    Set objFolder = objShell.Namespace(Cible)
    Set objFolderItem = objFolder.Self
    MsgBox objFolderItem.Path
    Set objFolder = CreateObject("WScript.Shell").SpecialFolders
    MsgBox objFolder("mydocuments")
 End Sub

Private Declare Function lstrlenW Lib _
    "kernel32" (ByVal lpString&) As Long
Private Declare Function SHGetFolderPath Lib _
    "shfolder.dll" Alias "SHGetFolderPathA" (ByVal hwndOwner&, ByVal nFolder&, ByVal hToken&, ByVal dwReserved&, ByVal lpszPath$) As Long
Sub Avec_L_Artillerie_Lourde()
Dim sBuffer$, MesDocs$
sBuffer = Space$(260)
If SHGetFolderPath(&H0, &H5, -1, &H0, sBuffer) = 0 Then
MesDocs = Left$(sBuffer, lstrlenW(StrPtr(sBuffer)))
End If
MsgBox MesDocs
End Sub