Save with variable path

[TrixterDK]

We are 2 person who open the same sharepoint file.
We both have our own onedrive and the files there.
So the path is not the same when we open the same file.
How do i save the file to my path and he to his path.
I have the following code that save both aas pdf and xlm

Sub Knap1_Klik()
'
' Knap1_Klik Makro
' Gem som
'


'
ChDrive "D"
ChDir "D:\Volstrup Golfcenter\Dokumenter - Dokumenter (1)\Rullegræs\Faktura"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=("Faktura") & Range("d4") & Chr(95) & Range("a7")


fname = ("Faktura") & Range("d4") & Chr(95) & Range("a7").Value
ActiveSheet.SaveAs Filename:=fname


End Sub

 

[Brombrough]

Hi,

You can always use environ("UserName") to find out who logged on the current computer: -

Select Case Environ("UserName")

Case "Peter"
'set folder to Peters folder
Case "Paul"

'set folder to Pauls folder

Case Else
'set up a standard location for anyone else
End Select

 

[TrixterDK]

Its not the same pc. We have our one pc.

 

[Brombrough]

My question is, what does environ return when you test it on each pc should give different answers therefor can use an if statement or select case for different answers?

Try debug.print Environ("UserName") 'answer returned in the immediate window

This should give you who logged on

Or Try

debug.print Environ("COMPUTERNAME") 'to get the name of the PC. 'answer returned in the immediate window

 

[TrixterDK]

Thank that could work.
But what then if suddenly change my location? Then i need to copy the location ones again.

 

[Brombrough]

You could create a table within excel that keeps note of who logs on and which machine used to log on. (very hidden if you like). Also perhaps when they last logged on as well!

With a combination of who signs on and with what computer you could show a message box asking question add this as new location? if not found.

I'm sure you can come up with a suitable answer to your solution