knop naar ander werkbook

[mrnico]

Hallo ik heb een vraag

ik wil graag een knop waarmee ik van het ene openstaand excel bestand naar het andere kan gaan

kan wel een bestand openen dat is geen probleem maar als ik weer terug wil naar het andere bestand wil kan ik hem niet opnieuw laten openen
want dan zegt hij het bestand is al geopend

ik heb dit geprobeerd maar dat was te simpel gedacht

Workbook(openen1.xlsm).Select

 

[HSV]

windows("openen1.xlsm").activate

 

[mrnico]

Bedankt voor het snelle antwoord is het ook mogelijk om hem te laten kijken of het bestand open is of niet zodat hij hem of openen of gewoon actieveren

 

[HSV]

Bv.

Sub hsv()
dim Wb As Workbook
Set Wb = GetObject("c:\users\mrnico\documents\openen1.xlsm")
  Wb.Windows(1).Activate
End Sub

Of korter als je dat prettig vindt.

Sub hsv()
 GetObject("c:\users\mrnico\documents\openen1.xlsm").Windows(1).Activate
End Sub

 

[mrnico]

Top bedankt