Beste,
Ik wil binnen "beveiliging met 2 bestanden" het bestand "code" openen.
Ik heb deze vraag al eerder gesteld en kreeg deze code :
De instructie getobject ..... wordt niet herkend.
Ik heb wat gezocht en vond deze code:
Ik krijg de foutmelding in de regel Workbooks(wbnaam).Open dat het subscript buiten het bereik valt. In bijlage de 2 bestanden.
Enig idee wat de oorzaak is?
Ik wil binnen "beveiliging met 2 bestanden" het bestand "code" openen.
Ik heb deze vraag al eerder gesteld en kreeg deze code :
Code:
With getobject("Z:\tkint\"code.xls")
sheets(1).cells(1) = .sheets(1).cells(1,26)
.close 0
End with
Ik heb wat gezocht en vond deze code:
Code:
Private Sub Workbook_Open()
Application.ScreenUpdating = False
wbnaam = "C:\Users\Justien\Documents\Robert\JvandenHeuvel" & "\code.xls"
Workbooks(wbnaam).Open
ActiveWorkbook.Sheets("Blad1").Range("Z1").Copy
ThisWorkbook.Sheets("Blad1").Range("Z1").PasteSpecial
Workbooks(wbnaam).Close True
Application.ScreenUpdating = True
End Sub
Enig idee wat de oorzaak is?