طلب كود

[ع_ حسام]

السلام عليكم  أهل هذا المنتدى العريق وعمالقة الأساتذدة

عندي سؤال متمثل في طلب كود في الفورم

الشرح في المرفق

Classeur1.rar

[عبد الله بولنوار]

تفضل

 

حفظ pdf

 

في مجلد d:exl

Classeur1.rar

تم تعديل يناير 1, 2015 بواسطه عبد الله بولنوار

[ع_ حسام]

أخي عبد الله شكرا لك على سرعة الرد وعلى الكود الخاص بPDF

سوف استعمله واعلمك بالنتيجة

شكرا لك

[ع_ حسام]

السلام عليكم أخي عبد الله

انا جربت الملف والكود الخاص بPDF هومكرو مسجل فقط وأنا أريد كود

يحفظ الصفحة بتلك البيانات وعندما أغير البيانات وأقوم بحقظها فيحفظها بإسم أخر وتبقى الصفحةالأولى  محفوظة كما هي (PDF)

أما المكرو هذا فهو يحفظ أخر بيانات فقط

وشكرا لك أخي

[عبد الله بولنوار]

تقصد كل مرة يحفظ باسم معين ؟

 

انت لم تشر لذلك

[الجموعي]

السلام عليكم أخي عبد الله

انا جربت الملف والكود الخاص بPDF هومكرو مسجل فقط وأنا أريد كود

يحفظ الصفحة بتلك البيانات وعندما أغير البيانات وأقوم بحقظها فيحفظها بإسم أخر وتبقى الصفحةالأولى  محفوظة كما هي (PDF)

أما المكرو هذا فهو يحفظ أخر بيانات فقط

وشكرا لك أخي

 تفضل أخي كود حفظ pdf بإسم الصفحة

Private Sub CommandButton3_Click()
  Dim ws As Worksheet
Dim strPath As String
Dim myFile As Variant
Dim strFile As String

Set ws = ActiveSheet

strFile = Replace(Replace(ws.Name, " ", ""), ".", "_") _
          & ".pdf"
           
strFile = ThisWorkbook.Path & "\" & strFile

myFile = Application.GetSaveAsFilename _
    (InitialFileName:=strFile, _
        FileFilter:="PDF Files (*.pdf), *.pdf", _
        Title:="Select Folder and FileName to save")

If myFile <> "False" Then
    ws.ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:=myFile, _
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, _
        OpenAfterPublish:=False

    MsgBox "تم إنشاء ملف PDF."
End If
End Sub

[الجموعي]

أما إذا أردت حفظ بإسم الصفحة والتاريخ والساعة

أدرج هذا الكود في سطر 6

strFile

strFile = Replace(Replace(ws.Name, " ", ""), ".", "_") _
            & "_" _
            & Format(Now(), "yyyymmdd\_hhmm") _
            & ".pdf"

[عبد الله بولنوار]

يحفظ الملف بمحتوى الخلية d1

 

في المسار d/Excel

حفظ.rar

[الجموعي]

تفضل أخي ما طلبت

Classeur1.rar