Note: The other languages of the website are Google-translated. Back to English

Comment diviser un classeur pour séparer les fichiers Excel dans Excel?

Vous devrez peut-être diviser un grand classeur pour séparer les fichiers Excel en enregistrant chaque feuille de calcul du classeur en tant que fichier Excel individuel. Par exemple, vous pouvez diviser un classeur en plusieurs fichiers Excel individuels, puis remettre chaque fichier à une personne différente pour le gérer. Ce faisant, vous pouvez amener certaines personnes à traiter des données spécifiques et à protéger vos données. Cet article présente des moyens de fractionner un grand classeur pour séparer les fichiers Excel en fonction de chaque feuille de calcul.

  1. Fractionner un classeur pour séparer les fichiers Excel avec copier-coller
  2. Diviser un classeur pour séparer les fichiers Excel avec la fonctionnalité Déplacer ou Copier
  3. Divisez un classeur pour séparer les fichiers Excel avec le code VBA
  4. Divisez un classeur pour séparer facilement les fichiers Excel / PDF / CSV / TXT avec Kutools for Excel

Fractionner un classeur pour séparer les fichiers Excel avec copier-coller

Habituellement, en utilisant Copier commande et pâtes peut enregistrer manuellement un classeur en tant que fichier Excel séparé. Tout d'abord, sélectionnez la feuille de calcul entière que vous souhaitez enregistrer en tant que fichier distinct, créez un nouveau classeur, puis collez-le dans le nouveau classeur, à la fin, il l'enregistre.

C'est un moyen facile à utiliser si vous ne devez diviser que quelques feuilles de calcul en fichiers séparés. Cependant, il doit être long et fastidieux de diviser de nombreuses feuilles de calcul en copiant et collant manuellement.


Diviser un classeur pour séparer les fichiers Excel avec la fonctionnalité Déplacer ou Copier

Cette méthode introduira la fonctionnalité Déplacer ou Copier pour déplacer ou copier les feuilles sélectionnées dans un nouveau classeur et enregistrer en tant que classeur distinct. Veuillez procéder comme suit:

1. Sélectionnez les feuilles dans la barre d'onglets Feuille, cliquez avec le bouton droit de la souris et sélectionnez Déplacer ou copier dans le menu contextuel. Voir la capture d'écran:

Notes: En portant Ctrl clé, vous pouvez sélectionner plusieurs feuilles non adjacentes en cliquant dessus une par une dans la barre d'onglets Feuille; en portant Mission , vous pouvez sélectionner plusieurs feuilles adjacentes en cliquant sur la première et la dernière dans la barre d'onglets Feuille.

2. Dans la boîte de dialogue Déplacer ou copier, sélectionnez (nouveau livre) du Réserver liste déroulante, vérifiez la Créer une copie option, et cliquez sur le OK bouton. Voir la capture d'écran:

3. Désormais, toutes les feuilles sélectionnées sont copiées dans un nouveau classeur. Cliquez sur Déposez le > Enregistrer pour enregistrer le nouveau classeur.

Divisez rapidement un classeur pour séparer les fichiers Excel / PDF / TXT / CSV dans Excel

Normalement, nous pouvons diviser un classeur en fichiers Excel individuels avec le Déplacer ou copier fonctionnalité dans Excel. Mais Kutools pour Excel Classeur fractionné L'utilitaire peut vous aider à diviser facilement un classeur et à enregistrer chaque feuille de calcul en tant que fichier PDF / TEXT / CSV séparé ou classeur dans Excel. Essai gratuit complet de 30 jours!
ad split classeur Excel

Kutools pour Excel - Comprend plus de 300 outils pratiques pour Excel. Essai gratuit complet de 30 jours, aucune carte de crédit requise! Achetez-le Maintenant

Divisez un classeur pour séparer les fichiers Excel avec le code VBA

Le code VBA suivant peut vous aider à diviser rapidement plusieurs feuilles de calcul du classeur actuel pour séparer les fichiers Excel, procédez comme suit:

1. Créez un nouveau dossier pour le classeur que vous souhaitez fractionner, car les fichiers Excel fractionnés seront conservés dans le même dossier que ce classeur maître.

2. Maintenez le ALT + F11 clés dans Excel, et il ouvre le Microsoft Visual Basic pour applications fenêtre.

3Cliquez sur insérer > Moduleet collez le code suivant dans la fenêtre Module.

