ع_ حسام قام بنشر يناير 1, 2015 مشاركة قام بنشر يناير 1, 2015 السلام عليكم أهل هذا المنتدى العريق وعمالقة الأساتذدة عندي سؤال متمثل في طلب كود في الفورم الشرح في المرفق Classeur1.rar رابط هذا التعليق شارك More sharing options...
عبد الله بولنوار قام بنشر يناير 1, 2015 مشاركة قام بنشر يناير 1, 2015 (معدل) تفضل حفظ pdf في مجلد d:exl Classeur1.rar تم تعديل يناير 1, 2015 بواسطه عبد الله بولنوار رابط هذا التعليق شارك More sharing options...
ع_ حسام قام بنشر يناير 1, 2015 الكاتب مشاركة قام بنشر يناير 1, 2015 أخي عبد الله شكرا لك على سرعة الرد وعلى الكود الخاص بPDF سوف استعمله واعلمك بالنتيجة شكرا لك رابط هذا التعليق شارك More sharing options...
ع_ حسام قام بنشر يناير 2, 2015 الكاتب مشاركة قام بنشر يناير 2, 2015 السلام عليكم أخي عبد الله انا جربت الملف والكود الخاص بPDF هومكرو مسجل فقط وأنا أريد كود يحفظ الصفحة بتلك البيانات وعندما أغير البيانات وأقوم بحقظها فيحفظها بإسم أخر وتبقى الصفحةالأولى محفوظة كما هي (PDF) أما المكرو هذا فهو يحفظ أخر بيانات فقط وشكرا لك أخي رابط هذا التعليق شارك More sharing options...
عبد الله بولنوار قام بنشر يناير 2, 2015 مشاركة قام بنشر يناير 2, 2015 تقصد كل مرة يحفظ باسم معين ؟ انت لم تشر لذلك رابط هذا التعليق شارك More sharing options...
الجموعي قام بنشر يناير 2, 2015 مشاركة قام بنشر يناير 2, 2015 السلام عليكم أخي عبد الله انا جربت الملف والكود الخاص ب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 رابط هذا التعليق شارك More sharing options...
الجموعي قام بنشر يناير 2, 2015 مشاركة قام بنشر يناير 2, 2015 أما إذا أردت حفظ بإسم الصفحة والتاريخ والساعة أدرج هذا الكود في سطر 6 strFile strFile = Replace(Replace(ws.Name, " ", ""), ".", "_") _ & "_" _ & Format(Now(), "yyyymmdd\_hhmm") _ & ".pdf" رابط هذا التعليق شارك More sharing options...
عبد الله بولنوار قام بنشر يناير 2, 2015 مشاركة قام بنشر يناير 2, 2015 يحفظ الملف بمحتوى الخلية d1 في المسار d/Excel حفظ.rar رابط هذا التعليق شارك More sharing options...
الجموعي قام بنشر يناير 3, 2015 مشاركة قام بنشر يناير 3, 2015 تفضل أخي ما طلبت Classeur1.rar رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.