How to change the default directory

[Woody]

Hello,

I tried to change the default directory by the following setting:

ChDir "D:\My documents\toto\"

The I open a dilog box to select a file in this default directory with the
following procedure:

Dim oDialog As Office.FileDialog
Set oDialog = XLApp.FileDialog(msoFileDialogFilePicker)
oDialog.Filters.Add "Fichiers Excel", "*.xls"
oDialog.Title = "Sélectionnez le fichier Excel"
oDialog.AllowMultiSelect = False
oDialog.Show

But this dialog remains opened on "My documents" and not on "D:\My
documents\toto\"
What am I missing ?
Thanks for your help

Woody

 

[Bob Phillips]

ChDrive "D:\My documents\toto\"
ChDir "D:\My documents\toto\"


--
---
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

 

[Woody]

Thanks Bob, but with this FileDialog(msoFileDialogFilePicker) dialog, these
ChDrive et ChDir settings do not work for me ;-(

Any other idea?

 

[papou]

Woody
See answers in microsoft.public.fr.Excel

Cordially
Pascal

 

[Woody]

Thanks a lot Papou,

I transfer here the french ng answer:
It's a property of this dialog : InitialFileName

Set oDialog = XLApp.FileDialog(msoFileDialogFilePicker)
oDialog.InitialFileName = "D:\My documents\Toto\"

Woody