طلب كود msgbox وجزاكم الله خيرا

[hicham2610]

السلام عليكم

من فضلكم 

بعد إنشاء ملف على سطح المكتب باسم to pdf

ف;ي  الملف  المرفق زر pdf  في ورقة:bulletin_sem يحول وثائق بمجرد الضغط عليه  بصيغة pdf

الكود:

Sub Macro1()
'
' Macro1 Macro
'

Application.ScreenUpdating = False
For i = 1 To [N7]
    [N5] = i
     ActiveCell.FormulaR1C1 = "i"
   ChDir "C:\Users\pc\Desktop\TO PDF\"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\pc\Desktop\TO PDF\" & [N5] & ".pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False
  Next
    [N5] = 1
    MsgBox "!هشام  : مبروك تمت تسجيل النتائج بصيغة:PDF", , Now()
    
End Sub

من فضلكم

أريد:

كود msgbox يطلب إنشاء ملف أولا لحفظ وثائق pdf فيه في المكان وبالاسم الذي يختاره المستعمل وإن أمكن في وثيقة واحدة عوض هذا ينشئ لكل وثيقة وثيقة pdf منفصلة

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

2.xlsm

تم تعديل يوليو 21, 2018 بواسطه hicham2610
إرفاق الملف

[hicham2610]

هل من اقتراحات إخوتي الكرام