open file in a folder

Originally Posted by max_max

Hi to all.
This macro open a forder:

Sub apriCartella1()

On Error GoTo uscita

ChDir "C:\Documenti\controllati\gr1"

Application.Dialogs(xlDialogOpen).Show

uscita:
If Err.Number <> 0 Then
  ' MsgBox "la cartella non esiste o è stata spostata o cancellata", vbCritical, "ATTENZIONE!"
MsgBox "la cartella non esiste o è stata spostata o cancellata", vbExclamation, "ATTENZIONE!"
End If

End Sub

in this foder there is 3 type of file xls - xlsx - pdf
if I click in the excel files they open normally
if I click in a pdf it opens "text wizard" to view the pdf I have to right mouse> open.
Because?

I hope I have explained
max

You might use the method Adam suggested, and then, once Application.FileDialog (msoFileDialogFilePicker) has returned a file name, use ThisWorkbook.FollowHyperlink

Hi,
maybe what I ask is not possible?

Originally Posted by max_max

Hi,
maybe what I ask is not possible?

it's has nothing to do with that, Max. it has to do with the fact that no one who responded to you understands what is going on, on your end. that's why. did you try what I said? use the alternative method to open the picker?

Originally Posted by max_max

Hi,
maybe what I ask is not possible?

Why would you say that? if you combine what Adam said and what I said you have a solution.
Me no understand you!

Originally Posted by isaac123

Why would you say that? if you combine what Adam said and what I said you have a solution.

well let us not be mean, shall we? but hey, good point!