VBA code not working : ActiveWorkbook.FollowHyperlink Address:=FileName

[esmarques]

Hello,
Would anyone know how to make this bit of the code work ?
I use a Mac and this is to save a file as pdf in a folder in google drive...

When I run the code, there is an error message "Run-time error '-2147221014(800401es): Cannot open the specified file." And the debug highlights "ActiveWorkbook.FollowHyperlink Address:=FileName"
Any help ?

Thank you

WkP = "/Volumes/GoogleDrive/My Drive/Nas My Cloud/Global Grooves/Gigs_Commercial_Projects _Events/Costumes and Making/Packing Lists/"
FileName = Range(NameAdd) & "_" & Format(Range(DateAdd), "YYMMDD") & ".pdf"
FileName = WkP & Application.PathSeparator & FileName
ActiveSheet.PageSetup.PrintArea = Rng.Address
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:=FileName _
, Quality:=xlQualityStandard, IncludeDocProperties:=True

ActiveWorkbook.FollowHyperlink Address:=FileName

 

[MARK858]

Why are you defining the FileName variable twice?

FileName = Range(NameAdd) & "_" & Format(Range(DateAdd), "YYMMDD") & ".pdf"
FileName = WkP & Application.PathSeparator & FileName

If you put in a debug.print line does the file path look correct?

WkP = "/Volumes/GoogleDrive/My Drive/Nas My Cloud/Global Grooves/Gigs_Commercial_Projects _Events/Costumes and Making/Packing Lists/"
FileName = Range(NameAdd) & "_" & Format(Range(DateAdd), "YYMMDD") & ".pdf"
FileName = WkP & Application.PathSeparator & FileName
DeBug.Print FileName
ActiveSheet.PageSetup.PrintArea = Rng.Address

 

[esmarques]

Why are you defining the FileName variable twice?

FileName = Range(NameAdd) & "_" & Format(Range(DateAdd), "YYMMDD") & ".pdf"
FileName = WkP & Application.PathSeparator & FileName

If you put in a debug.print line does the file path look correct?

WkP = "/Volumes/GoogleDrive/My Drive/Nas My Cloud/Global Grooves/Gigs_Commercial_Projects _Events/Costumes and Making/Packing Lists/"
FileName = Range(NameAdd) & "_" & Format(Range(DateAdd), "YYMMDD") & ".pdf"
FileName = WkP & Application.PathSeparator & FileName
DeBug.Print FileName
ActiveSheet.PageSetup.PrintArea = Rng.Address

Hello,

Thanks for the reply.
I am not really good with codes, this one I have was sugested a while ago by someone else here when I had trouble saving the file into Google drive....

When I added the Debug.print File Name, nothing happened, apart from exactly the same as it was before.....

 

[esmarques]

One other thing that I just noticed is that the first error message that appears is:
"There was a problem connecting to the server "127.0.0.1". This file server will not allow any additional users to log on. Try to connect again later."
I am the administrator and logged in as such....

Thank you

 

[MARK858]

The Debug.Print will appear in the Immediate window (if you can't see the Immediate Window press Ctrl + G, you might need to drag it to expand the window).
Nothing we can do about the server error that I can think of at the moment

 

[esmarques]

The Debug.Print will appear in the Immediate window (if you can't see the Immediate Window press Ctrl + G, you might need to drag it to expand the window).
Nothing we can do about the server error that I can think of at the moment

Hello, Sorry but the Debug.Print still don't do anything... not sure if makes a different being on a Mac ?

 

[MARK858]

Hello, Sorry but the Debug.Print still don't do anything... not sure if makes a different being on a Mac ?

What do you mean it does nothing? You can't see the window? the file path for FileName doesn't appear in the window so you can check that the path looks correct?