Comment convertir plusieurs classeurs ou feuilles de calcul en fichiers PDF en une seule fois dans Excel ?

La conversion de fichiers Excel en PDF est une tâche courante lorsque vous souhaitez partager des données tout en empêchant les modifications. Bien que la fonction Enregistrer sous d'Excel vous permette de convertir un seul classeur en PDF, cela peut être chronophage pour plusieurs fichiers. Ce guide explore diverses méthodes, y compris le code VBA et Kutools pour Excel, pour convertir rapidement plusieurs classeurs ou feuilles de calcul en fichiers PDF en une seule fois.

• Convertir plusieurs classeurs en fichiers PDF avec la fonction Enregistrer sous un par un
• Convertir plusieurs classeurs en fichiers PDF avec du code VBA en une seule fois
• Convertir plusieurs classeurs en fichiers PDF avec une fonctionnalité puissante
• Convertir plusieurs feuilles de calcul d'un classeur en fichiers PDF séparés avec du code VBA
• Convertir plusieurs feuilles de calcul d'un classeur en fichiers PDF séparés avec une fonctionnalité pratique

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

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

1. Ouvrez le classeur que vous souhaitez convertir au format PDF.

2. Cliquez sur Fichier > Enregistrer sous, puis dans la boîte de dialogue Enregistrer sous, spécifiez un dossier pour enregistrer le nouveau fichier, sélectionnez ensuite PDF dans la liste déroulante Type de fichier, puis cliquez sur le bouton Options, voir capture d'écran :

3. Ensuite, dans la boîte de dialogue Options qui apparaît, cochez Tous les tableaux, voir capture d'écran :

4. Puis cliquez sur OK > Enregistrer, ce classeur entier a été sauvegardé au format de fichier PDF.

Convertir plusieurs classeurs en fichiers PDF avec du code VBA en une seule fois

S'il y a des centaines de fichiers Excel à convertir, la méthode ci-dessus pourrait être fastidieuse. Ici, je vais parler d'un code VBA pour convertir plusieurs classeurs en fichiers PDF en une seule fois, suivez les étapes suivantes :

1. Maintenez les touches ALT + F11 enfoncées pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.

2. Cliquez sur Insérer > Module, puis collez le code suivant dans la fenêtre Module.

Code VBA : Convertir plusieurs classeurs en fichiers PDF en une seule 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. Appuyez sur la touche F5 pour exécuter ce code, une fenêtre s'affichera, veuillez sélectionner un dossier contenant les classeurs que vous souhaitez convertir, voir capture d'écran :

4. Cliquez sur OK, une autre fenêtre apparaît, veuillez sélectionner un chemin de dossier où vous souhaitez enregistrer les nouveaux fichiers PDF, voir capture d'écran :

5. Cliquez sur OK, après avoir terminé la conversion, vous pouvez accéder au dossier spécifié pour afficher les résultats de la conversion, voir captures d'écran :

Convertir plusieurs classeurs en fichiers PDF avec une fonctionnalité puissante

Si vous disposez de Kutools pour Excel, avec son utilitaire Convertisseur de formats, vous pouvez rapidement convertir plusieurs classeurs en fichiers PDF en une seule fois.

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

2. Une boîte de dialogue apparaîtra pour vous rappeler de fermer les classeurs que vous souhaitez convertir.

3. Cliquez sur OK, puis, dans la boîte de dialogue Convertisseur de formats de fichier , spécifiez les options suivantes :

• Dans la liste déroulante Type de conversion, sélectionnez Convertir un classeur Excel en PDF ;
• Cliquez sur le bouton Ajouter pour sélectionner les fichiers Excel que vous souhaitez convertir. Vous pouvez choisir des classeurs depuis votre ordinateur ou OneDrive selon vos besoins.

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

5. Cliquez ensuite sur OK pour commencer la conversion. Une fois tous les fichiers Excel spécifiés convertis en PDF, accédez au dossier désigné pour afficher les résultats. Voir les captures d'écran ci-dessous :

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

Dans certains cas, vous souhaiterez peut-être convertir chaque feuille de calcul d'un classeur en fichiers PDF séparés. Si votre classeur contient de nombreuses feuilles, le code VBA ci-dessous peut vous aider à enregistrer chaque feuille sous forme de fichier PDF distinct simultanément.

1. Ouvrez un classeur que vous souhaitez convertir, puis maintenez les touches ALT + F11 enfoncées pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.

2. Cliquez sur Insérer > Module, puis collez le code suivant dans la fenêtre Module.

Code VBA : Convertir 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. Appuyez sur la touche F5 pour exécuter ce code, une fenêtre apparaîtra ; veuillez choisir un chemin de dossier pour enregistrer les fichiers PDF convertis. Voir capture d'écran :

4. Cliquez sur le bouton OK, et toutes les feuilles de calcul du classeur actuel seront converties en fichiers PDF séparés :

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

Kutools pour Excel prend également en charge une fonctionnalité utile - Séparer le classeur, avec cette fonctionnalité, vous pouvez enregistrer plusieurs feuilles de calcul dans le classeur sous forme de fichiers Excel, Txt, CSV et PDF individuels selon vos besoins.

1. Ouvrez le classeur où vous souhaitez enregistrer chaque feuille sous forme de fichier PDF séparé, puis cliquez sur Kutool Plus > Classeur > Séparer le classeur, voir capture d'écran :

2. Dans la boîte de dialogue Séparer le classeur, cochez les feuilles que vous souhaitez enregistrer, puis choisissez PDF (*.pdf) dans la liste déroulante Type de fichier, puis cliquez sur le bouton Séparer, dans la fenêtre Sélectionner un dossier, spécifiez un dossier pour placer les fichiers convertis, voir capture d'écran :

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

Articles connexes supplémentaires :