Enregistrer feuille par feuille

Bonjour

Voulez-vous avoir 59 classeurs différents ?

bonjour,

oui oui, ce serait ce que je recherche,

obtenir une feuille par classeur....

merci,

Bonjour

Il faut cliquer droit sur l'onglet de la feuille
Déplacer ou Copier ...
Sélectionner la feuille
mettre la coche dans créer une copie (si vous voulez garder le classeur d'origine)
et sélectionner nouveau classeur dans la liste déroulante
et valider Ok
un nouveau classeur se crée il faut le sauvegarder avec un nom à votre convenance
Voir avec les Utilisateurs chevronnés en VBA pour automatiser si cela vaux le coùt

Bonjour,
Voici un code qui copie toutes les feuilles du classeur dans des classeurs à une feuille, nommé comme la feuille, et qui les enregistre dans le même répertoire que le classeur source :

Sub feuilles_en_classeur()
Dim feuille As Worksheet
Dim enregistrement, path, nomfeuille As String

path = ActiveWorkbook.path & "\"

For Each feuille In ActiveWorkbook.Sheets

nomfeuille = feuille.Name

    feuille.Select
    feuille.Copy
    ChDir path
    enregistrement = path & nomfeuille & ".xlsx"
    ActiveWorkbook.SaveAs Filename:=enregistrement, FileFormat:= _
        xlExcel8, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
    ActiveWindow.Close

Next
End Sub 

Merci pour toutes ces réponses :)

je vais essayer la macro de suite pour voir le résultat,

moogu