Geachte Helper,
De onderstaande code werkt perfect op 1 klein dingetje na.
De code staat in het bestand PersInfo.xlsm dat is in de code (HuidigWb). Deze wil ik graag afsluiten zonder opslaan.
Echter zodra ik de apestrof weghaal voor de code om dit te doen krijg ik de melding:
Fout 9 tijdens uitvoering
Het subscript valt buiten het bereik.
Bij voorbaat dank voor de hulp,
gr.Martin
De onderstaande code werkt perfect op 1 klein dingetje na.
De code staat in het bestand PersInfo.xlsm dat is in de code (HuidigWb). Deze wil ik graag afsluiten zonder opslaan.
Echter zodra ik de apestrof weghaal voor de code om dit te doen krijg ik de melding:
Fout 9 tijdens uitvoering
Het subscript valt buiten het bereik.
Code:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CutCopyMode = False
Workbooks("OVERZICHT.xlsm").Close SaveChanges:=False
Kill "C:\Personeel Zwart\data\OVERZICHT.xlsm"
'Workbooks(HuidigWb).Close SaveChanges:=False
End Sub
Private Sub Workbook_Open()
Dim HuidigWb As String
HuidigWb = ActiveWorkbook.Name
FileCopy "F:\Projecten FAT_SAT\PersoneelData\OVERZICHT.xlsm", "C:\Personeel Zwart\data\OVERZICHT.xlsm"
Workbooks.Open Filename:="C:\Personeel Zwart\data\OVERZICHT.xlsm"
Workbooks(HuidigWb).Activate
End Sub
Bij voorbaat dank voor de hulp,
gr.Martin