Koos Timmer
Gebruiker
- Lid geworden
- 1 jul 2007
- Berichten
- 72
Hallo Wigi.
Hartelijk dank voor de medewerking.
Volgens mij moet het nu werken.
ik heb even een paar MsgBox regeltjes gemaakt om het verloop te kunnen zien.
ik heb de file bijgevoegd.
Hartelijk dank voor de medewerking.
Volgens mij moet het nu werken.
ik heb even een paar MsgBox regeltjes gemaakt om het verloop te kunnen zien.
ik heb de file bijgevoegd.
Code:
Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = False
Dim MyFile, MyPath
Dim naam As String
On Error GoTo verder:
MkDir "OIP"
verder:
MyPath = "OIP"
If Worksheets("Blad1").Range("a40").Value = "0" Then GoTo Quit:
MsgBox "Ik sla nu de Hoofd file op.", vbInformation, "Save Hoofd File"
ActiveWorkbook.Save
MsgBox "Ik sla nu de backup file op.", vbInformation, "Maak Backup File"
MyFile = MyPath + "\" + "OIP " + Worksheets("Blad1").Range("F35").Value + ".xls"
ActiveWorkbook.SaveAs Filename:=MyFile, FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
Quit:
MsgBox "Ik verlaat nu het programma zonder verder iets op te slaan.", vbInformation, "Verlaat programma"
ThisWorkbook.Saved = True
Application.Quit
Application.DisplayAlerts = True
End Sub