Open en sluiten dmv vba

[Doohan]

Beste VBA GURU'S,

Ik heb een stukje VBA code dat ervoor zorgt dat er nog een excel bestand word geopend en direct weer naar de achtergond verdwijnt nu wil ik graag dat voor ik het actieve werkboek sluit dat het excel bestand op de achtergrond ook gesloten word zonder deze op te slaan. Onderstaande code genereert een fout bij het sluiten wie kan me helpen.

Fout 9 tijdens uitvoering: Het subscript valt buiten het bereik.

Private Sub Workbook_BeforeClose(Cancel As Boolean)

    Application.CutCopyMode = False
    Workbooks("F:\Tekenkamer import-export\OVERZICHT.xlsm").Close SaveChanges:=False
    
End Sub

Private Sub Workbook_Open()

Dim HuidigWb As String

HuidigWb = ActiveWorkbook.Name
 
Workbooks.Open Filename:="F:\Tekenkamer import-export\OVERZICHT.xlsm"

Workbooks(HuidigWb).Activate

End Sub

m.vr.gr. Martin

 

[MDN111]

Dag Doohan !

Om een workbook te sluiten moet je alleen de naam geven en niet de volledige path:

Workbooks("OVERZICHT.xlsm").Close SaveChanges:=False

Grtz,
MDN111.

 

[Doohan]

Bedankt MDM111.

Het werkt. Sorry voor de late reactie.