كود لعرض مسار الملف الذى تعمل عليه

[قنديل الصياد]

الكود الاول

Sub NameTest()
MsgBox ActiveWorkbook.Path
MsgBox "مع تحيات منتديات أوفيسنا"
End Sub

الكود الثاني

Sub NameTest()

Dim MyPath As String, MyCompletePath As String
MyPath = ActiveWorkbook.Path

MyCompletePath = ActiveWorkbook.FullName

MsgBox MyPath & vbLf & MyCompletePath
MsgBox "مع تحياتى ..  قنديل الصياد"
End Sub

مرفق ملف به التطبيقين

 

 

Desktop.rar