فتح فورم من ملف اكسل مختلف

[ابو تميم]

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

المطلوب هو عندما اكون أعمل على ملف رقم 1 وأفتح الفورم الخاص به وأضغط من الفورم ( فتح الملف الثاني ) يتم الانتقال إلى الملف الثاني وفتح الفورم الخاص به بدون إغلاق الفورم الاول

أي أن الفورم الأول يبقى قيد العمل ويأتي فوقه الفورم الثاني ( أي يكون الفورم الثاني إلى الأمام والفورم الأول إلى الخلف ) وبحيث يكون الملف الفعال هو الملف الثاني ( ويمكن أن يتم تصغير الفورم الأول والإبقاء على الفورم الثاني بشرط ان يتم إعادة فتح الفورم الأول عندما يتم الضغط على إغلاق الفورم الثاني .... وبحيث لا يتم إغلاق الفورم الاول نهائيا أثناء عمل الفورم الثاني )

والعكس ... عندما اكون في الملف الثاني وأضغط من الفورم الثاني على زر ( فتح الملف الأول ) يتم الانتقال إلى الملف الأول ويكون الملف الأول هو الفعال والفورم الأول هو الفعال ( وهنا لا يشترط تصغير الفورم الثاني عندما يتم الانتقال إلى الفورم الاول والملف الاول وهنا يجب إغلاق الملف الثاني والفورم الثاني عندما يتم الضغط على close في الفورم الثاني )

أرجو أن يكون السؤال واضحا

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

Forms2File.rar

[الـعيدروس]

السلام عليكم

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

جرب هكذا

'************************************

' في ملف  1

Private Sub CommandButton2_Click()

Dim Form_A As Workbook

Path_A = ThisWorkbook.Path & "/" & "2.xlsb"

Set Form_A = Workbooks.Open(Path_A)

With Form_A

.Activate

Unload Me

Application.Wait (Now + TimeValue("0:00:02"))

Run "2.xlsb!Form2"

End With

End Sub

'************************************

' في ملف  2

Private Sub CommandButton2_Click()

Dim Form_A As Workbook

Path_A = ThisWorkbook.Path & "/" & "1.xlsb"

Set Form_A = Workbooks.Open(Path_A)

With Form_A

.Activate

Unload Me

Application.Wait (Now + TimeValue("0:00:02"))

Run "2.xlsb!form1"

End With

End Sub

[ابو تميم]

أستاذنا القدير ابو نصار

جزاك الله خيرا تمت العملية بنجاح