Sub clients() Windows("LISTING ACCIDENTS 2013.xls").Activate Columns("A:A").Select Selection.Copy Windows("Classeur2").Activate ActiveSheet.Paste Windows("LISTING ACCIDENTS 2013.xls").Activate Columns("B:B").Select Application.CutCopyMode = False Selection.Copy Windows("Classeur2").Activate Columns("B:B").Select ActiveSheet.Paste Windows("LISTING ACCIDENTS 2013.xls").Activate Columns("C:C").Select Application.CutCopyMode = False Selection.Copy Windows("Classeur2").Activate Columns("C:C").Select ActiveSheet.Paste Windows("LISTING ACCIDENTS 2013.xls").Activate Columns("F:F").Select Application.CutCopyMode = False Selection.Copy Windows("Classeur2").Activate Columns("D:D").Select ActiveSheet.Paste ActiveWindow.ScrollColumn = 2 End Sub
je veux lier la macro à la feuilleCe code ne fait que des copier/coller de colonne d'un classeur vers un autre.
Range("A:C,F:F").Select Selection.Copy Windows("Classeur2").Activate ActiveSheet.Paste