Re : [non résolu] Comment copier plusieurs onglets vers un nouveau fichier?
Bonjour une boucle et ça devrait être bon :
Code:
for i = 1 to 3
Sheets(i).Select
Sheets(i).Copy
ActiveWorkbook.SaveAs Filename:= _
NouveauRepertoire & "\" & NomFile & ".xlsx", FileFormat:= _
xlOpenXMLWorkbook, CreateBackup:=False
next i