Find the address of default application

[vonguyenphu]

Hi all,

I have a module as below to open pdf files from an excel sheet

sCell = Application.ActiveWindow.ActiveCell.Text
sFile = "C:\Program Files\Nitro\Pro 11\NitroPDF C:\Users\" & Environ("username") & "\Downloads\" & sCell & ".pdf"
retal = Shell(sFile, 1)

The problem is that i need to install this macro to others' computers. But each time i have to adjust the code based on their default pdf application (they want to use their app). Followhyperlink can do that but always shows an annoying message.
Can you give me suggestion on how to find the address of the pdf default application or write a macro which is more adaptable to different computers?

Thank you!

 

[DanteAmor]

Try this

Sub test()
    scell = Application.ActiveWindow.ActiveCell.Text
    ActiveWorkbook.FollowHyperlink "[COLOR=#333333]C:\Users\" & Environ("username") & "\Downloads\" & [/COLOR]scell & ".pdf"
End Sub

 

[vonguyenphu]

Hi Dante,

The FollowHyperlink always shows an annoying message when i run the macro. Do you have any solution to dismiss these messages?

 

[DanteAmor]

Hi Dante,

The FollowHyperlink always shows an annoying message when i run the macro. Do you have any solution to dismiss these messages?

What the message says?

It may be the version, I'm in 2007 and it does not send me the message.

 

[vonguyenphu]

Hi Dante,

FYI. I use 2010 version, and tried to turn off these messages according to microsoft's guide but no result
[FONT=&quot]"Hyperlinks can be harmful to your computer and data. To protect your computer, click only those hyperlinks from trusted sources. Do you want to continue?"
link: [/FONT]https://support.microsoft.com/en-us...hyperlink-warning-messages-in-2007-office-pro

 

[DanteAmor]

Also check your antivirus configuration.