%userprofile% problem

[ScottyWm]

I've got a macro that saves a file to a local folder. Worked flawlessly in XP. Now they've moved us to Win10 and it doesn't work. The file was going to the C:\Windows\Temp\filename Folder, which we no longer have permission to access. So, I tried changing the path to C:\%userprofile%\documents\filename folder. But I get an error '1004': "Microsoft Excel cannot access the file 'C:\%userprofile%\Documents\CA50B420'." I've tried changing syntax around but nothing helped. And I have no idea why it's trying to access CA50B420.

I thought this would be an easy change, now I'm left scratching my head...

 

[richardtims]

Try using the path this way. It works in Windows 7, but not sure if in Windows 10....

"C:\Users" & Environ("UserName") & "\Documents\filename.xls"

 

[Fluff]

Or maybe

Environ("userprofile") & "\documents\"

 

[ScottyWm]

Well, y'all pointed me in the right direction. After trying a few different things this is what worked for me:

' New Win10 code
ActiveWorkbook.SaveAs Filename:= _
Environ("userprofile") & "\documents" & "Scorecard", _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False, ConflictResolution:=2

Thanks for the help! This is such a great forum...

 

[Fluff]

You're welcome & thanks for the feedback