Workbooks(chemin).Close Savechanges:=False
Sub copier() Dim chemin As String chemin = Application.GetOpenFilename Application.Workbooks.Open chemin Cells.Select Selection.Copy Windows("CODBAT2.3.xlsm").Activate Sheets("default").Select Cells.Select ActiveSheet.Paste End Sub
Bonjour,
Avec le message d'erreur ça aurait été plus clair.
en clair, tu te trompe dans le nom du WorkBook.
à la place de :
chemin = Application.GetOpenFilename
Essayes :
chemin = ActiveWorkbook.Name
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionSub copier() Dim chemin As String Dim name As String chemin = Application.GetOpenFilename Application.Workbooks.Open chemin name = ActiveWorkbook.name Cells.Select Selection.Copy Windows("CODBAT2.3.xlsm").Activate Sheets("default").Select Cells.Select ActiveSheet.Paste Workbooks(name).Close Savechanges:=False End Sub