Passer au contenu principal

Comment convertir plusieurs classeurs ou feuilles de calcul en fichiers PDF à la fois dans Excel?

Parfois, vous devez convertir vos fichiers Excel en fichiers PDF, afin qu'ils ne puissent pas être modifiés par d'autres. Dans Excel, nous pouvons enregistrer un fichier Excel en tant que fichier PDF en utilisant la fonction Enregistrer sous. Mais comment convertir plusieurs classeurs en fichiers PDF en même temps dans Excel?


Convertissez plusieurs classeurs en fichiers PDF avec la fonction Enregistrer sous un par un

Normalement, la fonctionnalité Enregistrer sous dans Excel peut vous aider à enregistrer l'intégralité du classeur dans un fichier PDF, procédez comme suit:

1. Lancez votre classeur que vous souhaitez convertir au format PDF.

2Cliquez sur Déposez le > Enregistrer souset dans le Enregistrer sous boîte de dialogue, veuillez spécifier un dossier pour enregistrer le nouveau fichier, puis sélectionnez PDF du Enregistrer en tant que type de liste déroulante, puis cliquez sur Options bouton, voir capture d'écran:

3. Puis, dans le sauté Options boîte de dialogue, cochez Cahier complet, voir capture d'écran:

4. Et puis cliquez OK > Épargnez, tout ce classeur a été enregistré au format de fichier PDF.

Pourboires: Si vous avez plusieurs classeurs à convertir, veuillez appliquer les étapes ci-dessus pour enregistrer les classeurs dans des fichiers PDF un par un.

Convertissez plusieurs classeurs en fichiers PDF avec le code VBA à la fois

S'il y a des centaines de fichiers Excel à convertir, la méthode ci-dessus sera gênante, ici, je parlerai d'un code VBA pour convertir plusieurs classeurs en fichiers PDF à la fois, veuillez suivre les étapes suivantes:

1. Maintenez le ALT + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

2Cliquez sur insérer > Moduleet collez le code suivant dans le Module Fenêtre.

Code VBA: convertissez plusieurs classeurs en fichiers PDF à la fois

Sub ExcelSaveAsPDF()
'Updateby Extendoffice
    Dim strPath As String
    Dim xStrFile1, xStrFile2 As String
    Dim xWbk As Workbook
    Dim xSFD, xRFD As FileDialog
    Dim xSPath As String
    Dim xRPath, xWBName As String
    Dim xBol As Boolean
    Set xSFD = Application.FileDialog(msoFileDialogFolderPicker)
    With xSFD
    .Title = "Please select the folder contains the Excel files you want to convert:"
    .InitialFileName = "C:\"
    End With
    If xSFD.Show <> -1 Then Exit Sub
    xSPath = xSFD.SelectedItems.Item(1)
    Set xRFD = Application.FileDialog(msoFileDialogFolderPicker)
    With xRFD
    .Title = "Please select a destination folder to save the converted files:"
    .InitialFileName = "C:\"
    End With
    If xRFD.Show <> -1 Then Exit Sub
    xRPath = xRFD.SelectedItems.Item(1) & "\"
    strPath = xSPath & "\"
    xStrFile1 = Dir(strPath & "*.*")
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Do While xStrFile1 <> ""
        xBol = False
        If Right(xStrFile1, 3) = "xls" Then
            Set xWbk = Workbooks.Open(Filename:=strPath & xStrFile1)
            xbwname = Replace(xStrFile1, ".xls", "_pdf")
            xBol = True
        ElseIf Right(xStrFile1, 4) = "xlsx" Then
            Set xWbk = Workbooks.Open(Filename:=strPath & xStrFile1)
            xbwname = Replace(xStrFile1, ".xlsx", "_pdf")
            xBol = True
        ElseIf Right(xStrFile1, 4) = "xlsm" Then
            Set xWbk = Workbooks.Open(Filename:=strPath & xStrFile1)
            xbwname = Replace(xStrFile1, ".xlsm", "_pdf")
            xBol = True
        End If
        If xBol Then
            xWbk.ExportAsFixedFormat Type:=xlTypePDF, Filename:=xRPath & xbwname & ".pdf"
            xWbk.Close SaveChanges:=False
       End If
        xStrFile1 = Dir
    Loop
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub

