جلب بيانات من ملف اخر بنفس التنسيق على اساس ان الملف الاول متجدد

**ا بو سليمان** · يوليو 5, 2015

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

ارغب المساعدة

مجلدين   رقم   1 ورقم 2

كل مجلد به   ملفين     لهما نفس الاسم و الخصائص

المجلد رقم   1 كل يوم يتم حذفه و استبدالة بملف به نفس البيانات ولكن محدثه

المجلد رقم 2 يبقى دائمة

وهو الواجب ان يكون الماكروا به    لانه لا يحذف نهائي   (مهمة المجلد رقم 2 ) انه يمكن عمل عمليات حسابية او معادلات به لانه دائما باقي

المطلوب ان يتم ربط بين المجلدين بدلاله اسم المجلد رقم 1 لكي يتم الربط مع المجلد الثاني بحال تم استبدال المجلد رقم 1 بنفس الاسم (( المجلد رقم 1 يتم استبداله كل يوم ولكن له نفس الاسم للمجلد وكذلك نفس التنسيق للملفات المجودة به ))

افسينا جلب بيانات.rar

**ا بو سليمان** · يوليو 15, 2015

تقبل الله صيامكم وقيامكم

**ا بو سليمان** · يوليو 16, 2015

الاخ اسامة

ننتظر الاجابه

الاخ ابو حنين

ننتظر الاجابه

**ا بو سليمان** · يوليو 16, 2015

سبحان الله وبحمده ...............سبحان الله العظيم

----------

معقوله لم يستطيع اعضاء اوفسينا عن تحقيق الطلب من خلال

جلب بيانات من ملف مستقل ( خارجي ) الى ملف اخر

ياسر خليل أبو البراء · يوليو 16, 2015

أخي الحبيب أبو سليمان

لابد أن تعلم جيداً أن فهم المطلوب - حتى لو كان صعباً - يمثل 90% من الحل

لـــــــــــــــــــــــــــــذا يجب دائماً وأبداً التوضيح التاااااااااااااااااااااااااام والجيد للمطلوب وإلا لن تجد استجابة مهما كثر رفع الموضوع ومهما تعددت الردود ...

إذ أنه لا يعقل أن يساهم بالمساعدة شخص لا يفهم المطلوب ..

أمر آخر مهم جداً وهو المسميات .. أنت تذكر كلمة مجلد في المشاركة رقم 1 .. صحيح !! هل المقصود بالمجلد المجلد (الذي نعرفه ذو اللون الأصفر ...) ؟؟ لا أعتقد .. أعتقد أنك تقصد المصنف (Workbook) ..أياً كان يجب التأكد من صحة المسميات عند شرح المطلوب ..

أمر آخر .. ما هو المصنف في المرفقات المطلوب العمل عليه ؟؟؟؟ يجب أن يكون مصنف واحد وليس اثنان ولو كان اثنان يرجى شرح آلية العمل

أمر آخر : هل تقصد من الموضوع عملية ترحيل للبيانات من الملفات الموجودة في المجلد رقم 1 إلى المجلد رقم 2 إلى نفس الملفات التي تحمل نفس الاسم ؟

أين تريد وضع الأكواد .. في أي مصنف ؟؟

أم أنه يتم عمل مصنف آخر يقوم بالمهمة ؟؟

أسئلة كثيرة جداً تسهل الوصول لحل ..

إذا توافرت العناصر وفهم المطلوب بشكل جيد فبالتأكيد ستجد المساعدة بإذن الله

تقبل تحياتي وكل عام وأنت بخير

**ا بو سليمان** · يوليو 16, 2015

السلام عليكم اخي ياسر

المطلوب واضح جدا ولا يحتاج الى توضيح اكثر

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

المجلدين رقم 1 لا يمكن عمل معادلات به لانه يتم حذفه كل يوم واستباداله بمجلد جديد تكون الاوراق للاكسل به محدثه ببيانات جديده

الملجلد رقم 2 يتم جلب بياناتها كل يوم من المجلد الاصفر الاول الذي تم استحداث بياناته

هذا هو الموضوع

