Re : Création de plusieurs fichiers a partir de certains onglets d'un fichiers initial
Merci Essem pour ton aide,
Je viens de voir ton message en revenant pour donner la solution que j'ai trouvé:
Sub...
Workbooks.Open Filename:=ThisWorkbook.Path & "\x.xls"
Sheets(Array("A", "B_Janv")).Copy
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\B_Janv.xls"
ActiveWorkbook.Close
Sheets(Array("A", "B_Fév")).Copy
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\B_Fév.xls"
ActiveWorkbook.Close
Ect...
ActiveWorkbook.Close '=>Pour fermer le fichier "x"
End sub
Ton code Essem est quand même bien plus condensé que le mien!!!
Je te remercie de ton aide et de cette leçon d'écriture de code efficace!
Cordialement
Zeltron