Bonjour à tous,
Dans mon bva j'ai l'erreur 400 et je ne vois pas ou est mon erreur
(macro pour recopier le contenu d'un autre classeur)
Dim chemin As String
Sub recopie()
Dim Mafeuille As String
Application.ScreenUpdating = False
Workbooks.Open chemin = ThisWorkbook.Path & "\TOTO\toto1.xls"
Workbooks(1).Activate
Mafeuille = Range("E8").Value
Workbooks(2).Sheets(Mafeuille).Range("C6:M17").Copy Destination:=Workbooks(1).Sheets("G18").Range("A15")
Workbooks(2).Close SaveChanges = False
merci de votre aide
cordialement
Dans mon bva j'ai l'erreur 400 et je ne vois pas ou est mon erreur
(macro pour recopier le contenu d'un autre classeur)
Dim chemin As String
Sub recopie()
Dim Mafeuille As String
Application.ScreenUpdating = False
Workbooks.Open chemin = ThisWorkbook.Path & "\TOTO\toto1.xls"
Workbooks(1).Activate
Mafeuille = Range("E8").Value
Workbooks(2).Sheets(Mafeuille).Range("C6:M17").Copy Destination:=Workbooks(1).Sheets("G18").Range("A15")
Workbooks(2).Close SaveChanges = False
merci de votre aide
cordialement