**ا بو سليمان** · يوليو 16, 2015

الاكواد تكون في اوراق المجلد الثاني

وترتبط مباشرة مع اوراق المجلد الاول من خلال دلاله اسم الاوراق في لمجلدين حيث يحملان نفس الاسماء

**ا بو سليمان** · يوليو 16, 2015

مثال توضيحي

فصلين واربع طلاب

كل فصل به طالبين

مثال فصل اول اعدادي الف فيه طالبين محمد و ناصر

وفصل اول اعدادي با فيه طالبين خالد و على

الطلاب في الفصل الاعدادي الف ( محمد و ناصر ) كل يوم ياتون الى الفصل الاعدادى البا ويسلموا على الطالبين الاخرين ( خالد و على )

ويعطونهم حلوى لنفس تاريخ اليوم

كل يوم الطلاب ( محمد وناصر ) يذهبون للبقاله وياتون بحلوى جديده ويدخلون الفصل الاعداى الاف الاول ويرتاحون شويه ثم يذهبون الى الفصل الاعداى الباء ويعطوا الطلاب ( خالد وعلى ) الحلوى التي تم شرائها جديدا

وهكذا .....

ملاحظة

طلاب الفصل الاول الاعداى الاف يستطيعوا الخروج من الفصل الى البقاله و الشراء والرجوع الى الفصل ( يعنى كل يوم يتم خروجهم من الفصل وينفصلون عن مبنى المدرسة انفصال نهااائي ) ثم ياتون الى المدرسة ويدخلون الفصل

اما طلاب الفصل الاعدادى الثاني فهم دائما ياااااااااااااااااااااااااااحرام محجورين ومحجوزين وممنوع الخروج من الفصل نهاااااااااااائي والحلوى تاتيهم كل يوم من اصحابهم

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

ياسر خليل أبو البراء · يوليو 16, 2015

كل سنة وإنت طيب ..

العيال شكلهم أخدوا مصروف العيد وجابوا بالمصروف كله حلاوة

كل عام وأنت بخير

**ا بو سليمان** · يوليو 16, 2015

ياسر خليل أبو البراء, on 17 Jul 2015 - 01:08 AM, said:

كل سنة وإنت طيب ..

العيال شكلهم أخدوا مصروف العيد وجابوا بالمصروف كله حلاوة

كل عام وأنت بخير

وانت وكل اعضاء اوفسنا و المسلمين بخير وصحة وعاااااااااااااااااااافيه

ايش العمل معاااااااهم طلاب متمردين على النظام في المدرسة

لكن اكيد فيه طريقة لعلاج مشكلة الطلاب مع الحلوى

ياسر خليل أبو البراء · يوليو 17, 2015

أخي الكريم أبو سليمان

كل عام وأنت بخير

إليك الكود الحلاونجي التالي عله يفي بالغرض ..

يتم الترحيل من كل الملفات الموجود في المجلد الأول إلى كل الملفات بنفس الاسم في المجلد الثاني

تم إنشاء مصنف باسم "الحلوى" بجانب المجلدين لتنفيذ مهمة الحلوى

إن شاء الله يفي بالغرض

