Création de plusieurs fichiers a partir de certains onglets d'un fichiers initial

[zeltron]

Bonsoir à tout le forum

Voici donc mon problème:

J'ai un fichier x contenant un onglet "A" et des onglets: "B_Janv" ;"B_Fév";"B_Mars";"B_Avril";"B_Mai";"B_Juin";"B_Juil";"B_Août";"B_Sept";"B_Oct";"B_Nov";"B_Déc".

Je souhaiterais par VBA créer, dans la même dossier que le fichier x,
- le fichier "B_Janv.xls" avec les onglets "A" et "B_Janv" du fichier x
- le fichier "B_Fév.xls" avec les onglets "A" et "B_Fév" du fichier x
- le fichier "B_Mars.xls" avec les onglets "A" et "B_Mars" du fichier x
Ect...
Mais également que chacun de ces nouveaux fichiers crées soit refermé à la fin de la macro.

J'ai fait une recherche sur le forum mais je n'ai pas trouvé de réponse à mon problème pourtant j'aurais pensé que des fils auraient répondu exactement à mon problème mais ce n'est pas le cas et je n'ai pas réussi à adapter les codes existants proposés pour des problèmes s'en rapprochant.

J'espère que vous pourrez m'aider

Cordialement

Zeltron

 

[Essem]

Re : Création de plusieurs fichiers a partir de certains onglets d'un fichiers initial

Bonsoir Zeltron et le forum,

Voici un premier jet, sûrement à développer un brin.

Essem

 

[zeltron]

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