Buton ile Pdf dosyası açmak

[Depdep34]

Merhabalar,
Benim yapmak istediğim A1 hücresine Server da kayıtlı olan dosyanın adını yazıp bir buton ekleyerek bu butona bastığımda hücrede ismi yazılı olan pdf dosyasını açmak.eğer o dosya yoksa geriye dosya bulunamadı gibi bir mesaj verdirmek.
Teşekkür ederim.

 

[Korhan Ayhan]

Aşağıdaki komutları inceleyin.

Sub OpenClose()
'Open and Close a File
Dim vPID As Variant
'Launch file
vPID = Shell("notepad.exe ""C:\VBA\text.txt""", vbNormalFocus)

'Perform your actions here

'Kill file
Call Shell("TaskKill /F /PID " & CStr(vPID), vbHide)

End Sub