أب مارية قام بنشر فبراير 28, 2015 مشاركة قام بنشر فبراير 28, 2015 السلام عليكم لدي ملف اكسل أريد عند كل عملية حفظ أن يحتفظ بنسخة الملف القديمة ويضعها في ملف خاص بالارشيف هل هذا ممكن أم لا. مشكورين مسبقا رابط هذا التعليق شارك More sharing options...
خزاني قام بنشر فبراير 28, 2015 مشاركة قام بنشر فبراير 28, 2015 Sub Archiver() Dim DateEtHeure, Chemin, NomArchive, rep, Fichier, n& DateEtHeure = Format(Now(), "yyyymmdd") & Format(Time, "hhmmss") DateEtHeure = DateEtHeure & " le " & Format(Now(), "ddd dd-mmm-yyyy") DateEtHeure = DateEtHeure & " à " & Format(Time, "hh-mm-ss") rep = MsgBox("هل تريد نسخة من الملف", _ vbQuestion + vbDefaultButton1 + vbYesNo) If rep = vbYes Then Chemin = ThisWorkbook.Path If Right(Chemin, 1) <> "\" Then Chemin = Chemin & "\" NomArchive = "Archive " & DateEtHeure & ".xlsm" ThisWorkbook.SaveCopyAs Chemin & NomArchive ChDir Chemin Fichier = Dir("ارشيف " & Format(Now(), "yyyymmdd") & "*.xlsm") Do Until Len(Fichier) = 0 Or n = 10 If LCase(Fichier) <> LCase(NomArchive) Then Kill Chemin & Fichier Fichier = Dir("Archive " & Format(Now(), "yyyymmdd") & "*.xlsm") n = n + 1 Loop End If End Sub 1 رابط هذا التعليق شارك More sharing options...
أب مارية قام بنشر فبراير 28, 2015 الكاتب مشاركة قام بنشر فبراير 28, 2015 السلام عليكم بارك الله يك أخي خزاني على الكود من فضلك أين يتم وضع هذا الكود رابط هذا التعليق شارك More sharing options...
أب مارية قام بنشر مارس 1, 2015 الكاتب مشاركة قام بنشر مارس 1, 2015 للرفع رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر مارس 1, 2015 مشاركة قام بنشر مارس 1, 2015 أخي الفاضل رأيت لك موضوعات كثيرة بالمنتدى ..وإلى الآن لا تعرف كيفية وضع الأكواد (لازم أعاتبك ..!! لأن دا سنة أولى برمجة .. فيه حلقات افتح الباب أنصحك بها) بالنسبة لطلبك أين يوضع الكود اضغط Alt + F11 سيفتح لك محرر الأكواد .. من القائمة Insert أي إدراج قم بإدراج موديول جديد وانسخ الكود والصقه في الموديول وقم بحفظ المصنف بامتداد Xlsm وإليك مرفق موضوع به الكود .. والشكر موصول للأخ خزاني على الكود الرائع ..بارك الله فيك تقبلوا تحياتي Archiver.rar رابط هذا التعليق شارك More sharing options...
أب مارية قام بنشر مارس 1, 2015 الكاتب مشاركة قام بنشر مارس 1, 2015 (معدل) السلام عليكم شكر جزيل للاخوة الأفاضل الأخ YasserKhalil معك حق ومشكور على النصيحة سأعمل بها ان شاء الله لكن هل من الممكن جعل الكود يعمل عند الضغط على زر حفظ في شريط الأدوات بدل اضافة زر في الورقة تم تعديل مارس 1, 2015 بواسطه أب مارية رابط هذا التعليق شارك More sharing options...
ا بو سليمان قام بنشر مارس 1, 2015 مشاركة قام بنشر مارس 1, 2015 كيف يتم الحفظ مع الترحيل لكي يصبج الملف يحوي بيانات داتا شهرين او ثلاثه اشهر رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.