Vous aurez d'ailleurs la même erreur plus bas, avec Close SaveChanges = False au lieu de Close SaveChanges:=False
Je l'écrirais peut être comme ça :
VB:
Sub Recopie()
Dim RngCible As Range, NomFeuiSouce As String
NomFeuiSouce = ActiveSheet.Range("E8").Value
Set RngCible = ActiveWorkbook.Sheets("G18").Range("A15")
Application.ScreenUpdating = False
Workbooks.Open Filename:=ThisWorkbook.Path & "\TOTO\toto1.xls"
ActiveWorkbook.Worksheets(NomFeuiSouce).Range("C6:M17").Copy Destination:=RngCible
ActiveWorkbook.Close SaveChanges:=False
End Sub
Vous aurez d'ailleurs la même erreur plus bas, avec Close SaveChanges = False au lieu de Close SaveChanges:=False
Je l'écrirais peut être comme ça :
VB:
Sub Recopie()
Dim RngCible As Range, NomFeuiSouce As String
NomFeuiSouce = ActiveSheet.Range("E8").Value
Set RngCible = ActiveWorkbook.Sheets("G18").Range("A15")
Application.ScreenUpdating = False
Workbooks.Open Filename:=ThisWorkbook.Path & "\TOTO\toto1.xls"
ActiveWorkbook.Worksheets(NomFeuiSouce).Range("C6:M17").Copy Destination:=RngCible
ActiveWorkbook.Close SaveChanges:=False
End Sub
Vous aurez d'ailleurs la même erreur plus bas, avec Close SaveChanges = False au lieu de Close SaveChanges:=False
Je l'écrirais peut être comme ça :
VB:
Sub Recopie()
Dim RngCible As Range, NomFeuiSouce As String
NomFeuiSouce = ActiveSheet.Range("E8").Value
Set RngCible = ActiveWorkbook.Sheets("G18").Range("A15")
Application.ScreenUpdating = False
Workbooks.Open Filename:=ThisWorkbook.Path & "\TOTO\toto1.xls"
ActiveWorkbook.Worksheets(NomFeuiSouce).Range("C6:M17").Copy Destination:=RngCible
ActiveWorkbook.Close SaveChanges:=False
End Sub