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

[oyousef]

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

اساتذة المنتدى الكرام تحيه طيبه لكم جميعا

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

ولكن الكود به شىء خاطىء ولا ادرى ماهو

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

ولكم وافر التحية والاحترام

moving.rar

[الـعيدروس]

السلام عليكم

ملفك الاخر معطوب او activewinedow مغلق عنه

هذا الكود حطه في حدث ThisWorkbook

Private Sub Workbook_Open()

Call ali_PATH

End Sub

وهذا الكود في مدويل

Public Sub ali_PATH()

On Error Resume Next

    Dim sPfad As String, retVal As Byte, se_FEL As String, wb As Workbook

    sPfad = ThisWorkbook.Path & "\" & "Vehicles data.xls"

    retVal = DateNichtDa(sPfad)

    If retVal Then

    MsgBox " غير موجود الملف"

    Exit Sub

    Else

    MsgBox IIf(retVal = 1, "تم الفتح")

    se_FEL = ThisWorkbook.Path & "\" & "Vehicles data.xls"

    Set wb = Workbooks.Open(se_FEL, True, True)

    End If

End Sub

وهذا كود Function للتحقق من وجود الملف في الفولدر

Private Function DateNichtDa(DerPfad As String) As Byte

    On Error GoTo PfadError

    DateNichtDa = IIf(Len(Dir(DerPfad)) > 1, 0, 1)

    Exit Function

PfadError:

    DateNichtDa = 2

End Function

وهذا الملف وفيه الاكواد

moving1.rar

[basem said]

استاذ / على

حدث خطاء عند الفتح عند قيمه

MsgBox IIf(retVal = 1, "تم الفتح")

فقمت بالحذف القيمة فكتمل الكود

رائع استاذ على

[الـعيدروس]

الرسالة تنبيه فقط

الحمد لله انه زبط معك

تحياتي