بسم الله الرحمن الرحيم
اذا اردت ان تختار الملف بنفسك
استخدم الكود التالى
Sub FichierOuvrir()
FichierAOuvrir = Application.Dialogs(xlDialogOpen).Show
End Sub
و اذا اردت ان تفتح ملف محدد
استخدم الكود التالى
Sub sOpen_File()
Workbooks.Open "C:\Hady.xls"
End Sub
مع تغيير Hady بأسم الملف و المسار اذا اردت
مرفق ملف
السلام عليكم