2 bestanden tegelijk openen

[Doohan]

Geachte helper,

Ik heb werkboek1 en werkboek2 als ik werkboek1 open dan opent ook werkboek2 dit is prima, echter werkboek2 is nu ook actief geworden dat is niet prima. welke code moet ik toevoegen om werkboek1 actief te houden of te maken.

 Private Sub Workbook_Open()
 
 Workbooks.Open Filename:="F:\Tekenkamer import-export\werkboek2.xlsm"
 (werkboek1  actiefmaken)

 End Sub

Alvast vriendelijk dank

 

[Elsendoorn2134]

Doohan,

Redelijk simpel, onthoud de naam van het workbook waar je eerst in bezig bent, open het workbook, activeer het oude workbook
of in

Private Sub Workbook_Open()

Dim HuidigWb As String

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

Workbooks(HuidigWb).Activate

End Sub

Veel Succes.