طلب التعديل على كود vba excel وجزاكم الله خيرا

[hicham2610]

السلام عليكم

من فضلكم

كيف أطور الكود الموجود في زر pdf في ورقة:لbulletin_sem2

هذا هو:

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 "!åÔÇã  : ãÈÑæß ÊãÊ ÊÓÌíá ÇáäÊÇÆÌ ÈÕíÛÉ:È Ï Å Ý", , Now()
    
End Sub

كي أطور هذا الكود بحيث تخرج نافذة أولى: لتحديد هل سيحفظ النتائج مجتمعةpdf في ملف واحد أم متفرقة

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

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

الملف.xlsm

[hicham2610]

بعد بحث وجدت هذا الكود

يمكن من إنشاء ملف إن لم يكن موجودا مثلا ملف باسم bulletins يتحقق إن لم يكن موجودا فيتولى البرنامج إنجازه

If Dir("C:\Users\pc\Desktop\Bulletins\", 16) = "" Then MkDir ("C:\Users\pc\Desktop\Bulletins")

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

[hicham2610]

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