Opgelost Default locatie instellen

[goose323]

Graag zou ik mijn default locatie tijdelijk willen wijzigen als ik een bestand open met de code

Workbooks.Open Filename:=Application.GetOpenFilename(Title:="Selecteer juiste bestand", FileFilter:="Excel xlsx *.xlsx (*.xlsx),")

nu gaat hij dus altijd naar mijn documenten en ik zou graag willen instellen dat hij standaard naar een sharepoint locatie map gaat (webadress) die ik dan instel

Kan iemand mij hierbij helpen?

 

[SjonR]

Heb je hier iets aan?

Sub Set_Default_File_Dialog_Folder()
Dim File_Dialog_Box As Office.FileDialog
Set File_Dialog_Box = Application.FileDialog(msoFileDialogFilePicker)
With File_Dialog_Box
    .Filters.Clear
    .Filters.Add "Excel Files", "*.xlsx?", 1
    .Title = "Select an Excel File"
    .AllowMultiSelect = False
    .InitialFileName = "C:\"
    .Show
End With
End Sub

Bij de C: natuurlijk je eigen map opgeven.

 

[goose323]

Thanks, is precies wat ik nodig heb

 

[snb]

Sub M_snb()
  with Application.FileDialog(3)
    .InitialFileName = "C:\*.xls*"
    if .Show then workbooks.open .selecteditems(1)
  End With
End Sub

Bij de C: natuurlijk je eigen map opgeven.

 

[SjonR]

Dat zei ik dus precies niet