Can I have code executed after Save?

[robs3131]

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!

 

[carlo]

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

hth
carlo

 

[Héctor Miguel]

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.

 

[robs3131]

Thanks Hector and Carlo - that helped!