ShellExecute problem

[mrkvojed]

Hello,

I have a code I develop in Excel 2003. So it can work in 2003/2007/2010 Excels ...

I have to open certain pdf, so I used ShellExecute ...

I found this declaration on the web :

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Calling is just

ShellExecute 0, "Open", pdf_path_name, "", "", vbNormalNoFocus

It works fine on my 32bit machine (Excel 2003, XP ...)

How can I code it both for 32bit and 64bit machines ?

Thanks in advance

[Colin Legg]

Welcome to the forum.

The 64 bit declaration would be:

Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
         ByVal hwnd As LongPtr, ByVal lpOperation As String, ByVal lpFile As String, _
         ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As LongPtr

For compatability, you can use conditional compilation as follows:

#If VBA7 Then

    Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
        (ByVal hwnd As LongPtr, ByVal lpOperation As String, ByVal lpFile As String, _
        ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As LongPtr

 #Else
 
     Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
        (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
        ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

 #End If

[/code]

[mrkvojed]

Thank you very much Colin.

I copied the code, I can't test the VBA7 branch but I'm sure it would work.

Thanks a lot.