VBA - saving to OneDrive

[mysticmario]

I have a master file that at some point saves some sheets into seperate file in OneDrive, the problem is that since 4 users have this OneDrive installed on their PC, each and everyone of us has different path to it.
So in order for my coleagues to be able to save the file I had to make a workaround which provided the path for each user.

wbnew.SaveAs Filename:=wbaddress & "\" & wbname2 & ".xlsm", _
            FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

wbaddress essentially has a path depending on user saving the file
e.g. For user 1: wbaddress = C:\Users\Projektant\OneDrive - ART-PRO Sp. z o.o\Quotations
for user 2: wbaddress = C:\Users\artpr\OneDrive - ART-PRO Sp. z o.o\Documents\Quotations
etc
is there a way to simply reference default path?
for e.g

wbnew.SaveAs Filename:=[thisfilepath] & "\" & "Quotations" & "\"  & wbname2 & ".xlsm", _
            FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

 

[HaHoBe]

Hi mysticmario,

what about using

environ("UserProfile")

to get the individual part of the path for each user?

Ciao,
Holger

 

[mysticmario]

Hi mysticmario,

what about using

environ("UserProfile")

to get the individual part of the path for each user?

Ciao,
Holger

First time seeing something like this how would you use that?

 

[HaHoBe]

Hi mysticmario,

as you also have indicated individual paths later on you would need something like

Dim strUserOD As String
Dim strPart As String

'....

strUserOD = Environ("UserProfile") & "\OneDrive - ART-PRO Sp. z o.o"
Select Case Environ("Username")
  Case "Projektant"
    strPart = "\Quotations\"
  Case "artpr"
    strPart = "\Documents\Quotations\"
  Case Else
    MsgBox "No detailed path known for this user, please add code to make macro work.", vbInformation, "End here"
    Exit Sub
End Select

wbname2.SaveAs Filename:=strUserOD & strPart & wbname2 & ".xlsm", _
                      FileFormat:=xlOpenXMLWorkbookMacroEnabled, _
                      CreateBackup:=False

Ciao,
Holger