أكاديمية الصقر للتدريب
FBConnect

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
أحمد يوسف ali mohamed ali-- لا تميز خلال هذه الفترة YasserKhalil تعديل عرض الأرقام كنسبة مئوية بالليست بوكس داخل الفورم اكسيل اسئله واجابات


اعلان هنا
صقور الاكسيل
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا


أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .

Preview




كيفية إنشاء مجلد جديد من خلال vba

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



29-08-2017 05:39 مساء
Kamel meraghni
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 182
المشاركات : 106
الجنس : ذكر
تاريخ الميلاد : 23-10-1984
يتابعهم : 7
يتابعونه : 6
قوة السمعة : 643
الاعجاب : 1
 offline 


السلام عليكم ورحمة الله

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



توقيع :Kamel meraghni

الحمد لله وكفى والصلاة والسلام على الحبيب المصطفى



142



29-08-2017 07:09 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8997
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 22
يتابعهم : 0
يتابعونه : 460
قوة السمعة : 26664
الاعجاب : 671
 offline 
look/images/icons/i1.gif كيفية إنشاء مجلد جديد من خلال vba
وعليكم السلام أخي الكريم كامل
تفضل الكود التالي يقوم بإنشاء مجلد باسم Output في نفس مسار المصنف الذي يحتوي الكود .. ويتم إنشاء المجلد فقط في حالة عدم وجود المجلد ..
يمكنك بالطبع تغيير المسار 
Sub Create_Folder_If_Not_Existing()
    Dim strPath As String
    
    strPath = ThisWorkbook.Path & "\Output"
    If Len(Dir(strPath, vbDirectory)) = 0 Then
        MkDir strPath
    End If
End Sub




29-08-2017 08:24 مساء
مشاهدة مشاركة منفردة [2]
Kamel meraghni
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 182
المشاركات : 106
الجنس : ذكر
تاريخ الميلاد : 23-10-1984
يتابعهم : 7
يتابعونه : 6
قوة السمعة : 643
الاعجاب : 1
 offline 
look/images/icons/i1.gif كيفية إنشاء مجلد جديد من خلال vba
شكرا جزيلا أستاذنا القدير ياسر وجزاك الله كل خير
انا ايضا وجدت كود ثاني
Sub meraghni()
Dim fso As Scripting.FileSystemObject
Set fso = New Scripting.FileSystemObject
If fso.FolderExists("d:\kame2") Then
Exit Sub
Else
MkDir ("d:\kame2")
End If

ThisWorkbook.SaveCopyAs Filename:="d:\kame2\" & Format(Now() - 1, "mm.yyyy") & "prodec" & ".xlsm"
End Sub




توقيع :Kamel meraghni

الحمد لله وكفى والصلاة والسلام على الحبيب المصطفى



142



30-08-2017 07:54 صباحا
مشاهدة مشاركة منفردة [3]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8997
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 22
يتابعهم : 0
يتابعونه : 460
قوة السمعة : 26664
الاعجاب : 671
 offline 
look/images/icons/i1.gif كيفية إنشاء مجلد جديد من خلال vba
وجزيت خيراً أخي الكريم كامل
تسلم على إثراء الموضوع بكود آخر ، ولكن انتبه أنه لابد من تفعيل مكتبة من Tools  ثم References ثم تقوم بعلامة صح أمام Microsoft s c r i p ting Runtime
الكود الذي قدمته أبسط ولا يحتاج لمكتبات وأقل في عدد الأسطر ويؤدي الغرض .. ولكن تنوع الحلول مطلوب لمن يريد التعلم
تقبل تحياتي




30-08-2017 10:45 مساء
مشاهدة مشاركة منفردة [4]
Kamel meraghni
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 182
المشاركات : 106
الجنس : ذكر
تاريخ الميلاد : 23-10-1984
يتابعهم : 7
يتابعونه : 6
قوة السمعة : 643
الاعجاب : 1
 offline 
look/images/icons/i1.gif كيفية إنشاء مجلد جديد من خلال vba
و الشكر موصول إليك أيضا أستاذ ياسر



توقيع :Kamel meraghni

الحمد لله وكفى والصلاة والسلام على الحبيب المصطفى



142



31-08-2017 12:02 صباحا
مشاهدة مشاركة منفردة [5]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8997
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 22
يتابعهم : 0
يتابعونه : 460
قوة السمعة : 26664
الاعجاب : 671
 offline 
look/images/icons/i1.gif كيفية إنشاء مجلد جديد من خلال vba
بارك الله فيك أخي كامل وكل عام وأنت بخير




31-08-2017 05:22 مساء
مشاهدة مشاركة منفردة [6]
أباالحسن
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 18
المشاركات : 306
الجنس : ذكر
تاريخ الميلاد : 7-7-1979
الدعوات : 1
يتابعهم : 4
يتابعونه : 17
قوة السمعة : 689
الاعجاب : 2
 offline 
look/images/icons/i1.gif كيفية إنشاء مجلد جديد من خلال vba
أنا استخدمت الكود الاتى لعمل مجلد أساسى باسم (مرتب -اسم الشهر- السنة) 
ثم داخله مجلد فرعي باسم (كشوف المرتبات الفرعية)

Sub AAA()

On Error Resume Next


MkDir ThisWorkbook.path & "" & "مرتبات" & " " & Sheets("Main data").[G14] & _
" " & Sheets("Main data").[I14] 


MkDir ThisWorkbook.path & "" & "مرتبات" & " " & Sheets("Main data").[G14] & _
" " & Sheets("Main data").[I14] & " " & "" & "كشوف المرتبات الفرعية"

End Sub

وهو يعمل ، وفى حال وجود المجلد منشأ فعلا ، فانه يتجاوز هذا الخطوة الى الخطوة التالية 
فما ملاحظاتكم على هذا الكود؟




31-08-2017 06:23 مساء
مشاهدة مشاركة منفردة [7]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8997
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 22
يتابعهم : 0
يتابعونه : 460
قوة السمعة : 26664
الاعجاب : 671
 offline 
look/images/icons/i1.gif كيفية إنشاء مجلد جديد من خلال vba
تمام أخي أبا الحسن أحسنت ... طالما أن الكود يفي بالغرض فهذا شيء جيد .. والتعامل مع الأكواد فيه مرونة كبيرة
تقبل تحياتي







الكلمات الدلالية
كيفية ، إنشاء ، مجلد ، جديد ، خلال ،


 








اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 07:29 مساء

أعلن هنا
أعلن هنا
أعلن هنا