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

Comment enregistrer ou exporter chaque feuille sous forme de fichier CSV / PDF dans Excel?

Par exemple, vous avez un grand classeur avec plusieurs feuilles et vous souhaitez enregistrer ou exporter chaque feuille en tant que fichier .csv ou PDF individuel, comment le faire facilement et rapidement? Dans cet article, je présenterai plusieurs méthodes pour le résoudre.


Enregistrez ou exportez chaque feuille en tant que fichier CSV / PDF avec la fonction Enregistrer sous

Comme vous le savez, Microsoft Excel peut enregistrer la feuille de calcul actuelle en tant que fichier .csv ou PDF individuel. Par conséquent, vous pouvez enregistrer ou exporter chaque feuille en tant que fichier .csv ou PDF une par une manuellement.

1. Basculez vers la feuille que vous allez enregistrer ou exporter en tant que fichier .csv individuel, puis cliquez sur Déposez le (ou Bouton Office)> Enregistrer sous.

2. Dans la boîte de dialogue d'ouverture, spécifiez le dossier de destination dans lequel vous allez enregistrer le fichier .csv, cliquez sur le bouton Enregistrer en tant que type de boîte et sélectionnez CSV (délimité par des virgules) (* .csv) or PDF (* .pdf) dans la liste déroulante, puis cliquez sur le Enregistrer .

3. Deux boîtes de dialogue d'avertissement apparaîtront successivement. Cliquez s'il vous plait OK > Oui.

Remarque : Si vous enregistrez la feuille de calcul active en tant que fichier PDF, ces boîtes de dialogue ne s'afficheront pas. Passez simplement à l'étape suivante.

4. Répétez les étapes 1 à 3 ci-dessus pour enregistrer les autres feuilles en tant que fichiers .csv individuels une par une.


Enregistrer ou exporter par lots chaque feuille en tant que fichier CSV avec VBA

S'il y a un certain nombre de feuilles que vous souhaitez enregistrer ou exporter en tant que fichiers .csv, la première méthode sera assez longue et fastidieuse. Ce VBA peut simplifier le travail et faciliter l'enregistrement ou l'exportation de chaque feuille sous forme de fichier .csv.

1. presse autre + F11 simultanément pour ouvrir la fenêtre Microsoft Visual Basic pour Application.

2. Cliquez insérer > Module, puis collez le code VBA suivant dans la nouvelle fenêtre de module.

VBA: enregistrez chaque feuille en tant que fichier CSV individuel

Public Sub SaveWorksheetsAsCsv()
Dim xWs As Worksheet
Dim xDir As String
Dim folder As FileDialog
Set folder = Application.FileDialog(msoFileDialogFolderPicker)
If folder.Show <> -1 Then Exit Sub
xDir = folder.SelectedItems(1)
For Each xWs In Application.ActiveWorkbook.Worksheets
xWs.SaveAs xDir & "\" & xWs.Name, xlCSV
Next
End Sub
3. Cliquez sur l' course bouton ou appuyez sur F5 clé pour exécuter ce VBA.

4. Dans la boîte de dialogue d'ouverture de recherche, spécifiez le dossier de destination dans lequel vous allez enregistrer tous les fichiers .csv, puis cliquez sur le bouton OK .

Ensuite, vous verrez que chaque feuille est enregistrée / exportée en tant que fichier .csv individuel dans le dossier de destination spécifié.


Lot enregistrez ou exportez chaque feuille en tant que fichier CSV / PDF avec Kutools for Excel

Certains utilisateurs d'Excel peuvent refuser le code VBA pour certaines raisons. Ne t'en fais pas! La troisième méthode peut également enregistrer par lots ou exporter chaque feuille en tant que fichier .csv ou fichier PDF facilement par le Classeur fractionné utilitaire de Kutools pour 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

1. Cliquez sur l' Entreprise > Classeur > Classeur fractionné.

doc chaque feuille à csv 2

2. Dans la boîte de dialogue d'ouverture du classeur fractionné,

doc chaque feuille à csv 8

(1) Continuez à sélectionner toutes les feuilles. Sinon, vous pouvez cocher la case avant Nom de la feuille de travail pour sélectionner toutes les feuilles;

(2) Vérifiez le Spécifiez le format d'enregistrement l'option;

(3) Cliquez sur la case ci-dessous Spécifiez le format d'enregistrement option, et sélectionnez CSV (Macintosh) (*. Csv) or PDF (* .pdf) dans la liste déroulante.

