מאקרו שמירת קובץ

[dikla302]

היי,
אני מנסה למצוא קוד מאקרו שיגרום למספר דברים:
1. שמירת עותק של הקובץ בתיקיה בשרת ( לא התיקיה שבה נמצא הקובץ) אם אפשר בסיומתxlsx ולא בסיומת xlsm go ושבשם הקובץ יופיע תאריך ושעה
2. שמירת וסגירת הקובץ בתיקיה הנוכחית
אשמח לעזרתכם

 

[מיכאל אבידן]

‏
אם יש לך ידע קודם ב- VBA חפשי מידע אודות:

PATH
DIR
SAVEAS
CLOSE
‏

 

[dikla302]

​

זה מה שהצלחתי למצוא שעובד על הקובץ בלי שגיאות אבל זה רק חלק ממה שאני צריכה

Sub save()

ActiveWorkbook.SaveAs Filename:=ActiveWorkbook.Path & "\WorkPlan - " & Format(CStr(Now), "dd_mm_yyyy_hh_mm") & ".xls"
End Sub​