Bestand raakt focus kwijt na opnen ander bestand

[laforge2]

Hallo,

Ik probeer vanuit VBA een bestand te open.
Dat gaat goed.
Echter het geopende bestand wordt het actieve bestand en de script loopt daarna niet verder.
Ik gebruik al ThisWorkbook.Activate, maar dat helpt niet.
Het padnaam, en bestand heb ik even fictief gemaakt.
FileLocked controleert of het bestand al geopend is
Hoe kan ik ervoor zorgen dat het script wel doorloopt?

Een stukje script:
padnaam = "c:\temp\"
bestand = "bestand.xlsx"
padbestand = padnaam + bestand
If Dir(padbestand) <> "" Then
If IsFileLocked(padbestand) Then
MsgBox "Bestand is al geopend: " & bestand
Else
Workbooks.Open padbestand
ThisWorkbook.Activate
Workbooks(bestand).Close SaveChanges:=False
End If
Else
MsgBox "Bestand bestaat niet: " & bestand & ". Import gaat wel verder."
End If



Alvast bedankt voor het meedenken.

 

[snb]

Zolang het bestand waarin een macro staat geopend is, loopt de macro door tot het einde van de macro.

 

[edmoor]

Zet dus Exit Sub onder MsgBox "Bestand bestaat niet: " & bestand & ". Import gaat wel verder."

 

[laforge2]

Dank voor het meedenken.
@edmoor Dat is niet het issue.
@snb dat loopt het dus niet.
Als ik VB geopend hou wel, maar vooer ik hem uit met een sneltoets dan stopt het dus omdat het andere bestand de aktieve bestand wordt en de focus niet meer op het originele bestand.

 

[AHulpje]

Je opent het bestand C:\temp\bestand.xlsx en sluit het direct weer zonder er iets mee te hebben gedaan. Het nut daarvan ontgaat mij. Leg eens uit?

 

[edmoor]

Het zal slechts een stukje uit een groter script zijn.

 

[laforge2]

Op het moment dat je het bestand opent worden de waarden in de originele bestand automatisch bijgewerkt.
Ik kan het niet doen middels een koppeling omdat de bestanden op sharepoint staat en ik dan de enige ben die het kan aanpassen.