Re: Error 400
- From: Desert Piranha <Desert.Piranha.21c1ay_1136751301.8023@xxxxxxxxxxxxxxxxxxxxx>
- Date: Sun, 8 Jan 2006 14:13:08 -0600
Hi Bob,
Thx for this. The message box is a nice touch, i like that.
Sooo how do you know that the error number is 1004 ??
Thx again
Dave
Bob Phillips Wrote:
> Try this
>
> On Error Resume Next
> ActiveWorkbook.SaveAs _
> Filename:=ActiveWorkbook.Path & _
> "myfile " & Format(Date, "mm-dd-yyyy") & ".xls"
> If Err.Number = 1004 Then
> MsgBox "cancelled"
> End If
> On Error GoTo 0
>
>
> --
> HTH
>
> Bob Phillips
>
> (remove nothere from email address if mailing direct)
>
> "Desert Piranha"
> <Desert.Piranha.21b0yr_1136704226.2156@xxxxxxxxxxxxxxxxxxxxx> wrote in
> message
> news:Desert.Piranha.21b0yr_1136704226.2156@xxxxxxxxxxxxxxxxxxxxxxxx
> >
> > Hi all,
> >
> > I have this Save As code linked to a Option Button.
> > Everything works as i want it to, except when there is already been
> a
> > file saved with the current date.
> > Then i get a message box asking if i want to overwrite the file.
> > I DO want that.
> >
> > BUT if i answer "No" or "Cancel" i get a Visual Basic "Error 400"
> > thingy.
> > I DON'T want that error message.
> >
> > If i put like "Application.DisplayAlerts = False" in then it also
> > blocks the "Do i want to overwrite dialog",
> > which i want to keep.
> >
> >
> > Code:
> > --------------------
> > Private Sub SaveAsTo()
> > Application.ActiveWorkbook.SaveAs Filename:=ActiveWorkbook.Path &
> "\" &
> _
> > "myfile " & Format(Date, "mm-dd-yyyy") & ".xls"
> > End Sub
> > --------------------
> > Any direction on this would shurly be appreciated.
> >
> >
> > --
> > Desert Piranha
> >
> >
> >
> ------------------------------------------------------------------------
> > Desert Piranha's Profile:
> http://www.excelforum.com/member.php?action=getinfo&userid=28934
> > View this thread:
> http://www.excelforum.com/showthread.php?threadid=499135
> >
--
Desert Piranha
------------------------------------------------------------------------
Desert Piranha's Profile: http://www.excelforum.com/member.php?action=getinfo&userid=28934
View this thread: http://www.excelforum.com/showthread.php?threadid=499135
.
- Follow-Ups:
- Re: Error 400
- From: Bob Phillips
- Re: Error 400
- References:
- Error 400
- From: Desert Piranha
- Re: Error 400
- From: Bob Phillips
- Error 400
- Prev by Date: Re: Color Palette
- Next by Date: Re: Put a Formula into a Cell with Index
- Previous by thread: Re: Error 400
- Next by thread: Re: Error 400
- Index(es):
Relevant Pages
|
