حفظ نسخة من الملف على سطح المكتب

[ابو تميم]

الملف المرفق تجربة وعلى افتراض أنه يحتوي على مجموعة أوراق (ورقة1،ورقة2،ورقة3) إضافة إلى أكواد على محرر الاكواد وماكرو وغيرها من الاعدادات

المطلوب هو عندما أضغط على الزر ( نقل الملف ) يتم نقل الملف كاملا بكامل محتوياته إلى سطح المكتب ويكون الملف على سطح المكتب بنفس اسمه الاصلي دون أي تغيير

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

جزاكم الله خيرا

حفظ نسخة من الملف على سطح المكتب.rar

[عبدالله باقشير]

السلام عليكم

حفظ نسخة من الملف على سطح المكتب

وحفظ واغلاق المصنف الاصل

Sub kh_SaveCopyInDesktop()

Dim wo As Workbook

Dim StrDeskPath As String, sPath As String

'''''''''''''''''''

StrDeskPath = CreateObject("WScript.Shell").SpecialFolders("Desktop")

sPath = StrDeskPath & Application.PathSeparator & ThisWorkbook.Name

' ''''''''''''''''''''

With ThisWorkbook

    .SaveCopyAs sPath

    .Close True

End With

' ''''''''''''''''''''

End Sub

[عبدالله باقشير]

السلام عليكم

حفظ نسخة من الملف على سطح المكتب

وحفظ المصنف الاصل بدون اغلاقه

Sub kh_SaveCopyInDesktop()

Dim wo As Workbook

Dim StrDeskPath As String, sPath As String

'''''''''''''''''''

StrDeskPath = CreateObject("WScript.Shell").SpecialFolders("Desktop")

sPath = StrDeskPath & Application.PathSeparator & ThisWorkbook.Name

' ''''''''''''''''''''

With ThisWorkbook

    .SaveCopyAs sPath

    .Save

End With

' ''''''''''''''''''''

End Sub

[ابو تميم]

جزاكم الله خيرا أستاذنا الكبير عبد الله باقشير

كفيت و وفيت وسلمت يداك وأبعد الله عنك أبناء السوء

[دغيدى]

أخى الفاضل / عبدالله باقشير

سلام الله عليكم

وفقكم الله على عمل الخير

عيد مبارك

[عبدالله باقشير]

جزاكم الله خيرا أستاذنا الكبير عبد الله باقشير

كفيت و وفيت وسلمت يداك وأبعد الله عنك أبناء السوء

جزاكم الله خيرا

ملاحظة :

تم اختصار الاكواد في المشاركات اعلاه

[عبدالله باقشير]

أخى الفاضل / عبدالله باقشير

سلام الله عليكم

وفقكم الله على عمل الخير

عيد مبارك

وعليكم السلام

اكرمكم الله وحفظكم من كل مكروه

وعيدكم مبارك

وكل عام وانتم بخير

تقبل تحياتي وشكري

[خالد الشاعر]

استاذى عبد الله باقشير

تسلم ايدك و كل عام و انتم بخير

جزاك الله كل خير

[الـعيدروس]

السلام عليكم

معلم كبير

علم خلق الله ينور دريك اين ماذهبت

تقبل مروري

[عبدالله باقشير]

استاذى عبد الله باقشير

تسلم ايدك و كل عام و انتم بخير

جزاك الله كل خير

وعليكم السلام

الله يسلمك

وعيدكم مبارك

وكل عام وانتم بخير

تقبل تحياتي وشكري

[عبدالله باقشير]

السلام عليكم

معلم كبير

علم خلق الله ينور دريك اين ماذهبت

تقبل مروري

وعليكم السلام

هذا من اصلكم الكريم

اكرمكم الله وحفظكم من كل مكروه

وعيدكم مبارك

وكل عام وانتم بخير

تقبل تحياتي وشكري

[عبدالله باقشير]

السلام عليكم

ايضا هذا السطر يعطيك مسار سطح المكتب

MsgBox Environ("USERPROFILE") & "\Desktop"

[أبو أنس حاجب]

السلام عليكم ورحمة الله وبركاته

أستاذي وسيدي النبيل عبد الله باقشير (أبا علي) حفظكم الله

عيدكم مبارك مقدماً وكل عام وأنتم في خير ونعم وفيرة وصحة وعافية.

الله يبارك لك في كل خطوة وكل نفس ويحفظك الحفظ التام من كل شر.

أبو أنس

[إبراهيم ابوليله]

الاخ عبد الله

بارك الله فيك كود رائع وجميل

وكل عام وانت وجميع الاخوه بخير