bij het automatisch sluiten van een document, melding geven

[DeCor]

Hoi,

Ik heb onder een macro knop staan dat een document gesloten moet worden.

Private Sub CommandButton2_Click()
Windows("test.XLS").Activate
    ActiveWindow.Close
End Sub

Wanneer echter het document reeds gesloten is bij het activeren van de knop krijg ik nu de box voor "foutopsporing".
Kan ik dit aanpassen zodat ik een box krijg met de melding "document reeds gesloten" ipv de foutopsporing?

Alvast bedankt.

Mvg,

 

[paulva]

Misschien zo?

Private Sub CommandButton2_Click()
on error resume next
Windows("test.XLS").Activate
    ActiveWindow.Close
if err.number <>0 then msgbox "Bestand was al gesloten!"
on error goto 0
End Sub

Al zou ik persoonlijk die mededeling achterwege laten. Het bestand is gesloten and that's all.

 

[DeCor]

Paulva, alvast bedankt voor de reactie

Wat betreft die "mededeling", die moet er inderdaad niet bij.

Omdat ik de knop vanuit een ander document activeer en test.XLS al gesloten is, wordt op deze manier mijn huidig bestand gesloten en dat zou niet mogen.

Weet je daar de aanpassing voor?

Alvast wederom bedankt.

Mvg,

 

[E v R]

Zo:?

Private Sub CommandButton2_Click()
on error resume next
Windows("test.XLS").Close
'if err.number <>0 then msgbox "Bestand was al gesloten!"
on error goto 0
End Sub

 

[DeCor]

Eric,

Bedankt, werkt perfect zo.

Mvg,