Hoi Helpers en Oplossers,
Ik open een Excelbestand en met de opdracht: (ik heb het pad van het bestand voor de leesbaarheid maar even "Path" genoemd)
Private Sub workbook_open()
Workbooks.Open Filename:="C:\Path\PDF als link.xlsm"
Workbooks("facturen testpagina.xlsm").Sheets("2018").Activate
Facturen.Show
End Sub
open ik een tweede bestand, activeer het eerste bestand en open een userform.
Wanneer ik klaar ben met het eerste bestand, waarbij het tweede bestand al dan niet gevoed is met data uit het eerste bestand klik ik op de "X" in de linkerbovenhoek en dan moet mijn "workbook_beforeclose" zijn ding doen maar geeft een foutmelding nml:
Fout 9 tijdens uitvoering:
Het subscript valt buiten het bereik
de code die ik gebruik is
Private Sub workbook_BeforeClose(cancel As Boolean)
Workbooks("PDF als link.xlsm").Activate
ActiveWorkbook.Close savechanges:=xlYes, Filename:="C:\Path\PDF als link.xlsm"
Workbooks("facturen testpagina.xlsm").Activate
ActiveWorkbook.Close savechanges:=xlYes, Filename:="C:\Path\facturen testpagina.xlsm"
End Sub
De eerste regel in deze code wordt dan geel. overigens wordt het bestand "PDF als link.xlsm" wel opgeslagen en afgesloten. druk ik dan vervolgens op "beëindigen" bij de foutmelding dan slaat hij ook het andere bestand op en sluit deze vervolgens ook af.
Wie kan mij vertellen hoe ik deze foutmelding kan voorkomen? Ik zelf denk door een check of het bewuste bestand nog open staat of al opgeslagen is maar ik weet even niet hoe
iets als
If Workbooks("PDF als link.xlsm") = True Then
werkt niet, maar ik weet dus niet wat er ipv "True" moet komen...
Alvast weer dank voor jullie geduld