PC-HELP.CZ

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

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

Díky moc, jak jednoduché... :smile:

PC-HELP.CZ

EXCEL VBA: jak ověřit uložení souboru

EXCEL VBA: jak ověřit uložení souboru

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

Re: EXCEL VBA: jak ověřit uložení souboru