Bonjour,
Voilà le code écrit avec les modifs apportées sur vos bons conseils :
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33
| Sub ClearPreviousData()
'Permet de réinitialiser l'onglet contenant les données de départ et d'aller coller les nouvelles données à traiter
Dim ClasCible As Workbook, ClasSource As Workbook, LR1 As Long
Application.ScreenUpdating = False
Set ClasCible = ThisWorkbook
With Sheets("ORIGINAL DATA")
.Range("A1:M1").EntireColumn.Delete
End With
Set ClasSource = Workbooks.Open Filename:="\\lithine2000\users$\071858\Bureau\Auveille\present.xls"
With ClasSource.Sheets("Feuil1")
LR1 = .Range("A" & .Rows.Count).End(xlUp).Row
.Range("A1:M" & LR1).Copy ClasCible.Sheets("ORIGINAL DATA").Range("A1")
End With
End With
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub |
Malheureusement, j'ai une erreur de syntaxe sur :
Set ClasSource = Workbooks.Open Filename:="\\lithine2000\users$\071858\Bureau\Auveille\present.xls"
Savez-vous pourquoi et comment corriger cette erreur SVP ?
Partager