Упростить код

[shanemac51]

переменная не определена
------------

dim  Filename$
Filename$ = "C:\Documents and Settings\Admin\Рабочий стол\ " & Format(Now, "DD.MM.YYYY HH-NN-SS") & ".xlsm"

[DiemonStar]

а если так?

Filename$ = "C:\Documents and Settings\Admin\Рабочий стол\" & Format(Now(), "DD.MM.YYYY HH-NN-SS") & ".xlsm"

[and150382]

Спасибо все дело было в переменной.
Код сохраняет книгу каждый раз с добавлением времени. Нужно чтобы если существует файл с таким именем, то не сохранять

Dim Filename$

Filename$ = "C:\Documents and Settings\Admin\Рабочий стол\ " & Format(Now, "DD.MM.YYYY HH-NN-SS") & ".xlsm"
ActiveWorkbook.SaveAs Filename$, xlOpenXMLWorkbookMacroEnabled
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename$, xlOpenXMLWorkbookMacroEnabled
Application.DisplayAlerts = True

[EducatedFool]

А СРАЗУ НЕЛЬЗЯ БЫЛО СКАЗАТЬ, что надо не проигнорировать сообщение о существующем файле, а отменить сохранение если файл существует?

    Dim Filename$
    Filename$ = "C:\Documents and Settings\Admin\Рабочий стол\ " & Format(Now, "DD.MM.YYYY HH-NN-SS") & ".xlsm"
    
    If Dir(Filename$, vbNormal) = "" Then    ' если файла ещё нет - сохраняем
        ActiveWorkbook.SaveAs Filename$, xlOpenXMLWorkbookMacroEnabled
    End If

И вообще, как там окажется файл?
Вы сохраняете более одного файла в секунду? (каждую секунду имя файла новое будет...)

[nerv]

Сообщение от and150382

все дело было в переменной.

ох уж эти переменные. Они так переменчивы

[and150382]

EducatedFool спасибо!

И вообще, как там окажется файл?
Вы сохраняете более одного файла в секунду? (каждую секунду имя файла новое будет...)

При открытии книги появляется форма. На ней кнопка очистить. В этой кнопке и стоит этот код сохранения и код очистки таблицы. Нажиматься она по идее должна один раз.
Вот я и хочу чтобы кнопка исчезла через 10 мин после открытия книги , а не формы.( эта тема "Исчезновение CommandButton через заданный промежуток времени. ")