continous error message

[Robbosan]

Good morning,
I have written the script for this autosave using one button and I keep getting an error message which highlights the
ActiveWorkbook.SaveAs Filename:= _ fileSaveName, FileFormat:=xlNormal, _ CreateBackup:=False

and I cannot see where the problem lies. Would anyone be able to help please. The full script is underneath:-

Sub Picture7_Click()

Application.DisplayAlerts = False

template_file = ActiveWorkbook.FullName
fileSaveName = Application.GetSaveAsFilename( _
InitialFileName:="C:\Users\robert.french\Excel spreadsheets\Event job booking\Inventory\filename_" + VBA.Strings.Format(Now) + ".xls", _
fileFilter:="Xls Files (*.xls), *.xls")
If fileSaveName = False Then
Exit Sub
End If
ActiveWorkbook.SaveAs Filename:= _
fileSaveName, FileFormat:=xlNormal, _
CreateBackup:=False

file_name_saved = ActiveWorkbook.Filename
MsgBox "Your Event No.upload file has been successfully created at: " & vbCr & vbCr & file_name_saved


ActiveWorkbook.SaveAs Filename:= _
template_file, FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False

Application.DisplayAlerts = True


End Sub

Many Thanks
Robbosan

[martindwilson]

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code.

Posting code between [CODE]Please [url=https://www.excelforum.com/login.php]Login or Register [/url] to view this content.[/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here

[Robbosan]

Sorry I do not understand?

[martindwilson]

like this

Please Login or Register  to view this content.

[Robbosan]

Hi Martin,
I am sorry I am new to programming and to write that took me a couple of days of trial and error. I just copied over from the VB page to the thread box, is below what you mean? Otherwise I am sorry I do not understand how it is to be written.

Sub Picture7_Click()
Application.DisplayAlerts = False
template_file = ActiveWorkbook.FullName
fileSaveName = Application.GetSaveAsFilename( _InitialFileName:="C:\Users\robert.french\Excel spreadsheets\Event job booking\Inventory\filename_" + VBA.Strings.Format(Now) + ".xls", _fileFilter:="Xls Files (*.xls), *.xls")
If fileSaveName = False Then
Exit Sub
End If
ActiveWorkbook.SaveAs Filename:= _fileSaveName, FileFormat:=xlNormal, _CreateBackup:=False
file_name_saved = ActiveWorkbook.Filename
MsgBox "Your Event No.upload file has been successfully created at: " & vbCr & vbCr & file_name_saved
ActiveWorkbook.SaveAs Filename:= _template_file, FileFormat:= _xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _, CreateBackup:=False
Application.DisplayAlerts = True

End Sub

Many thanks

Robbosan

[JosephP]

if you read the forum rules-specifically rule 3-it should all become clear ;-)