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

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".

É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é.

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.

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.

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

Articles connexes :

• Consolider plusieurs classeurs en un seul classeur
• Enregistrer une plage en tant que fichier individuel
• Séparer un classeur en fichiers Excel séparés