hicham2610

السلام عليكم من فضلكم هل من معادلة تمكن من إدخال لائحة منسدلة في N5 الورقة الثالثة من اليمين bulletins_tr1 تمكن من إدخال أرقام من 1 إلى غاية أكبر رقم في المجال A16 إلى غاية A65 في الورقة الأولى tableau de scolarité وجزاكم الله خيرا هشام.xlsm

السلام عليكم من فضلكم ممكن شرح لصيغة xlsb? وهل تشبه xlsm وجزاكم الله خيرا

جزاك الله خيرا وأنا بصدد الرد بأنني تذكرت الرقم السري وجدت ردك جزاك الله خيرا ممكن الطريقة لنستفيد منها؟ جزاك الله خيرا واحسن إليك

السلام عليكم من فضلكم كنت قفلت الملف برقم سري ونسيته كيف أحل المشكلة خاصة للدخول لكود vba لزر pdf للورقة الثالثة من اليمين وجزاكم الله خيرا هشام.xlsm

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

السلام عليكم من فضلكم مالفرق بالتفصيل في مختلف هذه الكتابات في الصورة المرفقة وجزاكم الله خيرا

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

السلام عليكم من فضلكم كيف يمكن إضافة هذا اللون الرمادي في المناطق الخالية من ورقة إكسيل؟ وجزاكم الله خيرا

السلام عليكم السلام عليكم توصلت إلى هذا الكود: Sub PDF() If Not ActiveSheet.Name Like "bulletin*" Then Exit Sub 'sécurité Dim chemin$, rep As Byte, a$, h&, i& chemin = ThisWorkbook.Path & "\Sauvegarde\" If Dir(chemin, vbDirectory) = "" Then MkDir chemin 'création du dossier rep = MsgBox("Grouper en un seul fichier PDF ?'", 3) If rep = 2 Then Exit Sub Application.ScreenUpdating = False With ActiveSheet .PageSetup.Zoom = False .PageSetup.FitToPagesTall = 1 '1 page en hauteur, détermine le zoom If rep = 6 Then 'Oui a = .PageSetup.PrintArea h = .Range(a).Rows.Count .Copy 'nouveau document With ActiveSheet .PageSetup.PrintArea = "" For i = 1 To Val(.[N7] - 1) .Range(a).EntireRow.Offset(h * i - h).Copy .[A1].Offset(h * i) .[N5].Offset(h * i) = i + 1 .HPageBreaks.Add Before:=.[A1].Offset(h * i) 'saut de page Next .PageSetup.PrintArea = .Range(a).Resize(h * i).Address .PageSetup.FitToPagesTall = i .ExportAsFixedFormat xlTypePDF, chemin & "Groupé.pdf" .Parent.Close False 'fermeture du document End With MsgBox "Fichier PDF groupé publié..." Else 'Non For i = 1 To Val(.[N7]) .[N5] = i .ExportAsFixedFormat xlTypePDF, chemin & .[N5] & ".pdf" Next .[N5] = 1 MsgBox i - 1 & " fichier(s) PDF publié(s)..." End If End With End Sub بالضغط على زر PDF في ورقة BULLETINS_SEMيتم استصدار النتائج على شكل pdf باختيار إما نتائج متفرقة فتخرج كل النتائج فردية: لكل متعلم نتيجته او كلها مجموعة في ملف بدإف واحد هذه النتائج يتم وضعها أوطوماتيكيا في ملف باسم: sauvegarde في نفس مكان تواجد البرنامج إخوتي الكرام ما العيب الموجود في الكود ؟ عند الاختيار الثاني: كلها مجموعة في ملف بدإف واحد لا أجد كل نتيجة في صفحة ،حدث خطأ : بحيث تجد مثلا 24 نتيجة في 23 صفحة نتيجة في صفحتين/ نتيجة في صفحة ومباشرة ابتدأت نتيجة أخرى وهذا عيب ينبغي أن تكون كل نتيجة في صفحة والكل في بدإف واحد ومعذرة على الازعاج وجزاكم الله خيرا

السلام عليكم من فضلكم كيف أطور الكود الموجود في زر pdf في ورقة:bulletin_sem Sub PDF() If Not ActiveSheet.Name Like "bulletin*" Then Exit Sub 'sécurité Dim chemin$, rep As Byte, a$, h&, i& chemin = ThisWorkbook.Path & "\Sauvegarde\" If Dir(chemin, vbDirectory) = "" Then MkDir chemin 'création du dossier rep = MsgBox("Grouper en un seul fichier PDF ?'", 3) If rep = 2 Then Exit Sub Application.ScreenUpdating = False With ActiveSheet .PageSetup.Zoom = False .PageSetup.FitToPagesTall = 1 '1 page en hauteur, détermine le zoom If rep = 6 Then 'Oui a = .PageSetup.PrintArea h = .Range(a).Rows.Count .Copy 'nouveau document With ActiveSheet .PageSetup.PrintArea = "" For i = 1 To Val(.[N7] - 1) .Range(a).EntireRow.Offset(h * i - h).Copy .[A1].Offset(h * i) .[N5].Offset(h * i) = i + 1 .HPageBreaks.Add Before:=.[A1].Offset(h * i) 'saut de page Next .PageSetup.PrintArea = .Range(a).Resize(h * i).Address .PageSetup.FitToPagesTall = i .ExportAsFixedFormat xlTypePDF, chemin & "Groupé.pdf" .Parent.Close False 'fermeture du document End With MsgBox "Fichier PDF groupé publié..." Else 'Non For i = 1 To Val(.[N7]) .[N5] = i .ExportAsFixedFormat xlTypePDF, chemin & .[N5] & ".pdf" Next .[N5] = 1 MsgBox i - 1 & " fichier(s) PDF publié(s)..." End If End With End Sub بحيث عند اختيار groupé أي نتائج pdf في ملف واحد pdf مجتمعة تكون النتيجة سليمة بدل هذه النتيجة التي فقط تقتصر على تغيير الرقم و إعادة نسخ نتيجة التلميذ الأول أما النتيجة السليمة أن تجمع نتائج المتعلمين ال 24 في pdf واحد وجزاكم الله خيرا وجزاكم الله خيرا 111.xlsm

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

