Opslaan en volgnummer verhogen

XL2003 is zeker al geen probleem, daarin werkt hij perfect. XL2007 ga ik later vandaag eens in testen. Weet echter niet of er dan nog verschil met XL2010.

Ik ben vertrokken vanuit een xlsm-bestand en dan doet hij het perfect in Xl2007.
Je moet in elke macro nog wel het pad aanpassen naar de map met genummerde bestanden.

Dag,

Ik heb inmiddels een andere code gevonden en die aangepast.
Toch iedereen bedankt voor de tijd en moeite.

Groet Commander

@sommander
kun je deze code plaatsen?

Dan kunnen ook andere forumleden hier gebruik van maken en van leren.

opslaan en doornummeren

Ja, natuurlijk.

Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Not ThisWorkbook.ReadOnly Then
Application.DisplayAlerts = False
ThisWorkbook.SaveAs Filename:="F:\Uitruk 2011\" & [Blad1].[F1] & ".xls"
Application.DisplayAlerts = True
End If
End Sub
Private Sub Workbook_Open()
Dim sjabloonpad As String
Worksheets("Blad1").Activate
If Range("B2").Value = "" Then ' deze cel moet in de sjabloon leeg zijn
' maar in de .xls moet deze gevuld worden
sjabloonpad = Application.TemplatesPath
Range("F1").Value = Range("F1").Value + 1
Application.DisplayAlerts = False
ThisWorkbook.SaveAs sjabloonpad & "0", FileFormat:=xlTemplate
ThisWorkbook.SaveAs Filename:="F:\Uitruk 2011\" & [Blad1].[F1] & ".xls"
Application.DisplayAlerts = True
End If
End Sub

Groet Commander:thumb: