طلب مساعدة erreur 9 a l’exécution de macro

[izeam]

السلا عليكم 

مشكلتي اني اريد تعبئة مجموعة من اوراق مختلفة في الاسماء

لكن المشكل هو اني في كل مرة يجب تغيير اسم الورقة الى Export كي يشتغل مكرو 

لدا اريد مساعدة كي يشتغل على جميع الاوراق 

                                                                                                                                        هدا هو كود

 

Sub Macro1()
'
' Macro1 Macro
'

'
    Windows("Export.xlsx").Activate
    Range("G18:G80").Select
    Selection.Copy
    Windows("Observations.xlsm").Activate
    Sheets("Feuil2").Select
    ActiveWindow.SmallScroll Down:=-51
    Range("A5").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("B5:B80").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("Export.xlsx").Activate
    Range("I18").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWindow.SmallScroll Down:=33
    Range("I51").Select
    Application.CutCopyMode = False
    ActiveWorkbook.Save
    Windows("Observations.xlsm").Activate
    Sheets("Feuil1").Select
    Windows("Export.xlsx").Activate
    MsgBox ("ÊãÊ ÇáÚãáíÉ ÈäÌÇÍ")
End Sub

 

تم تعديل فبراير 19, 2017 بواسطه izeam

[izeam]

 اريد مساعدة 

[izeam]

officena   ولا مساعدة