If file is open or if file exist

[white_flag]

Hello I have the following code (create an workbook):



Private Sub CommandButton116_Click()
Dim wb As Workbook
Set wb = Workbooks.Add
Application.DisplayAlerts = False
wb.SaveAs FileName:=ThisWorkbook.Path & "\QUO-.xls"
Dim LastRow As Long
Set wb = Workbooks.Open(ThisWorkbook.Path & "\QUO-.xls")
With wb
'copy range
End With
wb.save
End Sub


I like to add the following: if the workbook exist to add an suffix?

[Bob Phillips]

Private Sub CommandButton116_Click()
Dim wb As Workbook
Dim filename As String
Dim LastRow As Long
filename = ThisWorkbook.Path & "\QUO-.xls"
On Error Resume Next
Set wb = Workbooks(filename)
On Error GoTo 0
If wb Is Nothing Then
Set wb = Workbooks.Add
Application.DisplayAlerts = False
wb.SaveAs filename
End If
With wb
'copy range
End With
wb.Save
End Sub

[Kenneth Hobs]

You can use DIR() to determine if the file exits.

To create a unique sequential name, see: http://www.vbaexpress.com/kb/getarticle.php?kb_id=1041

[white_flag]

Hello Bob

I mean an suffix for file name like: QUO-1, QUO-2 etc

[white_flag]

Kenneth, thx for suggestion but that level of vba is to high for me

[Bob Phillips]

Kenneth, thx for suggestion but that level of vba is to high for me

No, it's easy



filename = Dir(ThisWorkbook.Path & "\QUO-.xls", vbNormal)
If filename = "" Then
MsgBox "not found"
Else
MsgBox "found"
End If

[Bob Phillips]

Hello Bob

I mean an suffix for file name like: QUO-1, QUO-2 etc

Not sure what you mean.

[white_flag]

http://www.vbaexpress.com/kb/getarticle.php?kb_id=1008

this is what I need, Bob thx for suggestions.. here, it is nice and cold