EXCEL VBA: jak ověřit uložení souboru Vyřešeno

[atari]

Kódem ukládám aktuální sešit C:\Dokumenty\vypocet.xlsm, a poté ho ukládám jako do C:\Dokumenty\vypocet zaloha.xlsm. Potřeboval bych upravit řádek 3, aby ověřil, že původní soubor vypocet.xlsm byl opravdu uložen.
A dále řádek 4, který ověří že aktuálně otevřený sešit je opravdu ten "vypocet zaloha.xlsm"

Kód: Vybrat vše

Sub ulozit()
    ActiveWorkbook.Save

    ActiveWorkbook.SaveAs Filename:="C:\Dokumenty\vypocet zaloha.xlsm", _
        FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
       
'řádek 3:  If "vypocet.xlsm byl uložen" Then MsgBox "Sesit byl uložen"
'řádek 4:  If "aktuální sešit má název "vypocet zaloha.xlsm"" Then Call davka1
End Sub

[Reklama]

[Poki]

Co takhle?

Kód: Vybrat vše

Public Sub ulozit()

    ActiveWorkbook.Save
   
    If ActiveWorkbook.Saved = True Then MsgBox "Sešit byl uložen", vbInformation
   
    ActiveWorkbook.SaveAs Filename:="C:\Dokumenty\vypocet zaloha.xlsm", _
        FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
         
    If ActiveWorkbook.Name = "vypocet zaloha.xlsm" Then Call davka1
       
End Sub

[atari]

Díky moc, jak jednoduché...