تعديل على سطر فى كود

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم

الاخوة الكرام

ارجو المساعده فى تعديل على سطر فى كود

MyName = "D:\بدلات المقاولين\بدلات الخفراء والعمالة الغير فنية_" & Format(Date, "mm-yyyy") & ".pdf"

والخاص بتسميه الملف بعد حفظه pdf  بدلات الخفراء والعمالة الغير فنية - الشهر - السنه مثال (   بدلات الخفراء والعمالة الغير فنية_07-2017.pdf  )

المطلوب اذا كان التايخ الحالى شهر 7  ......يتم طرح شهر من التاريخ  اى  ( بدلات الخفراء والعمالة الغير فنية_06-2017.pdf )

 

 

Sub PDF_ALL()
Application.ScreenUpdating = False
    On Error Resume Next
      ActiveSheet.Unprotect "219161221"
 MyName = "D:\بدلات المقاولين\بدلات الخفراء والعمالة الغير فنية_" & Format(Date, "mm-yyyy") & ".pdf"
    Range("C45").Select
    Sheets(Array("بدل")).Select
    Sheets("رمضان 1").Activate
     MyMsg = MsgBox("هل انت متاكد من اتمام عمليه الحفظ", 4, "تنبيه")
    If MyMsg = 6 Then
    ChDir "D:"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
        MyName, Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        True
    MsgBox "تم الحفظ"
    Else
       MsgBox "لم يتم الحفظ"
        End If
        Application.ScreenUpdating = True
    Sheets("رمضان 1").Select
    ActiveSheet.Protect "219161221"
End Sub
 

 

ارجو يكون المطلوب اتضح

[ياسر خليل أبو البراء]

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

إذا كان الشرط لشهر 7 فقط كما فهمت من موضوعك فجرب التالي ...

    Dim mMonth As Integer
    
    mMonth = IIf(Month(Date) = 7, 6, Month(Date))
    myName = "D:\بدلات المقاولين\بدلات الخفراء والعمالة الغير فنية_" & Format(mMonth, "00") & "-" & Format(Date, "yyyy") & ".pdf"

أما إذا كنت تقصد أن يتم التعامل مع الشهر السابق أياً كان الشهر فجرب التالي

    Dim mMonth As Integer
    
    mMonth = Month(Date) - 1
    myName = "D:\بدلات المقاولين\بدلات الخفراء والعمالة الغير فنية_" & Format(mMonth, "00") & "-" & Format(Date, "yyyy") & ".pdf"

 

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم

الاخ الجليل ياسر خليل

نعم المقصود ان يتم التعامل من الشهر السابق أياً كان الشهر

وتم الامر شكل ممتاز

جزاك الله كل الخير والتقدير

[ياسر خليل أبو البراء]

وجزيت خيراً أخي العزيز أبو حنين والحمد لله أن تم المطلوب على خير

والحمد لله الذي بنعمته تتم الصالحات