не сохранять файл,только очистить, на другом компьютере

[kartol]

Есть файл (рапортичка).При нажатии на кнопку "сохранить и очистить" он сохраняется в конкретной папке. Файл отсылается на другой комп - Вопрос :возможно ли прописать так чтобы при нажатии на кнопку "сохранить и очистить" на другом компьютере файл только очистился и не появлялось окно с надписью "Папка недоступна или не существует!"

[doober]

 strPath = "C:\Users\Operator\Documents\рапортичка"

Почему вы решили,что у него есть такой путь к папке.
У меня вообще диска С нет,а винда стоит на F

[kartol]

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

 strPath = "C:\Users\Operator\Documents\рапортичка"

Почему вы решили,что у него есть такой путь к папке.
У меня вообще диска С нет,а винда стоит на F

Это путь на моём компьютере; я отсылаю этот файл ему. И надо чтоб у него не выплывало окно с предупреждением, если он нажмёт на сделанную кнопку "сохранить" у него должен файл просто очищаться
Ну или проще- если такой папки нет --то просто файл очищается без всякого сообщения,а если есть то ещё и сохраняется

[Pasha_Z]

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

Это путь на моём компьютере; я отсылаю этот файл ему. И надо чтоб у него не выплывало окно с предупреждением, если он нажмёт на сделанную кнопку "сохранить" у него должен файл просто очищаться

m = ActiveWorkbook.Path
' strPath = "d:........"
strPath = m

не забудь добавить отзыв.
в низу есть весы.

[kartol]

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

m = ActiveWorkbook.Path
' strPath = "d:........"
strPath = m

немного не то что хотел

Сделал проще- удалил запись:

MsgBox "Папка " & strPath & " недоступна или не существует!", vbCritical

Что имею:у меня сохраняется в папку какую указал (знаю что эта папка есть)
strPath = "C:\Documents and Settings\......
При открытии файла на другом компьютере(полученного по почте и т.п.) :если пользователь нажмёт там кнопку"очистить и сохранить" файл просто очистится и 1)не будет сохраняться у них(т.к. нет "пути") и 2) не будет сообщения (что путь не найден).Немного не так(в исходном коде) ,но получил что хотел.

[kartol]

и ещё
Как подправить
strDate = Format(Now, "dd/mm/yy hh-mm")
FileNameXls = strPath & "\" & ActiveWorkbook.ActiveSheet.[d3] & " " & strDate & ".xls"
ActiveWorkbook.SaveCopyAs Filename:=FileNameXls
,чтоб название при сохранении документа выбиралось из двух ячеек D3 + I3(дата -которую указываю) ,а то сохраняется под названием = D3 + текущая дата (дата сохранения)