L
Loulou
Guest
Bonjour le Forum
Est-il possible de dégraisser " le mammouth " code ci-dessous pour faciliter son déroulement ?
Sub LuMA()
Application.ScreenUpdating = False
chemin = "http://source.xls"
Workbooks.Open Filename:=chemin
Sheets("Lu").Select
Range("B2").Select
Selection.Copy
Windows("Menu.xls").Activate
Sheets("L M").Select
Range("W26").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Workbooks.Open Filename:=chemin
Sheets("Lu").Select
Range("A13:O15").Select
Selection.Copy
Windows("Menu.xls").Activate
Sheets("L M").Select
Range("W8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
Application.CutCopyMode = False
Application.DisplayAlerts = False
Workbooks("source.xls").Close
LuMB
LuMC
End Sub
Sub LuMB()
Application.ScreenUpdating = False
chemin = http://source.xls
Workbooks.Open Filename:=chemin
Sheets("Lu").Select
Range("A4").Select
Range("A13:O15").Select
Selection.Copy
Windows("Menu.xls").Activate
Sheets("L M").Select
Range("W11").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
Application.CutCopyMode = False
Application.DisplayAlerts = False
Workbooks("source.xls").Close
End Sub
Sub LuMC()
Application.ScreenUpdating = False
chemin = http://source.xls
Workbooks.Open Filename:=chemin
Sheets("Lu").Select
Range("A13:O15").Select
Selection.Copy
Windows("Menu.xls").Activate
Sheets("L M").Select
Range("W14").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
Application.DisplayAlerts = False
Workbooks("source.xls").Close
End Sub
Sub LuAA()
Application.ScreenUpdating = False
chemin = http://source.xls
Workbooks.Open Filename:=chemin
Sheets("Lu").Select
Range("A13:O15").Select
Selection.Copy
Windows("Menu.xls").Activate
Sheets("L A").Select
Range("W8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
Application.CutCopyMode = False
Application.DisplayAlerts = False
Workbooks("source.xls").Close
LuAB
LuAC
End Sub
Sub LuAB()
Application.ScreenUpdating = False
chemin = http://source.xls
Workbooks.Open Filename:=chemin
Sheets("Lu").Select
Range("A13:O15").Select
Selection.Copy
Windows("Menu.xls").Activate
Sheets("L A").Select
Range("W11").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
Application.CutCopyMode = False
Application.DisplayAlerts = False
Workbooks("source.xls").Close
End Sub
Sub LuAC()
Application.ScreenUpdating = False
chemin = http://source.xls
Workbooks.Open Filename:=chemin
Sheets("Lu").Select
Range("A13:O15").Select
Selection.Copy
Windows("Menu.xls").Activate
Sheets("L A").Select
Range("W14").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
Application.DisplayAlerts = False
Workbooks("source.xls").Close
End Sub
Sub LuNA()
Application.ScreenUpdating = False
chemin = http://source.xls
Workbooks.Open Filename:=chemin
Sheets("Lu").Select
Range("A13:O15").Select
Selection.Copy
Windows("Menu.xls").Activate
Sheets("L N").Select
Range("W8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
Application.CutCopyMode = False
Application.DisplayAlerts = False
Workbooks("source.xls").Close
LuNB
LuNC
End Sub
Sub LuNB()
Application.ScreenUpdating = False
chemin = http://source.xls
Workbooks.Open Filename:=chemin
Sheets("Lu").Select
Range("A13:O15").Select
Selection.Copy
Windows("Menu.xls").Activate
Sheets("L N").Select
Range("W11").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
Application.CutCopyMode = False
Application.DisplayAlerts = False
Workbooks("source.xls").Close
End Sub
Sub LuNC()
Application.ScreenUpdating = False
chemin = http://source.xls
Workbooks.Open Filename:=chemin
Sheets("Lu").Select
Range("A13:O15").Select
Selection.Copy
Windows("Menu.xls").Activate
Sheets("L N").Select
Range("W14").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
Application.DisplayAlerts = False
Workbooks("source.xls").Close
End Sub
Merci pour votre aide
Loulou
Est-il possible de dégraisser " le mammouth " code ci-dessous pour faciliter son déroulement ?
Sub LuMA()
Application.ScreenUpdating = False
chemin = "http://source.xls"
Workbooks.Open Filename:=chemin
Sheets("Lu").Select
Range("B2").Select
Selection.Copy
Windows("Menu.xls").Activate
Sheets("L M").Select
Range("W26").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Workbooks.Open Filename:=chemin
Sheets("Lu").Select
Range("A13:O15").Select
Selection.Copy
Windows("Menu.xls").Activate
Sheets("L M").Select
Range("W8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
Application.CutCopyMode = False
Application.DisplayAlerts = False
Workbooks("source.xls").Close
LuMB
LuMC
End Sub
Sub LuMB()
Application.ScreenUpdating = False
chemin = http://source.xls
Workbooks.Open Filename:=chemin
Sheets("Lu").Select
Range("A4").Select
Range("A13:O15").Select
Selection.Copy
Windows("Menu.xls").Activate
Sheets("L M").Select
Range("W11").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
Application.CutCopyMode = False
Application.DisplayAlerts = False
Workbooks("source.xls").Close
End Sub
Sub LuMC()
Application.ScreenUpdating = False
chemin = http://source.xls
Workbooks.Open Filename:=chemin
Sheets("Lu").Select
Range("A13:O15").Select
Selection.Copy
Windows("Menu.xls").Activate
Sheets("L M").Select
Range("W14").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
Application.DisplayAlerts = False
Workbooks("source.xls").Close
End Sub
Sub LuAA()
Application.ScreenUpdating = False
chemin = http://source.xls
Workbooks.Open Filename:=chemin
Sheets("Lu").Select
Range("A13:O15").Select
Selection.Copy
Windows("Menu.xls").Activate
Sheets("L A").Select
Range("W8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
Application.CutCopyMode = False
Application.DisplayAlerts = False
Workbooks("source.xls").Close
LuAB
LuAC
End Sub
Sub LuAB()
Application.ScreenUpdating = False
chemin = http://source.xls
Workbooks.Open Filename:=chemin
Sheets("Lu").Select
Range("A13:O15").Select
Selection.Copy
Windows("Menu.xls").Activate
Sheets("L A").Select
Range("W11").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
Application.CutCopyMode = False
Application.DisplayAlerts = False
Workbooks("source.xls").Close
End Sub
Sub LuAC()
Application.ScreenUpdating = False
chemin = http://source.xls
Workbooks.Open Filename:=chemin
Sheets("Lu").Select
Range("A13:O15").Select
Selection.Copy
Windows("Menu.xls").Activate
Sheets("L A").Select
Range("W14").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
Application.DisplayAlerts = False
Workbooks("source.xls").Close
End Sub
Sub LuNA()
Application.ScreenUpdating = False
chemin = http://source.xls
Workbooks.Open Filename:=chemin
Sheets("Lu").Select
Range("A13:O15").Select
Selection.Copy
Windows("Menu.xls").Activate
Sheets("L N").Select
Range("W8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
Application.CutCopyMode = False
Application.DisplayAlerts = False
Workbooks("source.xls").Close
LuNB
LuNC
End Sub
Sub LuNB()
Application.ScreenUpdating = False
chemin = http://source.xls
Workbooks.Open Filename:=chemin
Sheets("Lu").Select
Range("A13:O15").Select
Selection.Copy
Windows("Menu.xls").Activate
Sheets("L N").Select
Range("W11").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
Application.CutCopyMode = False
Application.DisplayAlerts = False
Workbooks("source.xls").Close
End Sub
Sub LuNC()
Application.ScreenUpdating = False
chemin = http://source.xls
Workbooks.Open Filename:=chemin
Sheets("Lu").Select
Range("A13:O15").Select
Selection.Copy
Windows("Menu.xls").Activate
Sheets("L N").Select
Range("W14").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
Application.DisplayAlerts = False
Workbooks("source.xls").Close
End Sub
Merci pour votre aide
Loulou