Enregistrer feuille par feuille

moogue Messages postés 7 Statut Membre -  
moogue Messages postés 7 Statut Membre -
Bonjour,

je viens vers la communauté car voilà quelques jours que je cherche un code macro me permettant d'enregistrer un classeur excel composer de 59 onglets, en feuille par feuille avec le nom d'onglet correspondant.... mais je ne trouve pas mon bonheur....

si quelqu'un aurait une idée ??

en vous remerciant d'avance,

cordialement,

moogu

A voir également:

5 réponses

PHILOU10120 Messages postés 6515 Date d'inscription   Statut Contributeur Dernière intervention   827
 
Bonjour

Voulez-vous avoir 59 classeurs différents ?
0
moogue Messages postés 7 Statut Membre
 
bonjour,

oui oui, ce serait ce que je recherche,

obtenir une feuille par classeur....

merci,
0
PHILOU10120 Messages postés 6515 Date d'inscription   Statut Contributeur Dernière intervention   827
 
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
0
Morgothal Messages postés 1350 Statut Membre 184
 
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 

0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
moogue Messages postés 7 Statut Membre
 
Merci pour toutes ces réponses :)

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

moogu
0