Sub openFile()Sub openFile()
("MyArray = Array("xlsm", "xlsx", "xls"On Error Resume Next
For r = 0 To 2
(MyPath = "D:\" & [b3] & "\" & [C3] & "." & MyArray(r)
If Dir(MyPath) <> "" Then
Workbooks.Open Filename:=MyPath
Exit Sub
End If
Next r
MsgBox ("الملف غير موجود")
End Sub
كيف يمكن لهذا الكود من فتح صور بأمتداد jpg وشكراً