Accéder au contenu principal

Comment exporter et enregistrer chaque feuille de calcul en tant que nouveau classeur séparé dans Excel ?

Author: Kelly Last Modified: 2025-05-27

Exporter et enregistrer des feuilles de calcul individuelles en tant que classeurs séparés dans Excel est une tâche courante, surtout lors du partage ou de l'organisation de données. Bien que copier et coller manuellement des feuilles de calcul dans de nouveaux classeurs soit une option, cela peut être fastidieux et chronophage, en particulier pour les classeurs contenant plusieurs feuilles. Dans ce guide, nous explorerons plusieurs méthodes pour y parvenir étape par étape, vous aidant à choisir la meilleure solution en fonction de vos besoins et de votre expertise.


Enregistrer les feuilles de calcul comme nouveau classeur une par une avec la commande Déplacer ou Copier

Utiliser la commande "Déplacer ou Copier" vous aidera à exporter ou copier une ou plusieurs feuilles de calcul vers un nouveau classeur rapidement.

Étape1 : Sélectionnez les noms des feuilles de calcul dans la barre d'onglets. Pour sélectionner plusieurs feuilles de calcul, maintenez la touche "Ctrl" enfoncée et cliquez sur les onglets de feuille un par un.

Étape2 : Faites un clic droit sur le nom de la feuille de calcul, puis cliquez sur "Déplacer ou Copier" dans le menu contextuel.

Étape3 : Dans la boîte de dialogue "Déplacer ou Copier", sélectionnez l'élément "(nouveau classeur)" dans la liste déroulante de "Déplacer les feuilles sélectionnées vers le classeur".

A screenshot of the Move or Copy dialog box showing the option to move sheets to a new workbook

Étape4 : Cliquez ensuite sur "OK", vous avez maintenant basculé vers le "nouveau classeur" avec les feuilles de calcul exportées ou copiées, cliquez sur "Fichier" > "Enregistrer" pour enregistrer le nouveau classeur.

Remarque : Dans la boîte de dialogue "Déplacer ou Copier", il y a une option "Créer une copie". Si vous ne la cochez pas, cela déplacera les feuilles de calcul sélectionnées hors du classeur d'origine ; si vous la cochez, cela copiera les feuilles de calcul sélectionnées.


Enregistrer facilement par lot les feuilles de calcul comme nouveau classeur avec Kutools pour Excel

Si vous avez plusieurs feuilles de calcul à enregistrer en tant que classeur séparé, la première méthode n'est pas un bon choix. Et le code VBA ci-dessous peut être un peu compliqué pour les débutants en Excel. Ici, vous pouvez utiliser l'utilitaire "Séparer le classeur" de "Kutools pour Excel" pour enregistrer facilement par lot chaque feuille de calcul d'un classeur en tant que nouveau classeur séparé.

Kutools pour Excel propose plus de 300 fonctionnalités avancées pour simplifier les tâches complexes, augmentant ainsi la créativité et l'efficacité. Intégré à des capacités d'IA, Kutools automatise les tâches avec précision, rendant la gestion des données facile et sans effort. Informations détaillées sur Kutools pour Excel...  Essai gratuit...

Après avoir installé Kutools pour Excel, cliquez sur "Kutools Plus" > "Classeur" > "Séparer le classeur" pour ouvrir la boîte de dialogue "Séparer le classeur". Puis configurez comme suit.

  1. Cochez les feuilles de calcul que vous souhaitez enregistrer en tant que nouveaux classeurs. Par défaut, toutes les feuilles de calcul sont cochées.
  2. Il est facultatif de passer les feuilles de calcul masquées et vierges en cochant les cases correspondantes dans la section "Options".
  3. Cliquez sur "OK".
  4. Une boîte de dialogue "Sélectionner un dossier" s'affiche, vous devez alors sélectionner un dossier de destination pour enregistrer les nouveaux classeurs et cliquer sur le bouton "Sélectionner un dossier".

Ensuite, les feuilles de calcul spécifiées ou toutes les feuilles de calcul seront enregistrées en tant que nouveaux classeurs séparés immédiatement.

Remarques :
  • Cette fonctionnalité vous permet d'enregistrer chaque feuille de calcul en tant que fichier TXT, CSV ou PSF individuel. Vous devez simplement cocher la case Enregistrer sous type et choisir l'option correspondante dont vous avez besoin dans le menu déroulant.
    A screenshot of the Save as type option in Kutools Split Workbook utility
  • Pour utiliser cette fonctionnalité, vous devez avoir "Kutools pour Excel" installé sur votre ordinateur. Allez télécharger Kutools pour Excel maintenant.

Exporter et enregistrer des feuilles de calcul en tant que nouveau classeur avec du code VBA

Le code suivant exportera chaque feuille de calcul visible dans un nouveau classeur et enregistrera le classeur avec le nom de la feuille d'origine dans un nouveau dossier créé dans le même chemin que le classeur actif. Veuillez suivre les étapes suivantes :

Étape1 : Maintenez les touches "ALT" + "F11" enfoncées, et cela ouvre la fenêtre "Microsoft Visual Basic pour Applications".

Étape2 : Cliquez sur "Insérer" > "Module", et collez la macro suivante dans la Fenêtre Module :

VBA : Exporter et enregistrer des feuilles de calcul en tant que nouveau classeur dans un nouveau dossier.

Sub SplitWorkbook()
'Updateby20200806
Dim FileExtStr As String
Dim FileFormatNum As Long
Dim xWs As Worksheet
Dim xWb As Workbook
Dim xNWb As Workbook
Dim FolderName As String
Application.ScreenUpdating = False
Set xWb = Application.ThisWorkbook

DateString = Format(Now, "yyyy-mm-dd hh-mm-ss")
FolderName = xWb.Path & "\" & xWb.Name & " " & DateString

If Val(Application.Version) < 12 Then
    FileExtStr = ".xls": FileFormatNum = -4143
Else
    Select Case xWb.FileFormat
        Case 51:
            FileExtStr = ".xlsx": FileFormatNum = 51
        Case 52:
            If Application.ActiveWorkbook.HasVBProject Then
                FileExtStr = ".xlsm": FileFormatNum = 52
            Else
                FileExtStr = ".xlsx": FileFormatNum = 51
            End If
        Case 56:
            FileExtStr = ".xls": FileFormatNum = 56
        Case Else:
            FileExtStr = ".xlsb": FileFormatNum = 50
        End Select
End If

MkDir FolderName

For Each xWs In xWb.Worksheets
On Error GoTo NErro
    If xWs.Visible = xlSheetVisible Then
    xWs.Select
    xWs.Copy
    xFile = FolderName & "\" & xWs.Name & FileExtStr
    Set xNWb = Application.Workbooks.Item(Application.Workbooks.Count)
    xNWb.SaveAs xFile, FileFormat:=FileFormatNum
    xNWb.Close False, xFile
    End If
NErro:
    xWb.Activate
Next

    MsgBox "You can find the files in " & FolderName
    Application.ScreenUpdating = True
End Sub

Étape3 : Appuyez sur la touche "F5" pour exécuter ce code. Et une boîte de dialogue s'affichera pour vous indiquer l'emplacement des nouveaux classeurs exportés, et toutes les feuilles de calcul du classeur d'origine ont été exportées vers de nouveaux classeurs séparés qui portent le nom des feuilles d'origine dans un nouveau dossier spécifique.

A screenshot of the VBA code output showing saved worksheets as new workbooks

Démonstration : Exporter et enregistrer chaque feuille comme nouveau classeur

 
Kutools pour Excel : Plus de 300 outils pratiques à portée de main ! Profitez de fonctionnalités IA définitivement gratuites ! Télécharger maintenant !

Articles connexes :


Meilleurs outils de productivité pour Office

🤖 Kutools AI Aide : Révolutionner l'analyse des données basée sur : Exécution intelligente   |  Générer du code  |  Créer des formules personnalisées  |  Analyser les données et générer des graphiques  |  Invoquer les Fonctions améliorées
Fonctionnalités populaires : Trouver, mise en évidence ou marquer les doublons   |  Supprimer les lignes vides   |  Consolider les colonnes ou les cellules sans perdre de données   |   Arrondir sans formule ...
Super RECHERCHEV : RECHERCHEV avec critères multiples    RECHERCHEV avec valeurs multiples  |   Recherche multi-feuilles   |   Correspondance floue ....
Liste déroulante avancée : Créer rapidement une liste déroulante   |  Liste déroulante dépendante   |  Liste déroulante multi-sélection ....
Gestionnaire de colonnes : Ajouter un nombre spécifique de colonnes  |  Déplacer les colonnes  |  Basculer l'état de visibilité des colonnes masquées  |  Comparer les plages & colonnes ...
Fonctionnalités en vedette : Mise au point de la grille   |  Affichage de conception   |   Barre de formule améliorée    Gestionnaire de classeur & feuille de calcul   |  Bibliothèque dAutoTexte (Auto Text)   |  Sélecteur de date   |  Fusionner les données   |  Crypter/Déchiffrer les cellules    Envoyer un e-mail par liste   |  Super Filtre   |   Filtre spécial (filtrer les cellules avec une police en gras/italique/barré...) ...
Top15 ensembles d'outils12 outils de texte (Ajouter du texte, Supprimer des caractères spécifiques, ...)   |   50+ types de graphiques (Diagramme de Gantt, ...)   |   40+ formules pratiques (Calculer lâge en fonction de la date de naissance, ...)   |   19 outils d'insertion (Insérer un code QR, Insérer une image depuis le chemin, ...)   |  12 outils de conversion (Convertir en mots, Conversion de devises, ...)   |  7 outils de fusion & division (Fusion avancée des lignes, Diviser les cellules, ...)   |   ... et plus

Boostez vos compétences Excel avec Kutools pour Excel, et découvrez une efficacité sans précédent. Kutools pour Excel propose plus de300 fonctionnalités avancées pour augmenter la productivité et gagner du temps.  Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...


Office Tab apporte une interface à onglets à Office, et facilite grandement votre travail

  • Activez la modification et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
  • Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
  • Augmente votre productivité de50 %, et réduit des centaines de clics de souris pour vous chaque jour !