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 procedu

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

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" wrote in message
...
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 procedu

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

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

Any other idea?


"Bob Phillips" a écrit dans le message de news:
...
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" wrote in message
...
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 procedu

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

Woody
See answers in microsoft.public.fr.Excel

Cordially
Pascal

"Woody" a écrit dans le message de news:
...
Thanks Bob, but with this FileDialog(msoFileDialogFilePicker) dialog,
these ChDrive et ChDir settings do not work for me ;-(

Any other idea?


"Bob Phillips" a écrit dans le message de news:
...
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" wrote in message
...
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 procedu

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

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

"papou" a écrit dans le message
de news: ...
Woody
See answers in microsoft.public.fr.Excel

Cordially
Pascal

"Woody" a écrit dans le message de news:
...
Thanks Bob, but with this FileDialog(msoFileDialogFilePicker) dialog,
these ChDrive et ChDir settings do not work for me ;-(

Any other idea?


"Bob Phillips" a écrit dans le message de news:
...
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" wrote in message
...
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 procedu

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