Office: (Office 365) Speichern auf Onedrive

Hallo zusammen,
ich habe eine Datei die von verschiedenen MA benutzt wird.
Die MA können diese in ein Verzeichnis ihrer Wahl speichern.
Nun will ich aber diese Datei auch auf onedrive speichern.
Die MA haben aber nicht den Lokalen Zugriff. (C:\Users\IGD Technik\OneDrive\)
Wie kann ich nun die Datei auf onedrive speichern.
Auszug des Code:

Code:

Sub SaveAs()
Dim FSO As New FileSystemObject
Dim Pfad As String

Dim DateiName As String
       DateiName = Range("A11") & "_" & Range("A5") & "_" & Range("I9") & "_" & Format(Range("M9"), "MMM yy")
       Pfad = "C:\Users\IGD Technik\OneDrive\IGD\Test"      'https://d.docs.live.net/xxxxx0c7651aeda1/IGD/Test (pfad geändert)
 If Dir(Pfad, vbDirectory) = "" Then 'Prüft ob es den Ordner gibt
 FSO.CreateFolder Pfad & "\" & Format(Range("M9"), "yyyy") 'Hauptordner
 End If
 If Dir(Pfad & "\" & Format(Range("M9"), "yyyy") & "\" & Range("I9"), vbDirectory) = "" Then
 FSO.CreateFolder Pfad & "\" & Format(Range("M9"), "yyyy") & "\" & Range("I9") 'Unterordner 1
 End If
 If Dir(Pfad & "\" & Format(Range("M9"), "yyyy") & "\" & Range("I9") & "\" & Format(Range("M9"), "MMM yy"), vbDirectory) = "" Then
 FSO.CreateFolder Pfad & "\" & Format(Range("M9"), "yyyy") & "\" & Range("I9") & "\" & Format(Range("M9"), "MMM yy") 'Unterordner 2
 End If
 '       Datei speichern
' Application.DisplayAlerts = False
 ThisWorkbook.SaveAs Filename:=Pfad & "\" & Format(Range("M9"), "yyyy") & "\" & Range("I9") & "\" & Format(Range("M9"), "MMM yy") & "\" & DateiName & ".xlsm"
 Application.DisplayAlerts = True
 
 
End Sub

Das ganze funktioniert, bei mir mit dem Lokalen Zugriff, so weit.
Damit komme ich aber gleich zum meinem zweiten Problem.
So bald ich den Code ein zweitesmal durchlaufen lasse bekomme ich in der Zeile

Code:

ThisWorkbook.SaveAs Filename:=Pfad & "\" & Format(Range("M9"), "yyyy") & "\" & Range("I9") & "\" & Format(Range("M9"), "MMM yy") & "\" & DateiName & ".xlsm"

eine Fehler Meldung:

was mache ich falsch?
Ich weiß das es bestimmt nicht die Beste Art, ist aber es Funktioniert.
Ich freue mich wenn mir, mal wieder helfen könnte.
Gruß
Martin