VBA: divisez un classeur en plusieurs classeurs et enregistrez-le dans le même dossier

Sub Splitbook()
'Updateby20140612
Dim xPath As String
xPath = Application.ActiveWorkbook.Path
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each xWs In ThisWorkbook.Sheets
    xWs.Copy
    Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & xWs.Name & ".xlsx"
    Application.ActiveWorkbook.Close False
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

4. appuie sur le F5 clé pour exécuter ce code. Et le classeur est divisé pour séparer les fichiers Excel dans le même dossier avec le classeur d'origine. Voir la capture d'écran:

Notes: Si l'une des feuilles porte le même nom que le classeur, ce VBA ne peut pas fonctionner.

Divisez un classeur pour séparer facilement les fichiers Excel / PDF / CSV / TXT avec Kutools for Excel

Si vous avez Kutools pour Excel installé, son Classeur fractionné L'outil peut diviser plusieurs feuilles de calcul en tant que fichiers Excel séparés de manière pratique et rapide en quelques clics.

Kutools pour Excel - Comprend plus de 300 outils pratiques pour Excel. Essai gratuit complet de 30 jours, aucune carte de crédit requise! Achetez-le Maintenant

1. Après l'installation Kutools pour Excelcliquez Kutools Plus > Classeur fractionné , voir capture d'écran:

2. Dans le Classeur fractionné boîte de dialogue, effectuez les opérations suivantes:
(1) Tous les noms de feuille de calcul sont vérifiés par défaut. Si vous ne souhaitez pas diviser certaines des feuilles de calcul, vous pouvez les décocher;
(2) Vérifiez le Enregistrer un type l'option;
(3) De la Enregistrer en tant que type de dans la liste déroulante, choisissez un type de fichier que vous souhaitez fractionner et enregistrer.
(4) Cliquez ensuite sur Divisé .

Notes: Si vous souhaitez éviter de fractionner les feuilles de calcul masquées ou vierges, vous pouvez vérifier Ignorer les feuilles de calcul masquées or Ignorer les feuilles de calcul vierges boîte.

3. Dans la boîte de dialogue Rechercher un dossier, spécifiez un dossier de destination pour enregistrer les fichiers séparés séparés, puis cliquez sur le bouton OK .

Les feuilles de calcul cochées sont désormais enregistrées en tant que nouveaux classeurs séparés. Chaque nouveau classeur est nommé avec le nom de la feuille de calcul d'origine. Voir la capture d'écran:

Kutools pour Excel's Classeur fractionné L'outil facilite la division du classeur actif en fichiers Excel individuels (un fichier contient une feuille de calcul), fichiers CSV, fichiers TXT ou fichiers PDF selon vos besoins. Vous pouvez définir pour ignorer toutes les feuilles de calcul vierges et masquées. Faites un essai gratuit!


Démo: divisez ou enregistrez chaque feuille de calcul d'un classeur en tant que fichiers Excel / txt / csv / pdf séparés


Kutools pour Excel comprend plus de 300 outils pratiques pour Excel, gratuits à essayer sans limitation en 30 jours. Téléchargez et essayez gratuitement maintenant!

Articles Liés:


Les meilleurs outils de productivité de bureau