(4) Cliquez sur le Divisé .

 

Notes: S'il existe des feuilles de calcul masquées et vierges dans votre classeur, vérifiez Ignorer les feuilles de calcul masquées boîte et le Ignorer la feuille de calcul vierge box ignorera toutes les feuilles vierges ou masquées lors de l'exportation.

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

3. Dans la boîte de dialogue d'ouverture de recherche de dossier, spécifiez le dossier de destination dans lequel vous allez enregistrer tous les fichiers .csv ou PDF, puis cliquez sur le bouton OK .

Vous verrez maintenant que chaque feuille est exportée et enregistrée en tant que fichier .csv individuel dans le dossier spécifié.


Démo: enregistrez ou exportez chaque feuille sous forme de fichier CSV / PDF dans Excel


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!

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 (6)
Pas encore de notes. Soyez le premier à évaluer!
Ce commentaire a été minimisé par le modérateur sur le site
Merci pour vos conseils très utiles. J'ai utilisé le code vba pour convertir un fichier excel avec plusieurs feuilles en fichiers csv individuels. Je me demande, comment puis-je spécifier que j'aimerais que ces fichiers csv soient en utf-8 ? Y a-t-il un ajout au code ci-dessous qui ajoutera cette fonctionnalité ? Public Sub SaveWorksheetsAsCsv() Dim xWs As Worksheet Dim xDir As String Dim folder As FileDialog Set folder = Application.FileDialog(msoFileDialogFolderPicker) If folder.Show -1 Then Exit Sub xDir = folder.SelectedItems(1) For Each xWs In Application.ActiveWorkbook .Worksheets xWs.SaveAs xDir & "\" & xWs.Name, xlCSV Next End Sub
Ce commentaire a été minimisé par le modérateur sur le site
ActiveWorkbook.SaveAs Filename :=Replace(Replace(xSPath & xCSVFile & xWs.Name, ".xlsx", "", vbTextCompare), ".xls", "", vbTextCompare) & ".csv", FileFormat :=xlCSVUTF8, CréerSauvegarde :=Faux
Ce commentaire a été minimisé par le modérateur sur le site
Comment conserver et maintenir les valeurs décimales lors de l'exportation de feuilles Excel vers CSV ? les données financières nécessitent une précision des données jusqu'à 3 décimales lors de l'exportation vers CSV ? s'il vous plaît donnez votre avis
Ce commentaire a été minimisé par le modérateur sur le site
Salut prashan9810,
Avant d'exporter les feuilles d'Excel vers CSV, vous feriez mieux de modifier le formatage des nombres de devises et de fixer leurs décimales à 3.
Vous pouvez modifier les décimales comme suit :
1. Dans Excel, sélectionnez les cellules monétaires, faites un clic droit et sélectionnez Format de cellule dans le menu contextuel.
2. Dans la boîte de dialogue Format de cellule, sélectionnez Devise or Comptabilité dans le Catégories zone de liste, entrez 3 dans le Décimales boîte, et cliquez OK.
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour, merci pour ces conseils ! J'ai essayé d'utiliser le code VBA mais j'obtiens un code d'erreur d'exécution 91 pour la syntaxe suivante :

Si dossier.Afficher <> -1 Puis quitter le sous-marin

Pouvez-vous m'aider à résoudre le problème ? Je suis nouveau sur VBA. :)
Ce commentaire a été minimisé par le modérateur sur le site
Salut,

Veuillez vous assurer qu'il n'y a que le code VBA de ce didacticiel dans la fenêtre de votre module. S'il existe d'autres codes, veuillez les supprimer ou les déplacer vers un nouveau module.

Après cela, veuillez exécuter le code. Si cela ne fonctionne toujours pas, veuillez utiliser le code ci-dessous :
Public Sub SaveWorksheetsAsCsv()
Dim xWs As Worksheet
Dim xDir As String
Dim folder As FileDialog
On Error Resume Next
Set folder = Application.FileDialog(msoFileDialogFolderPicker)
If folder.Show <> -1 Then Exit Sub
xDir = folder.SelectedItems(1)
For Each xWs In Application.ActiveWorkbook.Worksheets
xWs.SaveAs xDir & "\" & xWs.Name, xlCSV
Next
End Sub


Amanda à écrit son
Il n'y a pas encore de commentaires postés ici
Laisser vos commentaires
Publier en tant qu'invité
×
Évaluez cet article:
0   Personnages
Emplacements suggérés