I am using the code:

MyName = Application.Dialogs(xlDialogSaveAs).Show
If MyName = False Then MsgBox "You cancelled the Sav
operation",vbInformation, "Cancelled"

to bring up a prompt to ask where the file would like to be saved, i
there anyway of making this promt open up in a default directory? e
c:\, even if the origional file is saved in another directory, e
d:\dat

--
Message posted from http://www.ExcelForum.com

Have you tried as the first line

ChDir "e:\mydir"
--
Don Guillett
SalesAid Software
(E-Mail Removed)
"ianripping >" <<(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> I am using the code:
>
> MyName = Application.Dialogs(xlDialogSaveAs).Show
> If MyName = False Then MsgBox "You cancelled the Save
> operation",vbInformation, "Cancelled"
>
> to bring up a prompt to ask where the file would like to be saved, is
> there anyway of making this promt open up in a default directory? eg
> c:\, even if the origional file is saved in another directory, eg
> d:\data
>
>
> ---
> Message posted from http://www.ExcelForum.com/
>

Ian,
you'll have to change directories before calling the proc
(vba. can be left out)

const APPPATH as string = "e:\my folder"
dim curPath as string

on error goto theend

'store current
curpath = vba.curdir

'change drive (chdrive uses first letter only)
vba.chdrive apppath
'change directory
vba.chdir apppath

do your stuff


theend: 'restore original path
vba.chdrive curpath
vba.chdir curpath




keepITcool

< email : keepitcool chello nl (with @ and .) >
< homepage: http://members.chello.nl/keepitcool >


ianripping <<(E-Mail Removed)>> wrote:

> I am using the code:
>
> MyName = Application.Dialogs(xlDialogSaveAs).Show
> If MyName = False Then MsgBox "You cancelled the Save
> operation",vbInformation, "Cancelled"
>
> to bring up a prompt to ask where the file would like to be saved, is
> there anyway of making this promt open up in a default directory? eg
> c:\, even if the origional file is saved in another directory, eg
> d:\data
>
>
> ---
> Message posted from http://www.ExcelForum.com/
>
>

Chdir (as shown) would be effective if E is already the default drive. If
not, you need to change the default drive as well

ChDrive "E"
ChDir "E:\MyDir"

--
Regards,
Tom Ogilvy


"Don Guillett" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> Have you tried as the first line
>
> ChDir "e:\mydir"
> --
> Don Guillett
> SalesAid Software
> (E-Mail Removed)
> "ianripping >" <<(E-Mail Removed)> wrote in message
> news:(E-Mail Removed)...
> > I am using the code:
> >
> > MyName = Application.Dialogs(xlDialogSaveAs).Show
> > If MyName = False Then MsgBox "You cancelled the Save
> > operation",vbInformation, "Cancelled"
> >
> > to bring up a prompt to ask where the file would like to be saved, is
> > there anyway of making this promt open up in a default directory? eg
> > c:\, even if the origional file is saved in another directory, eg
> > d:\data
> >
> >
> > ---
> > Message posted from http://www.ExcelForum.com/
> >
>
>

Thanks that works

--
Message posted from http://www.ExcelForum.com