Enregistrement automatique feuille en fichier individuel

Bonjour

je souhaiterai enregistrer plusieurs feuilles excel (environ 200) d'un fichier en fichier individuel avec le nom de chaque feuille.

faut -il une macro ?

cdt

Nicolas

Salut et bienvenue sur le Forum,

Dans le fichier ci-joint, tu as la macro ci-dessous que tu peux déclencher en tapant Ctrl+y

Option Explicit

Sub Créer_un_fichier_par_feuille()
' Combinaison de touches : Ctrl+y

Dim i As Integer, Chemin As String, Nom As String

Application.ScreenUpdating = False

Chemin = ThisWorkbook.Path

For i = 1 To Sheets.Count
    Nom = Sheets(i).Name
    Sheets(i).Copy
    ActiveWorkbook.SaveAs Filename:=Chemin & "\" & Nom & ".xls"
    ActiveWorkbook.Close
Next i

End Sub

Tu devrais alors avoir, dans le dossier dans lequel tu as placé ce fichier de base, un fichier par feuille.

Si tu lances deux fois le même code, tu auras des problèmes, puisque à chaque nouveau fichier créé, tu seras informé qu'un fichier avec le même nom existe déjà Avec 3 feuilles, ce n'est pas si grave, mais avec 200 feuilles .......

Cordialement.

salut Yvouille,

je te remercie beaucoup pour la macro, elle est très patique... cool

cdt

Nicolas