Sheet importeren vanuit ander werkblad

[MBBS]

Deze code heb ik op dit forum gevonden... wat aangepast maar blijkt niet te werken...
Zie ik iets over het hoofd ?

Importbestand wordt wel geopend maar dan loopt het fout.
Het zit hem in de tweede regel : "Het subscript valt buiten het bereik"

Private Sub Workbook_Open()

Workbooks.Open Filename:="E:\TEST\importbestand.xlsm" 'hier bevindt de importsheet zich
Sheets("importsheet").Copy After:=Workbooks("resultaat_na_import.xlsm").Sheets(1)
Workbooks("importbestand.xlsm").Close

End Sub

Alvast bedankt !

 

[snb]

Jij bent de enige die kan controleren of het bestand importbestand.xlsm wel een werkblad met de naam 'importsheet' heeft.

Jij bent de enige die kan controleren of er een bestand openstaat met de naam "resultaat_na_import.xlsm"

 

[MBBS]

Mooi verwoord... maar ik snap het wel.

Dus bestandje bijgevoegd

Deze macro wordt gestart bij het openen van "resultaat_na_import.xlsm"... zit hier de fout ?

 

[MBBS]

Ondertussen verder gezocht en een oplossing op het internet gevonden.
Weet zelfs niet meer waar, zou anders de bron graag vermelden...
Voor wie er iets aan heeft, of nog wat wil verfijnen.

Sub Importeer_bestand()
       
        Application.ScreenUpdating = False
        Application.DisplayAlerts = False
    
        path_waar_sheet_gehaald_wordt = "E:\Test\PRG\1.xlsx"
    
        'hierin wordt sheet geïmporteerd
        Set TargetBook = Application.ActiveWorkbook
    
        'hieruit wordt sheet gehaald
        Set SourceBook = Workbooks.Open(path_waar_sheet_gehaald_wordt)
        
        'kopieer sheet "1" van het geopende werkboek
        SourceBook.Sheets("1").Select
        
        'plak de gekopieerde sheet achter de eerste sheet v/h originele werkboek
        SourceBook.Sheets("1").Move After:=TargetBook.Sheets(1)
        
        'geef de nieuwe sheet in het originele werkboek de focus
        TargetBook.Sheets("1").Select
        
        Application.ScreenUpdating = True
        Application.DisplayAlerts = True

 End Sub