About Us

Jerry Khann

Hi Héctor,

"Héctor Miguel" a écrit dans le message de
news: ...
hi, Jerry !

what I can confirm is that this behavior repeats when the active workbook
has been open from a shortcut: in versions 2000, 2002, 2003 and 2007 (but
in version 97)

when this situation has been given, neither you can change the directory
using the ChDir function previous to the presentation of this dialog
(xlDialogSaveAs)

neither you can achieve by the windows API (SetCurrentDirectoryA) using an
algorithm developed by Rob Bovey

(probably) an alternative will be through the GetSaveAsFileName method in
a procedure
where its structure takes care of confirming if the user decides to carry
out the saving -? -

Thank you for your answer.

It's stupendous, maybe stupid, that the same method or property doesn't work
in the same way with Excel and Word!

So it's a bug!

I will use GetSaveAsFileName with Excel and Dialog (xlDialogSaveAs) with
Word!

***

Sub MyFastSave()
NomDuFichierFinal = "PourVoir.xls"
NomAProposer = "D:\A_Sauver\" & NomDuFichierFinal

NomApres = Application.GetSaveAsFilename( _
InitialFileName:=NomAProposer, _
Title:="Save in Excel 2003 format ")
If VarType(NomDuFichierApres) = vbBoolean Then
MsgBox "Canceled"
Else
On Error GoTo UneErreur
ActiveWorkbook.SaveAs Filename:=NomApres _
, FileFormat:=xlExcel8

MsgBox ("The save in Excel 2003 format of " & NomApres _
& " is good.")

End If

UneErreur:
If Err.Number = 1004 Then
MsgBox "Erreur : " & Err.Number
End If
End Sub

***

Thank's

Regards

--
Jerry Khann

Adresse invalide: retirer le bouchon _O_ et .invalid

Thread Tools	Search this Thread
Show Printable Version	Search this Thread: Advanced Search
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Dates in Excel 2007 graph axis dialogs	JRS	Charts and Charting in Excel	7	October 10th 07 04:25 PM
Excel 2007 builtin dialogs	denis	Excel Programming	0	June 15th 07 09:42 AM
Application.Dialogs(xlDialogSaveAs) = res ???	Corey	Excel Programming	2	June 28th 06 06:46 AM
xlDialogSaveAs	Tim Cadieux	Excel Programming	0	September 18th 03 06:52 PM
application.dialogs(xlDialogSaveAs) AND CHDIR	Jules[_2_]	Excel Programming	1	September 3rd 03 08:27 PM

Menu

About Us