hypo78
XLDnaute Impliqué
Bonjour,
j'ai fait ce bout de code pour copier des données entre classeurs
Dans l'exemple je fais varier i de 2 à 5 alors qu'en réalité ce sera de 2 à 250
et le copier/coller se fait sur une trentaine de cellules non contigues (2 dans l'exemple).
Mon code fonctionne, mais j'aimerai simplifier l'écriture pour le passage d'un classeur à l'autre car çà me parait un peu lourd non?
Merci.
j'ai fait ce bout de code pour copier des données entre classeurs
Code:
Sub MAJpiquets()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim rotation As Workbook
For i = 2 To 5
jourgarde = Cells(i, 1)
jourgarde = Format(jourgarde, "dd/mm/yyyy")
gardedujour = ThisWorkbook.Path & "\" & Format(jourgarde, "yyyy") & "\" & Format(jourgarde, "mmmmyyyy") & "\" & Format(jourgarde, "ddmmmmyyyy"".xls")
'MsgBox gardedujour
Workbooks.Open (gardedujour)
Sheets("01").Select
Range("AC4").Select
Selection.Copy
Windows("rotation.xlsm").Activate
Cells(i, 2).Select
Selection.PasteSpecial Paste:=xlPasteValues
Workbooks.Open (gardedujour)
Range("AC7").Select
Selection.Copy
ActiveWorkbook.Close False
Workbooks("rotation.xlsm").Activate
Cells(i, 3).Select
ActiveSheet.Paste
Next i
End Sub
Dans l'exemple je fais varier i de 2 à 5 alors qu'en réalité ce sera de 2 à 250
et le copier/coller se fait sur une trentaine de cellules non contigues (2 dans l'exemple).
Mon code fonctionne, mais j'aimerai simplifier l'écriture pour le passage d'un classeur à l'autre car çà me parait un peu lourd non?
Merci.