запуск макроса при определенном имени файла

[Вячеслав76]

нет. Форма вытащена просто в эксель. я не знаю как это правильно объяснить В общем, при открытии Экселя, нажав на вкладку "главная", у нее кроме стандартных команд, появилась еще кнопка "обновить". Вот нажав ее появляется "юзерформа". Кнопка "обновить" есть всегда, когда открыт эксель.

[Aleksandr H.]

Вот файлы как вы описали.
В зависимости из какого из них будет запущен код - будет соответствующий макрос запущен

[Вячеслав76]

Супер!!! Работает. Сейчас буду подгонять под себя.. Можно два уточнения?
1) Обязательно делать двойное подтверждение? (Имя макроса..., запускаю макрос). Или если убрать один запрос, то работать не будет?
2) Можно ли тут как то вписать - выполнение последовательно 2х макросов? Например, если у меня идут друг за другом Макрос_Резервы1 и Макрос_резервы2. (при обновлении файла "Резервы")

Но все равно, ОГРОМНОЕ СПАСИБО!!!!!!!!!!)))))))))))

[Aleksandr H.]

1 можно, редактируйте код по себя как хотите
2 есть реализовано, смотрите код

[Вячеслав76]

Спасибо за помощь. Очень благодарен.

[Вячеслав76]

Добрый день.
Помогите еще немного, пожалуйста. Прекрасно работает Ваш макрос, все супер. Немного поправил его под себя, но никак не получается сделать кнопку "Да/отмена". Попробовал несколько вариантов, но все время вылетают ошибки. Как "vbOKOnly" заменить на "vbOKCancel" и чтобы в случае отмены, появилось диалоговое окно - "обновление отменено" . И еще. Сейчас, если я хочу закрыть диалоговое окно перед выполнением макроса (по сути сделать ту же отмену), то макрос все равно выполняется. Это можно тоже "поправить"? Сейчас это выглядит так..

Sub Обновление_Зельгрос()
Dim sFileName As String
Dim sFileNameFull As String
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemO bject")
sFileNameFull = LCase(fso.GetBaseName(ActiveWorkboo k.Name))
If Len(sFileNameFull) <= 8 Then
MsgBox "С этим файлом я не работаю!", vbOKOnly
Exit Sub
End If

sFileName = Mid(sFileNameFull, 1, Len(sFileNameFull) - 8)
' MsgBox "Полное имя открытой книги: " & vbNewLine & sFileNameFull & vbNewLine & "Имя книги без даты " & vbNewLine & sFileName
sFileName = Replace(sFileName, " ", "")
Select Case sFileName
Case "остаткиинтернетлеруа"
MsgBox "Обновить остатки Леруа (Интернет) в Зельгрос?", vbOKOnly
ОстаткиИнтернетЛеруа
Case "остаткискладлеруа"
MsgBox "Обновить остатки Леруа в Зельгрос?", vbOKOnly
ОстаткиСкладЛеруа
Case "остаткипоскладусценами"
MsgBox "Обновить остатки склада в Зельгрос?", vbOKOnly
ОстаткиПоСкладуСЦенами
Case "резервы"
MsgBox "Обновить резервы в Зельгрос?", vbOKOnly
Резервы
Case Else
'MsgBox "Будет запущен макрос НеизвестныйФайл", vbOKOnly
MsgBox "Эти данные в Зельгрос не нужны"
End Select


End Sub



Private Sub ОстаткиИнтернетЛеруа()
Call Удаление_рез_Леруа_инт
Call Удаление_рез_Леруа_инт2
Call Удаление_рез_Леруа_инт3
Call Занесение_Леруа_интер_Зельгрос
End Sub

Private Sub ОстаткиСкладЛеруа()
Call Удаление_заказа_Леруа
Call Удаление_заказа_Леруа2
Call Удаление_заказа_Леруа3
Call Занесение_Леруа_Зельгрос
End Sub

Private Sub ОстаткиПоСкладуСЦенами()
Call Перенос_остатков_Зельгрос
End Sub

Private Sub Резервы()
Call Удаление_заказа
Call Резервы_Зельгрос
Call Перенос_Резервов_Зельгрос
End Sub

'Private Sub НеизвестныйФайл()
'Range("D1") = "Демонстрация работы макроса НеизвестныйФайл"
'НеизвестныйФайл2
'НеизвестныйФайл3
'End Sub

'Private Sub НеизвестныйФайл2()
'Range("D2") = "Демонстрация работы вложеного в НеизвестныйФайл "
'End Sub
'Private Sub НеизвестныйФайл3()
'Range("D3") = "Демонстрация работы вложеного 2го в НеизвестныйФайл "
'End Sub

[IgorGO]

начну с простого:

Как "vbOKOnly" заменить на "vbOKCancel"

вместо vbOKOnly напишите vbOKCancel
заменили))
как управлять порядком выполнения кода с помощью MsgBox?
нужно не просто выполнить MsgBox, а выполнить его как функцию:

a = MsgBox("Текст сообщения в окне", vbOKCancel, "Текст заголовка окна")
if a = vbCancel then ...

[Вячеслав76]

Изначально я пытался написать так:
If MsgBox ("Обновить остатки Леруа (Интернет) в Зельгрос?", vbYesNo)=vbYes Then
ОстаткиИнтернетЛеруа
,,,
,,,
End If
Но постоянно выскакивает ошибка... Я умею создавать кнопки, но НЕ в сложном макросе. А тут, очень сложно для меня.

[IgorGO]

для меня не менее сложно, понять о какой ошибке вы говорите?
это

If MsgBox ("Обновить остатки Леруа (Интернет) в Зельгрос?", vbYesNo)=vbYes Then

корректная, работающая строка, тут негде взяться ошибке, и о чем вы - это загадка!

[Вячеслав76]

Кажется я разобрался. Я "end if "ставил в самом конце, перед "end sub".
А если вот так, то работает

If MsgBox("Обновить остатки Леруа (Интернет) в Зельгрос?", vbYesNo) = vbYes Then
'MsgBox "Обновить остатки Леруа (Интернет) в Зельгрос?", vbOKOnly
ОстаткиИнтернетЛеруа
End If
Case "остаткискладлеруа"........

Спасибо большое за совет