Path to my desktops

[jbesclapez]

Dear MrExcel,

It is friday, what are you doing for the week end?

I have a more serious question for you.
I would like to use a macro that would open a file in a folder on my desktop. This has to be done with a variable because if i send the folder to a friend, i would like it to work. So the path has to change, right?

Thanks for your help

 

[Paul B]

try this

 Sub testme()
'will open the file Test File
'in a folder on the desktop named New Folder
    Dim WSHShell As Object
    Dim DesktopPath As String
    
    Set WSHShell = CreateObject("WScript.Shell")
    DesktopPath = WSHShell.SpecialFolders("Desktop")
    Set WSHShell = Nothing
    
    Workbooks.Open Filename:= _
        DesktopPath & "\New Folder\Test File.xls"
End Sub

 

[jbesclapez]

Thanks a lot! It is EXACTLY what i was looking for. So i presume my question was good

Just to know Sir : How long time did it take you to find or create this piece of code? I am just (too) curious.

However. Thanks again.

 

[Paul B]

Your Welcome
I needed to do something like this before, found the code somewhere but don't remember where.