Comment exporter et enregistrer chaque feuille de calcul en tant que nouveau classeur distinct dans Excel ?
Exporter et enregistrer des feuilles de calcul individuelles sous forme de classeurs séparés dans Excel est une tâche courante, notamment lors du partage ou de l’organisation de données. Bien que copier-coller manuellement les feuilles dans des Nouveau classeur soit une solution possible, cela peut s’avérer fastidieux et chronophage, surtout pour des classeurs comportant de nombreuses feuilles. Dans ce guide, nous allons explorer plusieurs méthodes pour y parvenir pas à pas, afin de vous aider à choisir la solution la plus adaptée à vos besoins et à votre niveau d’expertise.
Enregistrer les feuilles de calcul sous forme de Nouveau classeur une par une à l’aide de la commande Déplacer ou Copier
La commande « Déplacer ou Copier » vous permet d’exporter ou de copier rapidement une ou plusieurs feuilles de calcul vers un nouveau classeur.
Étape 1 : Sélectionnez « Nom de la feuille de calcul » depuis la barre d’onglets. Pour en choisir plusieurs, maintenez la touche « Ctrl » enfoncée et cliquez successivement sur les onglets des feuilles souhaitées.
Étape 2 : Cliquez avec le bouton droit sur le nom de la feuille de calcul, puis sélectionnez « Déplacer ou copier » dans le menu contextuel.
Étape 3 : Dans la boîte de dialogue « Déplacer ou Copier », sélectionnez l’option « (nouveau classeur) » dans la liste déroulante « Déplacer les feuilles de calcul sélectionnées vers le classeur ».
Étape 4 : Cliquez ensuite sur « OK ». Vous vous trouvez désormais dans le « Nouveau classeur » contenant les feuilles exportées ou copiées. Pour le sauvegarder, cliquez sur « Fichier » > « Enregistrer ».
Remarque : La boîte de dialogue « Déplacer ou Copier » propose une option « Créer une copie ». Si vous ne la cochez pas, les feuilles de calcul sélectionnées seront déplacées hors du classeur d’origine ; si vous la cochez, elles seront copiées.
Enregistrer facilement et en lot les feuilles de calcul sous forme de Nouveau classeur avec Kutools pour Excel
Si vous devez enregistrer plusieurs feuilles de calcul sous forme de classeurs distincts, la première méthode n’est pas idéale. Le code VBA ci-dessous pourrait également sembler un peu complexe pour les débutants sous Excel. Vous pouvez alors utiliser l’utilitaire « Séparer le classeur » de « Kutools pour Excel » pour enregistrer facilement et en lot chaque feuille d’un classeur sous forme de nouveaux classeurs distincts.
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 dans un nouveau classeur. Par défaut, toutes les feuilles sont sélectionnées.
- Vous pouvez ignorer les feuilles masquées et les feuilles de calcul vierges en cochant les cases correspondantes dans la section « Options ».
- Cliquez sur « OK ».
- Une boîte de dialogue « Sélectionner un dossier » s’ouvre ; choisissez le dossier de destination dans lequel vous souhaitez enregistrer le nouveau classeur, puis cliquez sur le bouton « Sélectionner un dossier ».
Les feuilles spécifiées, ou toutes les feuilles, seront alors immédiatement enregistrées sous forme de nouveau classeur distinct.
- Cette fonctionnalité vous permet d’enregistrer chaque feuille de calcul au format TXT, CSV ou PSF, dans des fichiers individuels. Il vous suffit de cocher la case « Spécifier le format d’enregistrement » et de sélectionner l’option souhaitée dans la liste déroulante.
- Pour utiliser cette fonctionnalité, vous devez avoir « Kutools pour Excel » installé sur votre ordinateur.Téléchargez Kutools pour Excel dès maintenant.
Exporter et enregistrer les feuilles de calcul sous forme de Nouveau classeur à l’aide d’un code VBA
Le code suivant exporte chaque feuille visible vers un nouveau classeur et enregistre ce classeur sous le nom de la feuille d’origine, dans un dossier nouvellement créé au même emplacement que le classeur actuel. Procédez comme suit :
Étape 1 : Maintenez les touches « ALT » + « F11 » enfoncées pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.
Étape 2 : Cliquez sur « Insertion » > « Module », puis collez la macro suivante dans la fenêtre du module :
VBA : Exportez et enregistrez les feuilles de calcul sous forme d’un 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Étape 3 : Appuyez sur la touche « F5 » pour exécuter ce code. Une boîte de dialogue s’affiche alors afin d’indiquer l’emplacement des nouveaux classeurs exportés. Toutes les feuilles du classeur d’origine sont ainsi exportées vers des classeurs distincts, chacun nommé d’après sa feuille source, et regroupées dans un dossier dédié.
Démo : Exporter et enregistrer chaque feuille sous forme de Nouveau classeur
Articles associés :
- Combiner plusieurs classeurs en un seul classeur
- Enregistrer une sélection sous forme de fichier individuel
- Fractionner un classeur en Fichiers Excel distincts
Meilleurs outils de productivité Office
Boostez vos compétences Excel avec Kutools pour Excel et découvrez une efficacité inégalée.Kutools pour Excel propose plus de 300 fonctionnalités avancées pour améliorer votre 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 rend votre travail bien plus facile
- Activez l’édition 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é de 50 % et vous fait économiser des centaines de clics de souris chaque jour !
Tous les compléments Kutools. Un seul installateur
Kutools for Office regroupe les compléments pour Excel, Word, Outlook et PowerPoint, ainsi que Office Tab Pro, ce qui en fait le choix idéal pour les équipes travaillant à travers les applications Office.
- Suite tout-en-un— Compléments Excel, Word, Outlook et PowerPoint + Office Tab Pro
- Un seul installateur, une seule licence— installation en quelques minutes (compatible MSI)
- Fonctionne mieux ensemble— productivité optimisée dans toutes les applications Office
- Essai gratuit de 30 jours avec toutes les fonctionnalités— aucune inscription, aucune carte bancaire
- Meilleur rapport qualité-prix— économisez par rapport à l’achat de compléments individuels