3. Puis appuyez F5 clé pour exécuter ce code, et une fenêtre s'affichera, veuillez sélectionner un dossier contenant les classeurs que vous souhaitez convertir, voir capture d'écran:

4. Puis clique OK, une autre fenêtre apparaît, veuillez sélectionner un chemin de dossier dans lequel vous souhaitez exporter les nouveaux fichiers PDF, voir capture d'écran:

5. Et puis, clique OK, après avoir terminé la conversion, vous pouvez accéder au dossier spécifié pour prévisualiser le résultat converti, voir les captures d'écran:


Convertissez plusieurs classeurs en fichiers PDF avec une fonctionnalité puissante

Si vous avez Kutools for Excel, Avec son Convertisseur de format utilitaire, vous pouvez convertir rapidement plusieurs classeurs en fichiers PDF à la fois.

Pourboires:Appliquer cette Convertisseur de format fonctionnalité, tout d'abord, vous devez télécharger le Kutools for Excel, puis appliquez la fonction rapidement et facilement.

Après l'installation de Kutools for Excel, veuillez faire comme ceci:

1Cliquez sur Kutools Plus > Classeur > Convertisseur de format, voir capture d'écran:

2. Et une boîte de dialogue apparaît pour vous rappeler que vous devez fermer les classeurs que vous souhaitez convertir.

3Cliquez sur OK, alors, dans le Convertisseur FileFormat boîte de dialogue, spécifiez les options suivantes:

  • En vertu des Normes sur l’information et les communications, les organismes doivent rendre leurs sites et applications Web accessibles. Ils y parviennent en conformant leurs sites Web au niveau AA des Web Content Accessibility Guidelines (WCAG). Convertir le type liste déroulante, sélectionnez Classeur Excel au format PDF;
  • Puis clique Ajouter bouton pour ajouter les fichiers Excel que vous souhaitez convertir, vous pouvez ajouter les classeurs à partir de votre disque d'ordinateur ou OneDrive selon vos besoins; 

4. Après avoir inséré les classeurs que vous souhaitez convertir, toujours dans le Convertisseur de format de fichier boîte de dialogue, veuillez cliquer bouton pour choisir un chemin de dossier pour sortir les fichiers convertis, puis spécifiez certaines opérations dont vous avez besoin au bas de la boîte de dialogue, voir capture d'écran:

Notes: Dans la boîte de dialogue ci-dessus:
  • Si les classeurs des sous-dossiers devaient également être convertis, veuillez vérifier le Inclure les sous-dossiers lors de l'ajout de dossiers case à cocher;
  • Si vous souhaitez supprimer les fichiers d'origine après la conversion, veuillez vérifier le Supprimer les fichiers source après la conversion boîte;
  • Si vous souhaitez conserver la date de modification des fichiers originaux, veuillez cocher la case Conserver la date de modification des fichiers originaux boîte;
  • La structure des répertoires du fichier peut être conservée en vérifiant La structure des répertoires du fichier est conservée lors de la conversion boîte;

5. Puis clique OK pour commencer la conversion, lorsque tous les fichiers Excel spécifiés ont été convertis en fichiers PDF, vous pouvez aller dans le dossier spécifié pour prévisualiser le résultat converti, voir les captures d'écran:


Convertir plusieurs feuilles de calcul d'un classeur en fichiers PDF séparés avec le code VBA

Dans certains cas, vous souhaiterez peut-être convertir chaque feuille de calcul du classeur en fichiers PDF séparés.S'il y a beaucoup de feuilles dans votre classeur, le code VBA ci-dessous peut vous aider à enregistrer chaque feuille de calcul en tant que fichier PDF à la fois.

1. Ouvrez un classeur que vous souhaitez convertir, puis maintenez la touche ALT + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

2Cliquez sur insérer > Moduleet collez le code suivant dans le Module Fenêtre.

Code VBA: Convertissez plusieurs feuilles de calcul d'un classeur en fichiers PDF séparés

Sub SplitEachWorksheet()
'Updateby Extendoffice
Dim xSPath As String
Dim xSFD As FileDialog
Dim xWSs As Sheets
Dim xWb As Workbook
Dim xWbs As Workbooks
Dim xNWb As Workbook
Dim xInt, xI As Integer
Set xSFD = Application.FileDialog(msoFileDialogFolderPicker)
With xSFD
.title = "Please select a folder to save the converted files:"
.InitialFileName = "C:\"
End With
If xSFD.Show <> -1 Then Exit Sub
xSPath = xSFD.SelectedItems.Item(1)
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set xWb = Application.ActiveWorkbook
Set xWbs = Application.Workbooks
Set xWSs = xWb.Sheets
Set xNWb = xWbs.Add
xInt = xWSs.Count
For xI = 1 To xInt
On Error GoTo EBreak
Set xWs = xWSs.Item(xI)
If xWs.Visible Then
xWSs(xWs.Name).Copy
Application.ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=xSPath & "\" & xWs.Name & ".pdf"
Application.ActiveWorkbook.Close False
End If
EBreak:
Next
xWb.Activate
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

3. Puis appuyez F5 clé pour exécuter ce code, et une fenêtre apparaît, veuillez choisir un chemin de dossier pour localiser les fichiers PDF convertis, voir capture d'écran:

4. Puis clique OK bouton, toutes les feuilles de calcul du classeur actuel ont été converties en fichiers PDF séparément, voir capture d'écran:


Convertissez plusieurs feuilles de calcul d'un classeur en fichiers PDF séparés avec une fonctionnalité pratique

Kutools for Excel prend également en charge une fonctionnalité utile - Classeur fractionné, avec cette fonctionnalité, vous pouvez enregistrer plusieurs feuilles de calcul dans le classeur pour séparer le fichier Excel, le fichier Txt, le fichier CSV et le fichier PDF selon vos besoins.

Pourboires:Appliquer cette Classeur fractionné fonctionnalité, tout d'abord, vous devez télécharger le Kutools for Excel, puis appliquez la fonction rapidement et facilement.

Après l'installation de Kutools for Excel, veuillez faire comme ceci:

1. Ouvrez le classeur que vous souhaitez enregistrer chaque feuille en tant que fichier PDF, puis cliquez sur Kutool Plus > Classeur > Classeur fractionné, voir capture d'écran:

2. Dans le Classeur fractionné boîte de dialogue, cochez la feuille que vous souhaitez enregistrer, puis choisissez PDF (* .pdf) du Enregistrer en tant que type de liste déroulante, puis cliquez sur Diviser bouton, dans le Sélectionner le dossier fenêtre, spécifiez un dossier pour mettre les fichiers convertis, voir capture d'écran:

3. Et puis, toutes les feuilles de calcul sélectionnées dans le classeur actuel ont été enregistrées individuellement dans des fichiers PDF, voir capture d'écran:


Articles plus relatifs:

  • Convertir plusieurs fichiers Xls en fichiers Xlsx dans Excel
  • Pour convertir un ancien fichier Excel xls en un nouveau fichier xlsx, vous pouvez appliquer la fonctionnalité Enregistrer sous dans Excel, mais, s'il y a plusieurs fichiers xls à convertir, comment pourrait-il gérer cette tâche rapidement et facilement?
  • Enregistrer toutes les feuilles de calcul en tant que valeurs uniquement
  • Si vous avez un classeur qui contient plusieurs formules, vous devez maintenant distribuer ce fichier à d'autres utilisateurs, vous ne souhaitez pas afficher les formules mais seules les valeurs sont affichées. Normalement, nous pouvons enregistrer rapidement une feuille de calcul en tant que valeurs en copiant et en collant les données en tant que valeurs uniquement. Mais, comment pouvez-vous enregistrer toutes les feuilles de calcul en tant que valeurs uniquement sans les copier et les coller une par une?
  • Bouton de commande pour enregistrer la feuille de calcul active en tant que fichier PDF
  • Lorsque vous travaillez dans Microsoft Excel, vous pouvez être confronté au problème de l'enregistrement de la feuille de calcul active en tant que fichier PDF. Dans cet article, vous pouvez apprendre à enregistrer la feuille de calcul active en tant que fichier PDF avec le code VBA via un bouton de commande. Et si vous souhaitez également enregistrer une plage ou chaque feuille de calcul dans le classeur actif en tant que fichier PDF individuel, cet article peut également vous aider.
  • Diviser une grande table en plusieurs petites tables
  • Si vous avez une grande feuille de calcul qui contient plusieurs colonnes et des centaines ou des milliers de données de lignes, vous souhaitez maintenant diviser cette grande table en plusieurs petites tables en fonction de la valeur de la colonne ou du nombre de lignes pour obtenir les résultats suivants. Comment pourriez-vous gérer cette tâche dans Excel?
  • Fractionner un classeur pour séparer les fichiers 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.

Meilleurs outils de productivité bureautique

🤖 Aide à l'IA Kutools: Révolutionner l'analyse des données en s'appuyant sur : Exécution intelligente   |  Générer du code  |  Créer des formules personnalisées  |  Analyser les données et générer des graphiques  |  Invoquer les fonctions Kutools...
Caractéristiques populaires: Rechercher, mettre en évidence ou identifier les doublons   |  Supprimer les lignes vides   |  Combinez des colonnes ou des cellules sans perdre de données   |   Tour sans formule 
Super recherche: VSearchup à critères multiples    VSearch à valeurs multiples  |   Recherche virtuelle sur plusieurs feuilles   |   Recherche floue ....
Liste déroulante avancée: Créez rapidement une liste déroulante   |  Liste déroulante dépendante   |  Liste déroulante à sélection multiple ....
Gestionnaire de colonnes: Ajouter un nombre spécifique de colonnes  |  Déplacer les colonnes  |  Basculer l'état de visibilité des colonnes masquées  |  Comparer les plages et les colonnes 
Caractéristiques en vedette: Mise au point de la grille   |  Voir Design   |   Grande barre de formule    Gestionnaire de classeurs et de feuilles   |  Centre de ressources (Texte automatique)   |  Sélecteur de date   |  Combiner des feuilles de travail   |  Crypter/déchiffrer les cellules    Envoyer des e-mails par liste   |  Super filtre   |   Filtre spécial (filtre gras/italique/barré...) ...
Les 15 meilleurs ensembles d'outils12 Texte Outils (Ajouter du texte, Supprimer les caractères, ...)   |   50+ Graphique Types (Diagramme de Gantt, ...)   |   40+ Pratique Formules (Calculer l'âge en fonction de l'anniversaire, ...)   |   19 Insertion Outils (Insérer le code QR, Insérer une image à partir du chemin, ...)   |   12 Conversion Outils (Nombres en mots, Conversion des devises, ...)   |   7 Fusionner et fractionner Outils (Lignes de combinaison avancées, Cellules divisés, ...)   |   ... et plus

Améliorez vos compétences Excel avec Kutools for Excel et faites l'expérience d'une efficacité comme jamais auparavant. Kutools for Excel offre plus de 300 fonctionnalités avancées pour augmenter la productivité et gagner du temps.  Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...

Description


Office Tab apporte une interface à onglets à Office et facilite grandement 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!
Comments (5)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hello this might be to much, but is there a way to make a VBA that would separate multiples workbooks worksheets into to their own pdf file and for each header to be a text in a certain cell in worksheet for each one?
This comment was minimized by the moderator on the site
Thank you so much for this code.
This comment was minimized by the moderator on the site
the vba is really good and serves my purpose well. but can this code not be changed to create pdf from a particular sheet for multiple excel files (say 3rd worksheet of all 100 excel workbooks i have).
This comment was minimized by the moderator on the site
This is perfect for what I was looking for. Thanks for the sharing. I used to convert excel file to PDF file with Acethinker PDF Creator, one by one, not so quick, share it here as an alternative solution.
This comment was minimized by the moderator on the site
i am editing and updating my data in pdf explorer and i have already my data in excel sheet so now i want to export to my excel log to pdf explorer how
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations