هل من حل لهذه المعضله

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

السلام عليكم ... الاخوه الافاضل

اكرمكم الله ... ارجو المساعده فى تحقيق هذا الطلب

هل يمكن عند حفظ شيت pdf من خلال كود ان يتم اضافه تاريخ اليوم الى الاسم بصوره اليه

مثل MR_29/12/2013.PDF

Sub PDF_ALL()

    Range("C45").Select
    Sheets(Array("A", "B", "C", "")).Select
    Sheets("A").Activate
    ChDir "d:"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "d:\MR.pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        True
End Sub

وكذلك اضافة

MsgBox

يكون محتواه .... هل انت متاكد من اتمام عمليه الحفظ  ..... واذا تم الموافقه يكون الرد تم الحفظ  

واذا تم الرفض يكون الرد لم يتم الحفظ

[عبدالله المجرب]

جرب هذا الكود 

Sub PDF_ALL()
 MyName = "D:\MR_" & Format(Date, "dd-mm-yyyy") & ".pdf"
    Range("C45").Select
    Sheets(Array("A", "B", "C", "D")).Select
    Sheets("A").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
End Sub

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

السلام عليكم

اخى العزيز عبد الله جزال الله كل الخير على المساعده

وكذلك الاستفادة مما قدمت  ...

ويبقى سوال وحيد

كيف يكون الامر اذا ما ارت ان يكون التاريخ تاريخ اليوم +1 اى تاريخ الغد

وهل يمكن ارسال الملف النتاتج من عمليه الحفظ من خلال نفس الكود اميل عن طريق الاوتلوك

جزاك الله خيرا اخى العزيز عبد الله

[ابوخليل]

بعد اذن استاذنا العزيز عبدالله

يجب التقيد بقوانين المشاركة

اختيار عنوان مناسب يصف الموضوع