Помогите разобрать с сохранением в Exel

[visnuk]

Такая вот проблема нужно пересохранять в двух форматах документы Exel, знаю что надо писать макрос уже сделал и вот что получилось (немного переделал)

ActiveWorkbook.SaveAs Filename:= _
"...1\" + ActiveWorkbook.Name, FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
ActiveWorkbook.SaveAs Filename:= _
"......2\" + ActiveWorkbook.Name, FileFormat:= _
xlExcel5, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False


Все прикольно и отробатывается макрос но вот проблема вылетает окошко с запросом пересохранения.

Необходимо, чтобы пользователь ничего не нажимал и все проходило.

Как реализовать нажатие "да" на пересохранении.

Заранее спасибо.

[Tuco]

до сохранения поставь Application.DisplayAlerts = False тогда не будет запросов никаких...

[visnuk]

Все заработало спасибо

[visnuk]

Не все хорошо. Возникла проблема вот в чем когда на машине юзверя это-то скрипт то он не выполняется.

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

Может быть такое, что если есть связанные таблицы и при сохранении вылетает ошибка. Может завтра будет все хорошо.

Или это глюк мелкомягких. У меня стоит Про всерсия оффиса а юзверя стандарт.

Короче глюк не понятный

Заранее благодарен