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.
- 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.
- Il est facultatif de passer les feuilles de calcul masquées et vierges en cochant les cases correspondantes dans la section "Options".
- Cliquez sur "OK".
- 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.
- 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.
- 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.
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
Meilleurs outils de productivité pour Office
Améliorez vos compétences Excel avec Kutools pour Excel, et découvrez une efficacité incomparable. Kutools pour Excel propose plus de300 fonctionnalités avancées pour booster votre productivité et gagner du temps. Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte l’interface par onglets à Office, simplifiant considérablement 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 chaque jour !
Tous les modules complémentaires Kutools. Une seule installation
La suite Kutools for Office regroupe les modules complémentaires pour Excel, Word, Outlook & PowerPoint ainsi qu’Office Tab Pro, idéal pour les équipes travaillant sur plusieurs applications Office.
- Suite tout-en-un — modules complémentaires Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Un installateur, une licence — installation en quelques minutes (compatible MSI)
- Une synergie optimale — productivité accélérée sur l’ensemble des applications Office
- Essai complet30 jours — sans inscription, ni carte bancaire
- Meilleure valeur — économisez par rapport à l’achat d’add-ins individuels