Sub AboSoliman()
  Dim ArrFiles, Cell As Range, I As Long, E As Long, str1 As String
  Dim strFolderSource As String, strFolderTarget As String, wbSource As Workbook, wbTarget As Workbook, wsSource As Worksheet, wsTarget As Worksheet
  'اسم المجلد المصدر الي يتم ترحيل البيانات منه
  strFolderSource = "مجلد رقم 1"
  'اسم المجلد الهدف المراد ترحيل البيانات إليه
  strFolderTarget = "مجلد رقم 2"

  Application.ScreenUpdating = False
  ReDim ArrFiles(1 To 1000): I = 0
  Do
    If Len(str1) = 0 Then str1 = Dir(ThisWorkbook.Path & "\" & strFolderSource & "\*.xls*") Else str1 = Dir
    I = I + 1: ArrFiles(I) = str1
  Loop Until Len(str1) = 0
  If I = 1 Then Exit Sub Else ReDim Preserve ArrFiles(1 To I - 1)

  For I = 1 To UBound(ArrFiles)
      If Len(Dir(ThisWorkbook.Path & "\" & strFolderTarget & "\" & ArrFiles(I))) = 0 Then
         FileCopy ThisWorkbook.Path & "\" & strFolderSource & "\" & ArrFiles(I), ThisWorkbook.Path & "\" & strFolderTarget & "\" & ArrFiles(I)
      Else
         Name ThisWorkbook.Path & "\" & strFolderTarget & "\" & ArrFiles(I) As ThisWorkbook.Path & "\" & strFolderTarget & "\Temp_" & ArrFiles(I)
         Set wbSource = Workbooks.Open(ThisWorkbook.Path & "\" & strFolderSource & "\" & ArrFiles(I))
         Set wbTarget = Workbooks.Open(ThisWorkbook.Path & "\" & strFolderTarget & "\Temp_" & ArrFiles(I))
 
         For Each wsSource In wbSource.Worksheets
             On Error Resume Next
                Set wsTarget = wbTarget.Worksheets(wsSource.Name)
                E = Err.Number
             On Error GoTo 0
             If E <> 0 Then
                wbTarget.Worksheets.Add after:=wbTarget.Worksheets(wbTarget.Worksheets.Count)
                Set wsTarget = wbTarget.Worksheets(wbTarget.Worksheets.Count)
                wsTarget.Name = wsSource.Name
             End If
             With wsTarget
               Set Cell = .UsedRange.Offset(.UsedRange.Rows.Count).Resize(1, 1)
               If (Cell.Row = 2) And (Application.WorksheetFunction.CountA(.Rows(1)) = 0) Then Set Cell = Cell.Offset(-1)
             End With
             wsSource.UsedRange.Copy
             Cell.PasteSpecial xlPasteValues
         Next wsSource

         wbSource.Close SaveChanges:=False
         wbTarget.Close SaveChanges:=True
         Name ThisWorkbook.Path & "\" & strFolderTarget & "\Temp_" & ArrFiles(I) As ThisWorkbook.Path & "\" & strFolderTarget & "\" & ArrFiles(I)
      End If
  Next I
  Application.ScreenUpdating = True
End Sub

تقبل الله منا ومنكم

وكل عام وأنت بخير :fff: :fff:

أوفيسنا.rar

**ا بو سليمان** · يوليو 17, 2015

السلام عليكم اخي ياسر

الملف حقق الهدف بنسة 50% تقريبا

وهي انه ينقل بيانات الاوراق في المجلد الاول الى الاوراق في المجلد الثاني بشكل تمام

المشكلة

انه عندما احذف المجلد الاول واعمل مجلد ثاني بنفس الاسماء للاوراق والصقه بمكان المجلد الاول

واعمل جلب بيانات

فانه لا يلصقها مكان البيانات الاولى

بل يلصقها اسفل منها

وانا اغرب ان يلصقها في مكان الاولى

يعني = بدايه الاعمدة واحده و الترتيب واحد

ياسر خليل أبو البراء · يوليو 17, 2015

الحمد لله أن تم 50% على الأقل ميبقاش الموضوع مفيش مشاركة فيه

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

لأنك لما ضربت مثال بطلاب الصف الثاني قلت دول ياحرااااااام محجوزين .. معنى الكلام إن البيانات تفضل زي ما هي وتضاف إليها البيانات الجديدة ؟؟؟؟!!

فسؤالي : هل يتم مسح البيانات القديمة مع عملية الترحيل الجديدة؟

ياسر خليل أبو البراء · يوليو 17, 2015

أخي الكريم أبو سليمان

جرب هذا التعديل

Sub AboSoliman()
  Dim ArrFiles, Cell As Range, I As Long, E As Long, str1 As String
  Dim strFolderSource As String, strFolderTarget As String, wbSource As Workbook, wbTarget As Workbook, wsSource As Worksheet, wsTarget As Worksheet
  'اسم المجلد المصدر الي يتم ترحيل البيانات منه
  strFolderSource = "مجلد رقم 1"
  'اسم المجلد الهدف المراد ترحيل البيانات إليه
  strFolderTarget = "مجلد رقم 2"

  Application.ScreenUpdating = False
  ReDim ArrFiles(1 To 1000): I = 0
  Do
    If Len(str1) = 0 Then str1 = Dir(ThisWorkbook.Path & "\" & strFolderSource & "\*.xls*") Else str1 = Dir
    I = I + 1: ArrFiles(I) = str1
  Loop Until Len(str1) = 0
  If I = 1 Then Exit Sub Else ReDim Preserve ArrFiles(1 To I - 1)

  For I = 1 To UBound(ArrFiles)
      If Len(Dir(ThisWorkbook.Path & "\" & strFolderTarget & "\" & ArrFiles(I))) = 0 Then
         FileCopy ThisWorkbook.Path & "\" & strFolderSource & "\" & ArrFiles(I), ThisWorkbook.Path & "\" & strFolderTarget & "\" & ArrFiles(I)
      Else
         Name ThisWorkbook.Path & "\" & strFolderTarget & "\" & ArrFiles(I) As ThisWorkbook.Path & "\" & strFolderTarget & "\Temp_" & ArrFiles(I)
         Set wbSource = Workbooks.Open(ThisWorkbook.Path & "\" & strFolderSource & "\" & ArrFiles(I))
         Set wbTarget = Workbooks.Open(ThisWorkbook.Path & "\" & strFolderTarget & "\Temp_" & ArrFiles(I))
 
         For Each wsSource In wbSource.Worksheets
             On Error Resume Next
                Set wsTarget = wbTarget.Worksheets(wsSource.Name)
                E = Err.Number
             On Error GoTo 0
             If E <> 0 Then
                wbTarget.Worksheets.Add after:=wbTarget.Worksheets(wbTarget.Worksheets.Count)
                Set wsTarget = wbTarget.Worksheets(wbTarget.Worksheets.Count)
                wsTarget.Name = wsSource.Name
             End If
             With wsTarget
                .Range("A1:L1000").ClearContents
               Set Cell = .Range("A1")
               If (Cell.Row = 2) And (Application.WorksheetFunction.CountA(.Rows(1)) = 0) Then Set Cell = Cell.Offset(-1)
             End With
             wsSource.UsedRange.Copy
             Cell.PasteSpecial xlPasteValues
         Next wsSource

         wbSource.Close SaveChanges:=False
         wbTarget.Close SaveChanges:=True
         Name ThisWorkbook.Path & "\" & strFolderTarget & "\Temp_" & ArrFiles(I) As ThisWorkbook.Path & "\" & strFolderTarget & "\" & ArrFiles(I)
      End If
  Next I
  Application.ScreenUpdating = True
End Sub

**ا بو سليمان** · يوليو 17, 2015

ياسر خليل أبو البراء, on 17 Jul 2015 - 7:59 PM, said:

الحمد لله أن تم 50% على الأقل ميبقاش الموضوع مفيش مشاركة فيه

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

لأنك لما ضربت مثال بطلاب الصف الثاني قلت دول ياحرااااااام محجوزين .. معنى الكلام إن البيانات تفضل زي ما هي وتضاف إليها البيانات الجديدة ؟؟؟؟!!

فسؤالي : هل يتم مسح البيانات القديمة مع عملية الترحيل الجديدة؟

يا سلام عليك

نعم ارغب نقل ما في المجلد الاول الى المجلد الثاني

مع حذف البيانات التي تم نقلها في السابق في المجلد الثاني ويبقى في تلك المجلدات المعادلات التي تم وضعها

فيكون

كل يوم بيانات جديده تبداء من اول الصفوف ( يعني حذف القديم و ابداله يما تم نقله حديثا )

**ا بو سليمان** · يوليو 17, 2015

أخي الكريم أبو سليمان

جرب هذا التعديل

Sub AboSoliman()
  Dim ArrFiles, Cell As Range, I As Long, E As Long, str1 As String
  Dim strFolderSource As String, strFolderTarget As String, wbSource As Workbook, wbTarget As Workbook, wsSource As Worksheet, wsTarget As Worksheet
  'اسم المجلد المصدر الي يتم ترحيل البيانات منه
  strFolderSource = "مجلد رقم 1"
  'اسم المجلد الهدف المراد ترحيل البيانات إليه
  strFolderTarget = "مجلد رقم 2"

  Application.ScreenUpdating = False
  ReDim ArrFiles(1 To 1000): I = 0
  Do
    If Len(str1) = 0 Then str1 = Dir(ThisWorkbook.Path & "\" & strFolderSource & "\*.xls*") Else str1 = Dir
    I = I + 1: ArrFiles(I) = str1
  Loop Until Len(str1) = 0
  If I = 1 Then Exit Sub Else ReDim Preserve ArrFiles(1 To I - 1)

  For I = 1 To UBound(ArrFiles)
      If Len(Dir(ThisWorkbook.Path & "\" & strFolderTarget & "\" & ArrFiles(I))) = 0 Then
         FileCopy ThisWorkbook.Path & "\" & strFolderSource & "\" & ArrFiles(I), ThisWorkbook.Path & "\" & strFolderTarget & "\" & ArrFiles(I)
      Else
         Name ThisWorkbook.Path & "\" & strFolderTarget & "\" & ArrFiles(I) As ThisWorkbook.Path & "\" & strFolderTarget & "\Temp_" & ArrFiles(I)
         Set wbSource = Workbooks.Open(ThisWorkbook.Path & "\" & strFolderSource & "\" & ArrFiles(I))
         Set wbTarget = Workbooks.Open(ThisWorkbook.Path & "\" & strFolderTarget & "\Temp_" & ArrFiles(I))
 
         For Each wsSource In wbSource.Worksheets
             On Error Resume Next
                Set wsTarget = wbTarget.Worksheets(wsSource.Name)
                E = Err.Number
             On Error GoTo 0
             If E <> 0 Then
                wbTarget.Worksheets.Add after:=wbTarget.Worksheets(wbTarget.Worksheets.Count)
                Set wsTarget = wbTarget.Worksheets(wbTarget.Worksheets.Count)
                wsTarget.Name = wsSource.Name
             End If
             With wsTarget
                .Range("A1:L1000").ClearContents
               Set Cell = .Range("A1")
               If (Cell.Row = 2) And (Application.WorksheetFunction.CountA(.Rows(1)) = 0) Then Set Cell = Cell.Offset(-1)
             End With
             wsSource.UsedRange.Copy
             Cell.PasteSpecial xlPasteValues
         Next wsSource

         wbSource.Close SaveChanges:=False
         wbTarget.Close SaveChanges:=True
         Name ThisWorkbook.Path & "\" & strFolderTarget & "\Temp_" & ArrFiles(I) As ThisWorkbook.Path & "\" & strFolderTarget & "\" & ArrFiles(I)
      End If
  Next I
  Application.ScreenUpdating = True
End Sub

اين اجربه

اين اضعة

ياسر خليل أبو البراء · يوليو 17, 2015

أعتقد أخي الحبيب أبو سليمان أنه في حالة التعامل مع مثل تلك الموضوعات لابد من إرفاق ملفات تعبر عن الملفات الأصلية .. لم تذكر أي شيء عن المعادلات إلا الآن

أين تلك المعادلات .. ؟؟ وهل الترحيل يؤثر فيها أما لا ؟؟؟؟

بالله عليك حاول تساعدنا عشان نقدر نساعدك

كل معلومة ولو بسيطة مهمة جداً في التعامل مع الأكواد ولذا لابد من الدقة التامة في التوضيح وإرفاق الملفات المناسبة

لم أرى أية معادلات في الملفات المرفقة .. فقط بيانات تريد نقلها من مجلد إلى مجلد آخر

وهل المعادلات في المجلد المصدر أم المجلد الهدف؟

**ا بو سليمان** · يوليو 17, 2015

تم وضع الكود في المكان المناسب اخي ياسر

الان تم انجاز 70% من المطلوب

باقي 30% وهي

الاصل ان بيانات الاوراق للاكسل في المجلد رقم 2 يتم استبدال الاعمدة التي بها بيانات تم نقلها من الاعمدة التي في الاوراق في الملف المجلد رقم 1

لكن يحدث مشكله وهي

لو عملت عمليه جميع للاعمدة التي في اوراق الاكسل الموجودة في المجلد رقم 2 ثم قمت بعمليه ترحيل بيانات اوراق الاكسل في المجلد رقم 1 فان عملية الجميع التي كانت في اوراق الاكسل في المجلد رقم 2 تختفي

ارغب بارك الله فيك

ان لا يتم حذف العمليات الحسابية التي اضعها بجانب بيانات الاعمدة التي يتم استبدالها عندما يتم جلب بيانات جديده

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

**ا بو سليمان** · يوليو 17, 2015

ان شاء الله اقترب الفرج .....

ياسر خليل أبو البراء · يوليو 17, 2015

راجع المشاركة رقم 17

لابد من إرفاق ملف يعبر عن الحالة التي تطلبها حتى نختبر الكود عليه ..

أنت ترهقنا بشكل كبير بإصرارك على عدم الاستجابة ..

الكلام النظري لن يفيد كثيراً ويدخل في احتمالات كثيرة جداُ مما يضيع الوقت ويتسبب في عدم الدقة في المخرجات

ارفق ملفك الأصلي الذي به المعادلات

**ا بو سليمان** · يوليو 17, 2015

راجع المشاركة رقم 17

لابد من إرفاق ملف يعبر عن الحالة التي تطلبها حتى نختبر الكود عليه ..

أنت ترهقنا بشكل كبير بإصرارك على عدم الاستجابة ..

الكلام النظري لن يفيد كثيراً ويدخل في احتمالات كثيرة جداُ مما يضيع الوقت ويتسبب في عدم الدقة في المخرجات

ارفق ملفك الأصلي الذي به المعادلات

السلام عليكم

ما لون بالاصفر في اوراق الاكسل في المجلد رقم 2

هو المطلوب ان يبقى ولا ينحذف

عندما يتم جلب بيانات من المجلد رقم 1

أوفيسنا ياسر عمليات حسابية.rar

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

ياسر خليل أبو البراء · يوليو 17, 2015

جرب الملف التالي ..

يتم مسح البيانات القديمة أولاً قبل ترحيل البيانات الجديدة ثم يتم ترحيل البيانات الجديدة من ملفات المجلد الأول إلى ملفات المجلد الثاني

Officena.rar

**ا بو سليمان** · يوليو 17, 2015

ياسر خليل أبو البراء, on 18 Jul 2015 - 12:00 AM, said:

جرب الملف التالي ..

يتم مسح البيانات القديمة أولاً قبل ترحيل البيانات الجديدة ثم يتم ترحيل البيانات الجديدة من ملفات المجلد الأول إلى ملفات المجلد الثاني

كم انت رائع اخي ياسر

اللهم يسر لاخي ياسر اموره كامله في دنياه واخرته

واحفظة دائما وابدا

الطلب السابق تم انجاح 100%

----

باقي الشغل الثقيل سوف احاول اجمع ما هو المطلوب لكي لا ارفع ضغطك اكثر من رفعي له في الموضوع

ياسر خليل أبو البراء · يوليو 17, 2015

الحمد لله الذي بنعمته تتم الصالحات

الحمد لله أن تم المطلوب على خير

وربنا يستر من اللي جاي .. إذا كان دا الخفيف يبقا التقيل شكله ايه

عموماً أياً كان المطلوب

أنصحك مستقبلاً أن توضح المطلوب بشكل تاااااااام وترفق النتائج المتوقعة أيضاً هذا يسهل الكثير من الوقت والجهد

تقبل تحياتي

تسجيل الدخول

جلب بيانات من ملف اخر بنفس التنسيق على اساس ان الملف الاول متجدد

الردود الموصى بها

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

Join the conversation

تصفح هذا الموضوع مؤخراً 0 اعضاء متواجدين الان

Important Information