nieuw werkboek maken

[blueberry013]

Hallo!

Ik heb een bestand in excel. Op het moment dat ik op een opdrachtknop druk, worden gegevens naar een nieuw bestand geschreven (in mijn geval : week "weeknummer")

Indien ik dit opnieuw zou doen voor de zelfde week vraagt excel of hij de gegevens mag overschrijven... Eigenlijk zou er een nieuwe file gemaakt moeten worden met als naam : week "weeknummer v1") indien deze al bestaat : week "weeknummer" v2, etc...

Hoe krijg ik dit voor elkaar?

Alvast bedankt!!

 

[BjorntobeWild]

Zoiets?

Function fileexists(f As String) As Boolean
If Not f = vbNullString Then fileexists = True

End Function

Sub test()
Dim filetosave As String
Dim dir As String
dir = "C:\Users\Bjorn Meijer\Documents\Excel\"
filetosave = dir & "ExcelSaveAs.xlsm"
If fileexists(filetosave) = True Then
filetosave = filetosave & "_revised" & ".xlsm"


End If
ActiveWorkbook.SaveAs filetosave
End Sub

Bekijk bijlage ExcelSaveAs.xlsm

 

[blueberry013]

Hallo!
Alvast bedankt voor uw reactie... Had nog niet eerder geantwoord omdat ik aan het proberen was, maar het lukt dus niet...
Heb even mijn code bijgevoegd

Sub Planning_Klikken()

On Error Resume Next

Application.ScreenUpdating = False

If nummerplanning = "" Then
MsgBox "Gelieve de gewenste weeknummer in te vullen", vbInformation
Else

Dim y As Integer

y = nummerplanning.Value

ActiveSheet.ListObjects("Planningstabel").Range.AutoFilter Field:=5, _
Criteria1:=y


naam2 = nummerplanning.Value
naam3 = "F:\Planning\Planning 2013\Week"

b = b + 1

Set Newbook = Workbooks.Add
With Newbook
.Title = "Planning"
.Subject = "Planning"
.SaveAs Filename:=naam3 & " " & naam2 & "v" & b & ""
.Sheets("Blad1").Name = "Ishida"
.Sheets("Blad2").Name = "Multipond"
.Sheets("Blad3").Name = "Manuele"
End With

End If


Application.ScreenUpdating = True

End Sub

Hoe voeg ik uw code hierbij?? ben nogal leek in vba...

groetjes