S
Stef
Guest
Bonjour tout le monde,
j ai fait une petite macro qui va chercher quelques infos sur deux autres fichiers excel, le probleme c est que j ai fais le code un peu a taton et j aimerai fluidifier l action de la macro.
Je vous post ici mon code et si vous avez des suggestions n hesitez pas.
Sub Macro1()
ChDir 'C:\\Documents and Settings\\TRAD\\Desktop'
Workbooks.Open Filename:='C:\\Documents and Settings\\TRAD\\Desktop\\source.xls'
Range('E11:G17').Copy
Windows('~final2.xls').Activate
Range('Z5').PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range('Z5:ab11').Copy
Range('P6').PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Range('Z5:ab11').ClearContents
ChDir 'C:\\Documents and Settings\\TRAD\\Desktop'
Workbooks.Open Filename:='C:\\Documents and Settings\\TRAD\\Desktop\\source2.xls'
Range('h23,h49').Copy
Windows('~final2.xls').Activate
Range('Z12').PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range('Z12:Z13').Copy
Range('X6').PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range('Z12,z13').ClearContents
Windows('source.xls').Close
Windows('source2.xls').Close
End Sub
Merci.
j ai fait une petite macro qui va chercher quelques infos sur deux autres fichiers excel, le probleme c est que j ai fais le code un peu a taton et j aimerai fluidifier l action de la macro.
Je vous post ici mon code et si vous avez des suggestions n hesitez pas.
Sub Macro1()
ChDir 'C:\\Documents and Settings\\TRAD\\Desktop'
Workbooks.Open Filename:='C:\\Documents and Settings\\TRAD\\Desktop\\source.xls'
Range('E11:G17').Copy
Windows('~final2.xls').Activate
Range('Z5').PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range('Z5:ab11').Copy
Range('P6').PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Range('Z5:ab11').ClearContents
ChDir 'C:\\Documents and Settings\\TRAD\\Desktop'
Workbooks.Open Filename:='C:\\Documents and Settings\\TRAD\\Desktop\\source2.xls'
Range('h23,h49').Copy
Windows('~final2.xls').Activate
Range('Z12').PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range('Z12:Z13').Copy
Range('X6').PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range('Z12,z13').ClearContents
Windows('source.xls').Close
Windows('source2.xls').Close
End Sub
Merci.