طارق 007

مرفق الكود أيضا لاحظت أن شكله السابق غير مضبوط </B>Sub F_Rename() For i = 1 To 4 OldName = "C:\Temp\www0" & i & ".txt" NewName = "C:\Temp\www" & i & ".txt" Name OldName As NewName 'FileSearchFileSearch Next i End Sub <B> Sub F_Rename() For i = 1 To 4 OldName =…

السلام عليكــم ورحمـة الله وبركاتــه أولا : أرجو المعذرة للتأخير ثانيا : هذا هو الماكرو تستطيع نسخه كوبي بيست Sub F_Rename() For i = 1 To 4 OldName = "C:\Temp\www0" & i & ".txt" NewName = "C:\Temp\www" & i & ".txt" Name OldName As NewName 'FileSearchFileSearch…

السلام عليكــم ورحمـة الله وبركاتــه بســم الله الـرحمــن الرحيــم يشرفني أنني اليوم فقط سجلت معكم في هذا المنتدي الرائع ومستواي في الفيجيوال بيسيك قلييل قلييل واتمني أن يكون هذا هو ما طلبه الأخ aos1982 عفوا لم أذكر أن هذا الكود يعمل من خلال الإكسل وإن كنت أعر…