تسمية الملف بإسم الأسبوع والسنة تلقائيا عند الحفظ

[محمد هشام.]

أنا عندي ملف إكسيل عامل عليه ماكرو بينسخ الشيت الي أنا عليه ويستخرجه لسطح المكتب كنت عاوز فكرة تخلي الشيت المستخرج بإسم الأسبوع الافتراضي مثلا لو تم نسخ الملف في الأسبوع الخامس يتم تسمية الملف هكذا 
W5_2022 يتعرف الكود على رقم الأسبوع والسنة تلقائيا دون التدخل مني وهكذا

hicham.xlsm

[lionheart]

No attachment, no code so no help

[محمد يوسف ابو يوسف]

اخي Hicham1470

تفضل طلبك

هل هذا طلبكحفظ الملف بتاريخ اليوم.xlsm

[محمد هشام.]

 عندي شيت عليه زر  يقوم بنسخ الشيت على  سطح المكتب عاوز لما ينسخ يحفظ الملف بتاريخ ورقم الأسبوع الافتراضي على الجهاز مثلا لو تم نسخه في الأسبوع الرابع يتم تسمية الملف   Rapport_W4_2022 
كود فتح الملف hicham

وشكرا لتعاونكم معنا .

hicham.xlsm

[عبدالفتاح في بي اكسيل]

لماذا  تكرر هذا  الموضوع  واعتقد  ان  الاخ  محمد  اجابك  وقمت  بالاعجاب  يعني  قام  بحل  الموضوع  https://www.officena.net/ib/topic/113326-تسمية-الملف-بإسم-الأسبوع-والسنة-تلقائيا-عند-الحفظ/ 

كان  وجب  عليك  اما  الرد  بالسلب  او الايجاب  اذا  اردت  المساعدة  من  الاخرين .

[محمد هشام.]

فعلا أخي بصراحة لم انتبه لرد الأستاذ محمد الا بعد طرح الموضوع للمرة الثانية ... وقد تم ذكر ذالك  في التعليقات ...ولاكن طلبي غير كامل بحيث تم حل مشكلة الحفظ بالتاريخ  اما بالنسبة لرقم الأسبوع   مازالت قائمة..اتمنى من أحد الأساتذة الأفاضل  تزويدي بكود يتمم الطلب وشكرا لكم جميعا ونفع بعلمكم 

[عبدالفتاح في بي اكسيل]

بصراحة  هذا  اخر  محاولة وساخرج  من  هذا  الموضوع

تم  اعطائه  اكثر  من  حجمه 

Sub export_sheets()
   Dim Fname As String, ws As Worksheet

    Application.DisplayAlerts = False
    
        Sheets(Array("SH1", "SH3")).Copy
        For Each ws In ActiveWorkbook.Sheets
            ws.UsedRange = ws.UsedRange.Value
        Next ws
        
        ActiveWorkbook.SaveAs Filename:= _
"C:\Users\PC WORLD\Desktop\" & " report_ " & "W" & Format(Date, "WW") & "_" & Format(Date, "YYYY") & ".xlsx", FileFormat:=51
        ActiveWorkbook.Close
    Application.DisplayAlerts = True
End Sub

 

[محمد هشام.]

شكرا لك أستاذنا الفاضل والأخ المحترم  محمد يوسف تم بحمد الله حل المشكلة 👍👍👍👍