Foutmelding genereren bij save in macro.

[GuidoOxfam]

Halllo,

Ik heb een macro geschreven om m'n excel automatisch te bewaren.
Doch ik zou graag een "alleen" als er een probleem is bij het bewaren een foutmelding geven aan de gebruiker. Heeft u een idee hoe ik dat kan oplossen ?
Ik heb geprobeerd met Err.Number maar dit lukt jammer genoeg niet...
Bedankt voor jullie reactie.

Guido

Public Sub BewaarExcell()
    Application.DisplayAlerts = False
    
    'Bewaren op stick'
    Thisfile = "Wereldwinkel_kassablad"
    Thisfile = "F:" & Thisfile
    ActiveWorkbook.SaveAs Filename:=Thisfile
    On Error Resume Next
    If Err.Number <> 0 Then
     MsgBox ("Het lukt niet")
    End If
    Application.DisplayAlerts = True
End Sub

 

[leofact]

Voor fout afhandeling zou de procedure er als volgt uit moeten zien:

Sub FoutAfhandeling()

   On Error GoTo FoutAfhandeling_Error

                                      jouw code

   On Error GoTo 0
   Exit Sub
FoutAfhandeling_Error:
    MsgBox "Fout: " & Err.Number & "; Opslaan lukt niet."
End Sub

Mvg Leo

 

[GuidoOxfam]

Jammer genoeg krijg ik een foutmelding van het systeem (Excell) nog voordat ik in de FoutAfhandeling_Error terecht kom.
Excell is me te vlug af.

ActiveWorkbook.SaveAs Filename:=Thisfile
On Error GoTo FoutAfhandeling_Error

Ideeën ?
Wat is de oorzaak?

Merci,
GuidoOxfam

 

[leofact]

Wanneer je het omdraait zou het wel goed moeten gaan.

On Error GoTo FoutAfhandeling_Error
       ActiveWorkbook.SaveAs Filename:=Thisfile

   On Error GoTo 0
   Exit Sub
FoutAfhandeling_Error:
    MsgBox "Fout: " & Err.Number & "; Opslaan lukt niet."
End Sub

 

[GuidoOxfam]

Beter laat dan nooit, dikke merci !