Hi all,

I'm trying to have a sub called to execute after a workbook is saved --
literally, I would like the code to execute as soon as the file is saved, but
not before, as the sub is storing the name of the workbook in a cell in the
worksheet. I need the name to be current with whatever the name of the
worksheet is at any given time. I see that there is a Workbook level command
that executes before Save, but I don't see anything for after Save.

Thanks for your help!



--
Robert

Why don't you let Excel enter the filename by itself:
http://office.microsoft.com/en-us/ex...346271033.aspx

hth
carlo

On Dec 21, 3:59*pm, robs3131 <robs3...@discussions.microsoft.com>
wrote:
> Hi all,
>
> I'm trying to have a sub called to execute after a workbook is saved --
> literally, I would like the code to execute as soon as the file is saved, but
> not before, as the sub is storing the name of the workbook in a cell in the
> worksheet. *I need the name to be current with whatever the name of the
> worksheet is at any given time. *I see that there is a Workbook level command
> that executes before Save, but I don't see anything for after Save.
>
> Thanks for your help!
>
> --
> Robert

hi, !

> I'm trying to have a sub called to execute after a workbook is saved -- literally
> I would like the code to execute as soon as the file is saved, but not before
> as the sub is storing the name of the workbook in a cell in the worksheet.
> I need the name to be current with whatever the name of the worksheet is at any given time.
> I see that there is a Workbook level command that executes before Save, but I don't see anything for after Save.
> Thanks for your help!

besides the cell("filename") worksheet function (suggested by carlo)
you can "handle" your _beforesave event to execute a procedure "after_save" if you...

1) use a general code module to define a normal sub-procedure (to be executed "after_save") i.e.

Option Private Module
Sub After_Saved()
MsgBox "This workbook has been saved as:" & vbCr & _
ThisWorkbook.FullName
End Sub

2) in your workbook_beforesave event, use the OnTime method to launch "the sub-procedure"
(which will be executed "after") i.e.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Application.OnTime Now, "After_Saved"
End Sub

hth,
hector.

Thanks Hector and Carlo - that helped!

--
Robert


"Héctor Miguel" wrote:

> hi, !
>
> > I'm trying to have a sub called to execute after a workbook is saved -- literally
> > I would like the code to execute as soon as the file is saved, but not before
> > as the sub is storing the name of the workbook in a cell in the worksheet.
> > I need the name to be current with whatever the name of the worksheet is at any given time.
> > I see that there is a Workbook level command that executes before Save, but I don't see anything for after Save.
> > Thanks for your help!
>
> besides the cell("filename") worksheet function (suggested by carlo)
> you can "handle" your _beforesave event to execute a procedure "after_save" if you...
>
> 1) use a general code module to define a normal sub-procedure (to be executed "after_save") i.e.
>
> Option Private Module
> Sub After_Saved()
> MsgBox "This workbook has been saved as:" & vbCr & _
> ThisWorkbook.FullName
> End Sub
>
> 2) in your workbook_beforesave event, use the OnTime method to launch "the sub-procedure"
> (which will be executed "after") i.e.
>
> Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
> Application.OnTime Now, "After_Saved"
> End Sub
>
> hth,
> hector.
>
>
>