بعد بحث وجدت هذا الكود يمكن من إنشاء ملف إن لم يكن موجودا مثلا ملف باسم bulletins يتحقق إن لم يكن موجودا فيتولى البرنامج إنجازه If Dir("C:\Users\pc\Desktop\Bulletins\", 16) = "" Then MkDir ("C:\Users\pc\Desktop\Bulletins") إريد إن كان ممكنا أن يطلب من المستعمل أولا هل يريدها مفرقة أم مجتمعة ثم مكان واسم الحفظ وجزاكم الله خيرا

السلام عليكم من فضلكم كيف أطور الكود الموجود في زر 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

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

السلام عليكم من فضلكم بعد إنشاء ملف على سطح المكتب باسم 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

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

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

السلام عليكم من فضلكم يتم إنشاء ملف على سطح المكتب باسم:TO PDF كيف أعدل على هذا الكود ليحفظ كل الأوراق من :1 إلى غاية: الرقم المكتوب في : N7 بصيغة PDF وليس فقط الورقة الأخيرة الكود: Sub Macro1() ' ' Macro1 Macro ' ' 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\1.pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _ False Next [N5] = 1 End Sub هذا الكود مدمج في زر PDF ورقتي:bulletin_sem وجزاكم الله خيرا 2.xlsm

السلام عليكم من فضلكم في هذا الملف أريد برمجة زر "تسجيل الكل بصيغة PDF" الموجود في الورقتين : bulletin_sem1 و bulletin_sem2 مثل زر طباعة الكل يرسل الكل للطباعة بحيث عند الضغط عليه يقوم أوطوماتيكيا بحفظ أوراق / نتائج من : 1 إلى غاية الرقم الذي سيكون في: N7 بصيغة :PDF من: A1 الى N لاخر سطر به بيانات مع امكانية خروج نافذة تطلب تحديد مكان الحفظ أو يحفظ أوطوماتيكيا على سطح المكتب وجزاكم الله خيرا الملف.xlsm

بعد عدة محاولات وجدت أعددت هذا الكود والزر"تسجيل pdf" لاحظوا الملف المرفق في ورقة:bulletin_sem2 لكن يحول فقط الورقة/ النتيجة المنشطة أريد كودا يحفظ بصيغة pdf جميع النتائج مثل المهيأ للطباعة الذي يوجد فوقه يطبع جميع النتائج وجزاكم الله خيرا Gestion des Notes APG_1_2sem_2017_2018.xlsm

جزاك الله خيرا أخي الكريم عندي أوفيس 2010 أريد كودا يمكن من حفظ جميع النتائج دفعة واحدة وليس بالواحدة تلو الأخرى لأن ليست هناك نتيجة واحدة وإنما نتائج كل الطلبة بتغيير N5 تتغير النتيجة حسب الطالب المعني

جزاك الله خيرا حللت مشكلة المعادلة الملف بصيغة xlsb وضغطته حولته الآن ل xlsm Gestion des Notes APG_1_2sem_2017_2018.xlsm

السلام عليكم من فضلكم في هذا الملف زر بالضغط عليه يتم إصدار أمر للطباعة لطباعة الكل في ورقتي bulletin sem كيف أضيف زر آخر لحفظ كل النتائج بصيغة pdf في مكان ما على الحاسب وجزاكم الله خيرا الملف.rar

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

السلام عليكم من فضلكم في هذا الملف لائحة بها قرار آخر السنة : ينتقل يكرر يفصل ومعها ملف مبرمج اسمه: إحصاء يحصي مجالات شريحة المعدل العام حسب مجالات وحسب القرار ينتقل يكرر يفصل وحسب جنس المتعلم ذكر.أنثى طريقة اشتغاله: إما اجراء احصاء على كل لائحة بمفردها بعد جعل اللغة فرنسية وفتح اللائحة والضغط على ctrl+g او فتح لائحة واحدة والضغط على ctrl+l فيجري الاحصاءات دفعة واحدة وكيفية عمله مشروحة في ورقة:كيفية استخدام التطبيق من فضلكم: 1- كيف أفك تشفير الملف المبرمج لأصل للكود لأعرف كيف يعمل؟ 2- مانوع هذا الملف هل هو xlsm؟ 3- ربما الملف به هفوات لأنه لاينجز الاحصاءات دقيقة مالتعديلات الواجب القيام بها ليكون أكثر دقة.؟ وجزاكم الله خيرا الملف.rar