vba opslaan als fout als bestand al bestaat.

[arienlans]

ik gebruik deze code om het bestand op te slaan

ActiveWorkbook.SaveAs Filename:= _
    ls_oogstgegevens & "week" & ls_weeknummer & ".xlsm", _
    FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

Nu krijg ik een foutmelding als het werkblad al bestaat.

Als je op overschrijven ja drukt gaat het goed, maar als je op nee drukt loopt de macro vast.

ik wil dat je een melding krijg en weer naar het bestand terug keert.

wie kan mij helpen

 

[spaarie]

Sub Spaarie()
    On Error Resume Next
    ActiveWorkbook.SaveAs ls_oogstgegevens & "week" & ls_weeknummer & ".xlsm", xlOpenXMLWorkbookMacroEnabled
    If Err.Number <> 0 Then
        MsgBox "Bestand niet opgeslagen.", vbExclamation, "Waarschuwing"
        Err.Clear
    End If
End Sub

 

[arienlans]

top dit zocht ik