OpenFileDialog box malfunctions

[hometech]

Hello, i have this VBA code that opens a file dialog box and allows the user browse/search for a file and select the file that is needed. The issue i'm having with this is is that when i run the macro for the first time, it does not follow all the filter constraints set (i.e show only MS project files, .mpp and also, i set the default folder to be opened to "c:\" but it opens my documents ) but after the first run, the it obeys the filter constraints and works normally, please how do i go about this.




Private Sub Opener()
Dim fd As FileDialog
Dim FileName As String
Dim part As String
Set fd = Application.FileDialog(msoFileDialogOpen)
Dim FileChosen As Integer
FileChosen = fd.Show
fd.Title = "Choose Project"
fd.InitialFileName = "c:\"
fd.InitialView = msoFileDialogViewList
fd.Filters.Clear
fd.Filters.Add "MS Project Files", "*.mpp"
fd.FilterIndex = 1
fd.ButtonName = "Choose this file"
If FileChosen <> -1 Then
'didn't choose anything (clicked on CANCEL)
MsgBox "No file opened"
Exit Sub
Else
'get file, and open it (NAME property
'includes path, which we need)
part = fd.SelectedItems(1)
'Documents.Open (FileName)
'part = FileName
Set objx = ActiveDocument.InlineShapes.AddOLEObject(ClassType :="MSProject.Project", _
FileName:=part, LinkToFile:=False, DisplayAsIcon:=False, Range:=ActiveDocument.Frames(1).Range)
objx.Height = 300
objx.Width = 480
'Open object ready for typing
Set objx = Nothing
End If
End Sub



i appreciate your suggestions.

[Admin]

Hi hometech,

Welcome to ExcelFox !!

arrange the lines this way


fd.InitialFileName = "c:\"
fd.Title = "Choose Project"
fd.InitialView = msoFileDialogViewList
fd.Filters.Clear
fd.Filters.Add "MS Project Files", "*.mpp"
fd.FilterIndex = 1
fd.ButtonName = "Choose this file"
FileChosen = fd.Show