Kutools for Excel résout la plupart de vos problèmes et augmente votre productivité de 80%

  • Réutilisation: Insérer rapidement formules complexes, graphiques et tout ce que vous avez utilisé auparavant; Crypter les cellules avec mot de passe; Créer une liste de diffusion et envoyer des e-mails ...
  • Barre Super Formula (modifiez facilement plusieurs lignes de texte et de formule); Disposition de lecture (lire et modifier facilement un grand nombre de cellules); Coller dans la plage filtréeplus
  • Fusionner les cellules / lignes / colonnes sans perdre de données; Contenu des cellules divisées; Combiner des lignes / colonnes en double... Empêcher les cellules en double; Comparer les gammesplus
  • Sélectionnez Dupliquer ou Unique Lignes; Sélectionnez les lignes vides (toutes les cellules sont vides); Super Find et Fuzzy Find dans de nombreux classeurs; Sélection aléatoire ...
  • Copie exacte Plusieurs cellules sans changer la référence de formule; Créer automatiquement des références à plusieurs feuilles; Insérer des puces, Cases à cocher et plus encore ...
  • Extrait du texte, Ajouter du texte, Supprimer par position, Supprimer l'espace; Créer et imprimer des sous-totaux de pagination; Conversion entre le contenu et les commentaires des cellulesplus
  • Super filtre (enregistrer et appliquer des schémas de filtrage à d'autres feuilles); Tri avancé par mois / semaine / jour, fréquence et plus; Filtre spécial par gras, italique ...
  • Combiner des classeurs et des feuilles de travail; Fusionner les tableaux en fonction des colonnes clés; Diviser les données en plusieurs feuilles; Conversion par lots xls, xlsx et PDFplus
  • Plus de 300 fonctionnalités puissantes. Prend en charge Office / Excel 2007-2019 et 365. Prend en charge toutes les langues. Déploiement facile dans votre entreprise ou organisation. Essai gratuit de 30 jours. Garantie de remboursement de 60 jours.
onglet kte 201905

Office Tab apporte une interface à onglets à Office et simplifie considérablement votre travail

  • Activer 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 réduit des centaines de clics de souris chaque jour!
bas de cabine
Commentaires (112)
Pas encore de notes. Soyez le premier à évaluer!
Ce commentaire a été minimisé par le modérateur sur le site
J'ai des données dans 4 feuilles différentes. Sheet1 est nommé "A", Sheet2 est nommé "B", Sheet3 est nommé "C" et Sheet4 est nommé "D". Besoin de diviser les données en différents classeurs et chaque feuille ne doit avoir que 25 lignes. Le nom du fichier doit être nommé Sheet1 A.xls, Sheet2 A.xls si les données sont copiées à partir de la feuille A. Une fois que la feuille A est devenue vide, elle doit copier les données de la feuille B et doit continuer le numéro de feuille à partir du dernier, par exemple Feuille3 B.xls.
Ce commentaire a été minimisé par le modérateur sur le site
Lorsque je "divise un classeur pour séparer des fichiers Excel avec du code VBA", cela fonctionne comme un rêve mais ne conserve pas le formatage tel que les cellules fusionnées et l'alignement des cellules dans les nouvelles feuilles de calcul. Y a-t-il quelque chose que je peux ajouter pour que le formatage reste le même que celui des originaux ?
Ce commentaire a été minimisé par le modérateur sur le site
Le code a fonctionné comme un charme! Oui, toutes les mises en forme n'ont pas été conservées. Pas de problème, cependant. Pour moi, toutes les cellules fusionnées d'un tableau sont devenues non fusionnées. C'était une chose simple de sélectionner le tableau d'origine, de formater le peintre, de mettre en évidence le tableau copié, et le tour est joué, comme neuf. Merci!
Ce commentaire a été minimisé par le modérateur sur le site
Colonne A Adresse IP Colonne B Nom IP Colonne C Taux de ping IP True (c'est-à-dire l'état de ping de la commande) Colonne D Taux de ping IP False (c'est-à-dire l'état de ping de la commande) Cette liste de noms IP et IP au format et à l'état Excel est au même format Excel ( qui est vrai ou faux Statut)
Ce commentaire a été minimisé par le modérateur sur le site
Code génial - m'a sauvé la journée. Merci d'avoir posté.
Ce commentaire a été minimisé par le modérateur sur le site
Je rencontre un problème lors de l'ajout de code pour enregistrer les fichiers fractionnés en lecture seule. Pourquoi cela ne fonctionne-t-il pas ou comment dois-je procéder ? Sub Splitbook() MyPath = ThisWorkbook.Path Pour chaque sht dans ThisWorkbook.Sheets sht.Copy ActiveSheet.Cells.Copy ActiveSheet.Cells.PasteSpecial Paste:=xlPasteValues ​​ActiveSheet.Cells.PasteSpecial Paste:=xlPasteFormats ActiveWorkbook.SaveAs _ Filename:=MyPath & "\" & sht.Name & ".xls", Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, ActiveWorkbook.Close savechanges:=False Next sht End Sub
Ce commentaire a été minimisé par le modérateur sur le site
Installation vraiment superbe .., incroyable ... wow ..
Ce commentaire a été minimisé par le modérateur sur le site
Script génial. Il a fonctionné pour moi comme n'importe quoi. Merci.
Ce commentaire a été minimisé par le modérateur sur le site
Script utile, mais je cherche d'autres étapes, pour sélectionner moi-même un critère à partir d'un fichier Excel et le remplir automatiquement dans plusieurs fichiers
Ce commentaire a été minimisé par le modérateur sur le site
Merci la méthode 1 a été extrêmement utile
Ce commentaire a été minimisé par le modérateur sur le site
Merci! M'a épargné beaucoup d'efforts manuels !
Ce commentaire a été minimisé par le modérateur sur le site
Les instructions VBA étaient "sur place" ! ... même pour un novice ! A très bien fonctionné !
Ce commentaire a été minimisé par le modérateur sur le site
Très utile! Merci d'avoir partagé
Ce commentaire a été minimisé par le modérateur sur le site
Grande aide!!! extrêmement facile et utile :-)
Ce commentaire a été minimisé par le modérateur sur le site
Utilisé ceci et cela a fonctionné. Juste ce dont j'avais besoin. Merci
Ce commentaire a été minimisé par le modérateur sur le site
Fonctionne très bien, merci. J'ai créé ceci en tant que complément et je l'ai installé. Comment puis-je maintenant l'exécuter quand je le souhaite (sans avoir à copier et coller à chaque fois) ? Y a-t-il un bouton que j'appuie ou un nom de fonction que j'utilise ?
Ce commentaire a été minimisé par le modérateur sur le site
Son erreur d'affichage dans la ligne 8 .... xws cpy est une erreur
Ce commentaire a été minimisé par le modérateur sur le site
Cela a fonctionné pour moi après avoir supprimé l'Option Explicit, donc la variable devait être définie. Cependant, j'aimerais savoir en quoi cette variable doit être définie, car j'apprécie l'option Option Explicit :)
Ce commentaire a été minimisé par le modérateur sur le site
Ce code et les KUtools affichent tous deux une erreur après la conversion de 222 fichiers et après que 222 fichiers cessent de fonctionner.
Ce commentaire a été minimisé par le modérateur sur le site
Cher Monsieur, Pouvez-vous s'il vous plaît m'envoyer des détails sur la façon de coder pour diviser s
Ce commentaire a été minimisé par le modérateur sur le site
Vous pouvez suivre le codage ci-dessous. Codage VBA pour les feuilles fractionnées Alt+f11 Insert-module-f5 Sub Splitbook() 'Updateby20140612 Dim xPath As String xPath = Application.ActiveWorkbook.Path Application.ScreenUpdating = False Application.DisplayAlerts = False For Each xWs In ThisWorkbook.Sheets xWs.Copy Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & xWs.Name & ".xls" Application.ActiveWorkbook.Close False Next Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub
Ce commentaire a été minimisé par le modérateur sur le site
Les feuilles de calcul étaient le produit d'un rapport de tableau croisé dynamique, les nouveaux fichiers créés par le code conservent toujours la connexion à la source de données et peuvent être modifiés. le code peut-il être fait pour rompre la connexion du tableau croisé dynamique, ou ajouter une copie de chaque feuille et passé en tant que valeurs pour débarrasser la connexion ?
Ce commentaire a été minimisé par le modérateur sur le site
Cher M. Sanjay, j'ai essayé avec les codes, cela ne fonctionne que pour quelques feuilles, mais le fichier que j'essaie de diviser contient près de 466 feuilles. Puis-je connaître les codes pour cela? Merci.
Ce commentaire a été minimisé par le modérateur sur le site
Puis-je enregistrer votre script de module dans le classeur de macros PERSONNEL pour une utilisation future ?
Ce commentaire a été minimisé par le modérateur sur le site
Pouvez-vous s'il vous plaît me dire comment puis-je envoyer des e-mails de masse avec une pièce jointe personnalisée dans Outlook .. Regrads, Yasir
Ce commentaire a été minimisé par le modérateur sur le site
Salut Yasir, Vous ne pouvez pas envoyer de pièce jointe personnalisée dans le publipostage avec Outlook. Oui, peu d'outils externes sont là, mais ils sont très coûteux et ne sont pas fiables. Vous pouvez le faire avec Mozilla Thunderbird. Il vous suffit de télécharger l'ajout de publipostage et vous pouvez le faire.
Il n'y a pas encore de commentaires postés ici
TÉLÉCHARGER PLUS
Laisser vos commentaires
Publier en tant qu'invité
×
Évaluez cet article:
0   Personnages
Emplacements suggérés