Détecter un fichier ouvert depuis mon Onedrive

Bonjour à toutes et à tous,

dans mes fichiers excel, j'ai une routine de base que j'intègre dans quasi tous :

Ça se trouve, vous l'aurez probablement deviné, dans le "workbook - beforeclose"

Private Sub Workbook_BeforeClose(Cancel As Boolean)

'**********************************
'Ne plus afficher les alertes genre overwrite un fichier sur un autre !
Application.DisplayAlerts = False

If ThisWorkbook.Sheets("Feuil1").Range("date_fichier") = Date Then

'MsgBox ("Même date que fichier, pas besoin de sauvegarder")

Else

  ThisWorkbook.Sheets("Feuil1").Range("date_fichier") = Date
  ActiveWorkbook.Save

  CheminSource = ThisWorkbook.Path
  On Error Resume Next
  MkDir CheminSource & "\" & "00_Backup"
  On Error GoTo 0
  name1 = Format(Date, "yyyymmdd") & " - " & ThisWorkbook.Name
  Namepath = ThisWorkbook.Path & "\" & "00_Backup\" & name1
  ActiveWorkbook.SaveAs Filename:=Namepath, FileFormat:=xlOpenXMLWorkbookMacroEnabled, Password:="", WriteResPassword:="", _
                          ReadOnlyRecommended:=True, CreateBackup:=False, ConflictResolution:=xlOtherSessionChanges

End If

Application.DisplayAlerts = True

End Sub

J'aimerais enregistrer ce fichier sur mon onedrive pour pouvoir l'ouvrir de n'importe où, mais dans ce cas j'ai une erreur d'écriture.
J'aimerais rajouter un "IF ELSE" qui détecterait que le fichier est ouvert depuis mon onedrive et dans ce cas, je modifierais le "Namepath" pour pointer sur un répertoire en dur et fixé sur mon disque.

Si c'est possible et que vous pouviez m'aider, je vous en serais reconnaissant.

Merci d'avance.

David