msoFolderpicker doesn't open any file dialog

[mysticmario]

Hi,

I have this code that should ask for path, but for some reason it does not open any file dialog, what am I missing?

Sub Publish()
Dim savelociation As String
Dim ChDir As FileDialog

ThisWorkbook.Sheets("OTWARTE PROJEKTY").Activate

Set ChDir = Application.FileDialog(msoFileDialogFilePicker)
 'ChDir ("G:\Mój dysk\ArtProInfo v1.5_Shared")
    With ThisWorkbook.PublishObjects("ArtProInfo v1.5_8106")
        .FileName = ChDir & "\" & "index.html"
        .Publish (False)
        .AutoRepublish = False
    End With
Application.DisplayAlerts = False

ThisWorkbook.Sheets("OTWARTE PROJEKTY").Copy
savelocation = ChDir & "\" & "projekty.csv"
ActiveWorkbook.SaveAs FileName:=savelocation, FileFormat:=xlCSV, CreateBackup:=False
ActiveWorkbook.Close

Application.DisplayAlerts = True
ThisWorkbook.Sheets("OTWARTE PROJEKTY").Activate

End Sub

 

[HongRu]

Try to add "ChDir.Show".

 Set ChDir = Application.FileDialog(msoFileDialogFilePicker)
 ChDir.Show

 

[Alex Blakenburg]

And if you want a reference see here:
VBA FileDialog - Opening, Selecting, Saving files - Application.Filedialog

PS: I would recommend not using ChDir as variable it is an actual command word in VBA

 

[mysticmario]

Try to add "ChDir.Show".

 Set ChDir = Application.FileDialog(msoFileDialogFilePicker)
 ChDir.Show

it did help but i cannot later use this path for
.FileName = ChDir & "\" & "index.html"

 

[Alex Blakenburg]

it did help but i cannot later use this path for
.FileName = ChDir & "\" & "index.html"

Which is why I sent you a link, there is a little more to it than that.
From Analyst Cave (the link I sent you):

'Show the dialog. -1 means success!
If fDialog.Show = -1 Then
   Debug.Print fDialog.SelectedItems(1)
End If

 

[HongRu]

it did help but i cannot later use this path for
.FileName = ChDir & "\" & "index.html"

IF what you want is a folder path, not a file(s), you should try this:

    Set ChDir = Application.FileDialog(msoFileDialogFolderPicker)
    ChDir.Show
    myPath = ChDir.SelectedItems(1)

the "myPath" should what you want.

 

[mysticmario]

Which is why I sent you a link, there is a little more to it than that.
From Analyst Cave (the link I sent you):

'Show the dialog. -1 means success!
If fDialog.Show = -1 Then
   Debug.Print fDialog.SelectedItems(1)
End If

I used your source to fix it, thank you.

 

[Alex Blakenburg]

Teamwork