open file in a folder

[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

[vba_php]

because, more than likely, you have to set your default programs to open any given file type in the windows CP.

[max_max]

Hi vba_php
maybe I explained myself wrong.
The pdf opens with its default program.
What I wrote happens only inside the folder that I open with the macro

[vba_php]

What I wrote happens only inside the folder that I open with the macro

hmmmm....

are you saying that you are clicking on the PDF when the dir opens after the dialog is called?

on a side note, Italian looks very similar to Spanish! wow. Have you ever been to san giovanni rotonda?

[vba_php]

I also know a very intelligent engineer who is in Italy. you probably don't know him though. a government man:

https://www.access-programmers.co.uk...algent.138584/

[max_max]

Yes

are you saying that you are clicking on the PDF when the dir opens after the dialog is called


on a side note: never been to San Giovanni Rotondo
https://it.wikipedia.org/wiki/San_Giovanni_Rotondo

[vba_php]

well I don't think we're on the same page here, in terms of what we're talking about. when you CLICK TO OPEN a file of any kind in the windows explorer (the window you have opened with code), the code has absolutely nothing to do with it. once the window is opened, the windows OS is in control (as far as I know anyway). file extensions are associated with programs by default. this might be an issue with the KIND of code you are using. I've never used what you are using:

Application.Dialogs(xlDialogOpen).Show

I seriously doubt that's it. but, if it is, try this instead:

Application.FileDialog (msoFileDialogFilePicker)

it also could be an issue with your regional setting, but I do not know. I live in the USA, so that would be unknown to me. but I doubt that's the issue either.

[isaac123]

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

[max_max]

Hi,
maybe what I ask is not possible?

[vba_php]

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?

[isaac123]

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!

[vba_php]

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!