Sauvegarder en VBA sur Sharepoint

Bonjour !

Je patauge dans la semoule... je suis sur Excel 365

Nos fichiers vont migrer sur Sharepoint, et nous aurons donc une synchronisation avec OneDrive vers un dossier local pour chaque utilisateur.

Les macros de sauvegarde et de mail avec PJ vont poser problème : elles utilisent d'habitude un chemin d'accès fixe, identique pour tous, vers un dossier partagé sur serveur.

J'avais donc : Dir = "P:\Achat\Magasin\MESSAGERIE\Archivage\"

Avec la migration, c'est donc une version locale qui sera régulièrement ouverte, le chemin d'accès dépendra donc de l'utilisateur...

Exemple "C:\Users\stitchbouck\Groupe\Achats - Documents\Magasin\MESSAGERIE\Archivage\"

Je cherche donc une solution pour rendre variable le chemin d'accès selon l'utilisateur qui ouvre le fichier, en allant récupérer l'utilisateur actif du fichier. J'imaginais une variable "MonID" à insérer pour faire :

Dir = "C:\Users\" & MonID & "\Verdannet\Achats - Documents\Magasin\MESSAGERIE\Archivage\"

Bon, mes différents essais de codes pris de droites et de gauches ne vont pas, je ne suis pas assez fort dans ce domaine pour piger ce que je fais... Voici le code. 

Sub Savepdf()
'Enregistrement en PDF

'Chemin d'accès pour l'enregistrement"
Dim Dir, Dir2 As String
Dim MonID As String

MonID = ThisWorkbook.UserName
Dir = "C:\Users\"
Dir2 = "\OneDrive - groupe\Achats - Documents\Magasin\MESSAGERIE\Archivage"
'Nom à donner au fichier
Dim DLig As Long, Nom As String

'variable du nom du destinataire
Dim DEST As String
If Sheets("MESSAGERIE").Range("F12") <> "" Then
DEST = Range("c12") & " " & Range("c13")
End If

If Sheets("MESSAGERIE").Range("F19") <> "" Then
DEST = Range("c12") & " " & Range("c13") & " + " & Range("c19") & " " & Range("c20")
End If

If Sheets("MESSAGERIE").Range("F26") <> "" Then
DEST = Range("c12") & " " & Range("c13") & " + " & Range("c19") & " " & Range("c20") & " + " & Range("c26") & " " & Range("c27")
End If

If Sheets("MESSAGERIE").Range("F33") <> "" Then
DEST = Range("c12") & " " & Range("c13") & " + " & Range("c19") & " " & Range("c20") & " + " & Range("c26") & " " & Range("c27") & " + " & Range("c33") & " " & Range("c34")
End If



'établissement du nom à donner
Nom = "Bordereau de messagerie " & DEST & " " & Format(Now(), "YYYY-mm-DD") & ".pdf"

Dim Rec As String
Rec = Dir & MonID & Dir2 & Nom
Sheets("MESSAGERIE").ExportAsFixedFormat Type:=xlTypePDF, _
     Filename:=Rec, _
     Quality:=xlQualityStandard, _
     IncludeDocProperties:=True, _
     IgnorePrintAreas:=False, _
     OpenAfterPublish:=False


End Sub

Ou bien je me trompe d'approche, il faut inclure une URL pour modifier à la source, sur Sharepoint directement ?

Merci pour l'aide !!