Microsoft 365 [Résolu]VBA: encoder un chemin de sauvegarde OneDrive utilisable depuis plusieurs appareils

Function OuEstOneDrive(DossierDeTete$, Idx%)
    Dim fso As Object, Dossier As Object
    Dim sousRep As Object, Flder As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set Dossier = fso.GetFolder(DossierDeTete)
    For Each Flder In Dossier.subfolders
        tablo = Split(Flder.Path, "\")
        For L = 0 To UBound(tablo)
            If LCase(tablo(L)) Like "*onedrive*" Then
                 Idx = Idx + 1
                OuEstOneDrive = Flder.Path & "\"
                Exit Function
            End If
        Next L
    Next
    For Each sousRep In Dossier.subfolders
        T = OuEstOneDrive(sousRep.Path, Idx)
        If T <> "" Then
            OuEstOneDrive = T
            Exit Function
        End If
    Next sousRep
    Set fso = Nothing
    Set fso = Nothing
End Function

Sub test()
  X = OuEstOneDrive("C:\Users\", 0)
  MsgBox X
End Sub

Dim Chemin As String
Chemin = ActiveWorkbook.Path & "\"