VBA geopend bestand sluiten.

[henkvanerp]

Onderstaande macro slaat het automatisch bestand op als bestandsnaam (cel A2) in het pad (cel A1)niet bestaat.
Als het bestand bestaat wordt deze vervangen. Prima zo. Echter:

Als het bestand al bestaat en geopend is dan wil ik dat deze wordt gesloten zonder op te slaan en dat de macro dan doorloopt en dus alsnog het bestand gaat opslaan.

Application.DisplayAlerts = False
Dim Path As String
Dim filename As String
Path = Range("A1") ‘Dir staat in cel A1
filename = Range("A2") ‘Bestandsnaam staat in cel A2

ActiveWorkbook.SaveAs filename:=Path & filename & ".xlsx", FileFormat:=51
Application.DisplayAlerts = True

Wie weet raad? Mijn dank.

 

[emields]

een bestand dat macro's bevat kan je niet opslaan als xlsx

ps voorbeeldbestandje vergeten?

 

[henkvanerp]

Wie zegt dat het op te slaan bestand macro's bevat? De macro is zoals ik het heb omschreven.
Maar hierbij het proefbestandje. Werk prima. Alleen als je een bestand hebt opgeslagen en je opent dat gemaakt bestand en je gaat weer hetzelfde bestand opslaan dan loopt de macro vast. Er dient dus een controle te zijn op een geopend bestand met dezelfde naam.

 

[popipipo]

Dit bestandje bevat toch echt geen macro's

 

[emields]

in uw voorbeeldje ontbreekt de macro.