Microsoft Office Forums - View Single Post

Catalin.B · 12-20-2011, 08:23 AM

Code:

sub search ()
Dim vFile As Variant, MyPath As String
MyPath = Application.Substitute(ThisWorkbook.Path, "facturi", "chitantiere\", 1) '"\\Flory\D\FACTURI ,CHITANTE VPC\chitantiere"
CreateObject("WScript.Shell").CurrentDirectory = MyPath
       ChDir MyPath
       vFile = Application.GetOpenFilename("Excel Files (*.xl*)," & _
      "*.xl*", 1, "Select Excel File", "Open", False)
end sub

if you want all types of files to show simply use Application.GetOpenFileName()