View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
Bassman62 Bassman62 is offline
external usenet poster
 
Posts: 117
Default SaveAs Confict Resolution Help ?

Thanks for the reply.
It worked to use the 'Dir' function to test for an existing filename and
then use Application.DisplayAlerts = False to avoid the alert.
Thanks again.


"Patrick Molloy" wrote in message
...
you could use
Application.DisplayAlerts = False

which completely avoids the issue -- unfortunatley is doesn't stop the
user saving over files accidentally

You could add a line that has checks if the file exists --- before the
file Save As line, and then handle the result

"Bassman62" wrote in message
...
Greetings,
Using xl2007
Code:
NewWBName =
Application.GetSaveAsFilename(InitialFileName:="0-Job.xls", _
filefilter:=" Excel 2000-2003 Workbook (*.xls), *.xls,")
If NewWBName = False Then
Range("Date").Activate
Application.ScreenUpdating = True
Exit Sub
Else
NewWB_Setup 'Create a copy of "Report" and convert formulas
to values
' Save new file as 2000-2003 format from version 2007.
NewWB.SaveAs NewWBName, FileFormat:=56, CreateBackup:=False
End If

The above code works well except if the file name already exists and the
user selects 'No' or 'Cancel' from the Conflict Resolution Dialog box.
| A file named '...\0-Job.xls' already exists in this location. Do you
want to replace it?
| Yes / No / Cancel

How can I change my code to handle those selections?
Thanks.