Dégraissage

[Loulou]

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

 

[galopin01]

Bonjour,
Voilà qui devrait répondre à ta demande ...si j'ai bien tout compris :
Bon évidemment c'est du sans filet ni vérification, mais on doit pas être loin du compte !

Bien vérifier le nom de la Fenêtre qui s'ouvre à l'ouverture de "chemin"

Sub Test()
Application.ScreenUpdating = False
chemin = "http://source.xls"
Workbooks.Open Filename:=chemin
Sheets("Lu").Range("B2").Copy
Windows("Menu.xls").Activate
Sheets("L M").Range("W26").PasteSpecial Paste:=xlPasteValues
Windows("source.xls").Activate '...à vérifier
Sheets("Lu").Range("A13:O15").Copy
Windows("Menu.xls").Activate
Sheets("L M").Range("W8").PasteSpecial Paste:=xlPasteValues
Sheets("L M").Range("W11").PasteSpecial Paste:=xlPasteValues
Sheets("L M").Range("W14").PasteSpecial Paste:=xlPasteValues
Sheets("L A").Range("W8").PasteSpecial Paste:=xlPasteValues
Sheets("L A").Range("W11").PasteSpecial Paste:=xlPasteValues
Sheets("L A").Range("W14").PasteSpecial Paste:=xlPasteValues
Sheets("L N").Range("W8").PasteSpecial Paste:=xlPasteValues
Sheets("L N").Range("W11").PasteSpecial Paste:=xlPasteValues
Sheets("L N").Range("W14").PasteSpecial Paste:=xlPasteValues
Application.DisplayAlerts = False
Workbooks("source.xls").Close
End Sub