Bonsoir,
J'essaye de copier deux fichiers dans le presse papier et de les coller en même temps dans un autre fichier. Mais cela plante lorsqu'il essaie de coller les données.
Pouvez vous m'aider merci.
Rows("4:1000").Select
Selection.Delete Shift:=xlUp
Range("A4").Select
Workbooks.Open Filename:="T:\logistique\PLANNING\PLAN.ANGERS 06.xls"
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("copie en-cours").Select
Rows("4:200").Select
Selection.Copy
ActiveWindow.Close
Workbooks.Open Filename:="T:\logistique\PLANNING\PLAN.BAGNEUX 06.xls"
Sheets("copie en-cours").Select
Rows("4:200").Select
Selection.Copy
Windows("PLANNING DES POSEURS 2006.xls").Activate
Range("A4").Select
Application.CutCopyMode = False
ActiveSheet.Paste ' ça plante ici
ActiveSheet.Paste
End Sub
J'essaye de copier deux fichiers dans le presse papier et de les coller en même temps dans un autre fichier. Mais cela plante lorsqu'il essaie de coller les données.
Pouvez vous m'aider merci.
Rows("4:1000").Select
Selection.Delete Shift:=xlUp
Range("A4").Select
Workbooks.Open Filename:="T:\logistique\PLANNING\PLAN.ANGERS 06.xls"
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("copie en-cours").Select
Rows("4:200").Select
Selection.Copy
ActiveWindow.Close
Workbooks.Open Filename:="T:\logistique\PLANNING\PLAN.BAGNEUX 06.xls"
Sheets("copie en-cours").Select
Rows("4:200").Select
Selection.Copy
Windows("PLANNING DES POSEURS 2006.xls").Activate
Range("A4").Select
Application.CutCopyMode = False
ActiveSheet.Paste ' ça plante ici
ActiveSheet.Paste
End Sub