كيف استطيع استدعاء ملف اكسل محفوظ ضمن مجلد البرنامج مع المطالبة فور استدعاء بحفظ الملف

السلام عليكم

CommonDialog1.DialogTitle = "نسخ"
CommonDialog1.Filter = "database file*.xlsx|*.xlsx|allfiles *.*|*.*"
CommonDialog1.CancelError = True
CommonDialog1.ShowSave
If Len(CommonDialog1.FileName) = 0 Then Exit Sub


If Trim(App.Path & "\elaquori.xlsx") = Trim(CommonDialog1.FileName) Then
MsgBox "هذا الملف هو الملف الاصلي الرجاء اختيار مكان اخر للحفظ ",  vbMsgBoxRight + vbMsgBoxRtlReading + vbExclamation + vbOKOnly, ""
CommonDialog1.ShowSave
Exit Sub
End If

FileCopy (App.Path & "\elaquori.xlsx"), (CommonDialog1.FileName)
MsgBox "تمت عملية النسخ بنجاح", 64, "********اتمام*****"

project.rar

وبالتوفيق ان شاء الله

بارك الله فيك أخي عبدالجليل

وشاكر لك حسن تفاعلك وعلى وقتك الثمين

سؤال بسيط.. هل يمكن اضافة كود آخر يقوم بعملية فتح الملف الجديد بعد حفظه من المسار الذي حدده المستخدم ؟!!

السلام عليكم

هذا الكود لفتح ملف الاكسل

اذا نقلت الكود الجديد الى مشروع اخر فيجب اولا يجب اضافة المرجع الاتي

Project > References

ثم اختر منها Microsoft Excel 12.0 opjects library

project1.rar

تحياتي

مرحباً أخي ...

بالنسبة لـMicrosoft Excel 12.0 opjects library

تطلع مفقودة في Project > References

وبخصوص المثال، لم أكن أقصد زر احدهما للحفظ والآخر للفتح

بل بضغطة زر واحدة يقوم أولاً بالسؤال عن مكان حفظ نسخة من الملف ومن ثم يقوم بعد حفظها بفتح النسخة

اتمنى أن لا أكون أزعجتك أو أخذت من وقتك أخي الفاضل.

السلام عليكم

تكرم اخي وعلى حسابك بخصوص Microsoft Excel 12.0 opject library ابحث عن Microsoft Excel 10.0 opject library وهي اعتقد انها تعتمد على اصدار الاكسل 2003 او 2007 فاما ان تجدها 10.0 او 12.0 وبخصوص طلبك ان شاءالله اكون اجبتك

CommonDialog1.DialogTitle = "نسخ"
CommonDialog1.Filter = "Excel files: file*.xlsx|*.xlsx|allfiles *.*|*.*"
CommonDialog1.CancelError = True
CommonDialog1.ShowSave
If Len(CommonDialog1.FileName) = 0 Then Exit Sub
If Trim(App.Path & "\elaquori.xlsx") = Trim(CommonDialog1.FileName) Then
MsgBox "هذا الملف هو الملف الاصلي الرجاء اختيار مكان اخر للحفظ  ", vbMsgBoxRight + vbMsgBoxRtlReading + vbExclamation + vbOKOnly, ""
CommonDialog1.ShowSave
Exit Sub
End If

FileCopy (App.Path & "\elaquori.xlsx"), (CommonDialog1.FileName)

Set ExcelWork = Workbooks.Open(CommonDialog1.FileName)

Application.Visible = True
Set ExcelWork = Nothing

بارك الله فيك أخوي الكريم

تقبل الله طاعتك، وفتح عليك أبواب الخير يالغالي

اشكرك جزيل الشكر

هذا بالضبط ما كنت أريده :lol: