Comment modifier ou exporter des fichiers Excel en PDF?
Vous trouverez ci-dessous des exemples d'exportation de fichiers Excel au format PDF.
Exemple 1
Enregistrez la feuille de calcul en tant que fichier PDF!
Par exemple, regardez les données ou le graphique ci-dessous, qui montrent la hiérarchie du service dans une organisation.
Nous pouvons simplement choisir Enregistrer sous dans l'option Fichier et choisir le type Enregistrer sous en tant que «PDF».
Ce serait toujours le fichier au format PDF mais regardez, à quoi il ressemble lorsque vous l'ouvrez.
En PDF, il est disponible en deux feuilles différentes, ce qui n'a absolument aucun sens. Si vous utilisez simplement Enregistrer sous et que vous choisissez le type de fichier au format PDF, c'est ce qui se passe lorsque le contenu du fichier ou de la feuille de calcul dépasse la zone d'adaptation d'une seule feuille PDF.
Pour cela, nous devons sélectionner la zone de contenu que nous essayons d'enregistrer en tant que fichier PDF. Appuyez ensuite sur Ctrl + P pour ouvrir sous la fenêtre d'aperçu avant impression.
Sous Paramètres, choisissez "Ajuster la feuille sur une seule page".
Cliquez maintenant sur Enregistrer sous dans la même fenêtre et choisissez PDF comme type de fichier.
Cela adaptera toutes les données dans une seule page PDF.
C'est la technique courante que nous utilisons tous régulièrement.
Cependant, que se passe-t-il si un bouton peut produire un fichier PDF de la feuille de calcul Excel ??? Oui, cela peut être fait en utilisant le codage VBA; suivez les étapes ci-dessous pour créer du code VBA afin de convertir la feuille Excel au format PDF.
Exemple # 2 - Utilisation du code VBA
Étapes pour convertir une feuille Excel en PDF à l'aide du code VBA.
Étape 1: Déclarez les variables dans VBA, comme indiqué ci-dessous.
Étape 2: définissez maintenant la référence du classeur et de la feuille de calcul aux variables «Ws» et «Wb».
Étape 3: Pour donner un nom au fichier, nous devons enregistrer l'heure actuelle, c'est-à-dire l'heure au moment de l'exécution du code. Réglez l'heure sur la variable «SaveTime».
Étape 4: Nous devons maintenant enregistrer le fichier PDF à l'emplacement exact du classeur sur lequel nous travaillons. Attribuez cette valeur à la variable «Enregistrer le chemin».
Étape 5: Maintenant, nous devons combiner les noms de fichiers et l'heure pour créer un nom de fichier unique.
Étape 6: Nous devons donner la possibilité de choisir le chemin de destination pour enregistrer le fichier.
Étape 7: Maintenant, nous devons créer un fichier PDF.
En cas d'erreur, nous devons également gérer cela. Donc, le code ci-dessous fera de même.
Vous trouverez ci-dessous le code complet pour vous.
Code:
Sub Excel_To_PDF () 'Declare Variables Dim Ws As Worksheet Dim Wb As Workbook Dim SaveTime As String Dim SaveName As String Dim SavePath As String Dim FileName As String Dim FullPath As String Dim SelectFolder As Variant' Set Variables On Error GoTo EH Set Wb = ActiveWorkbook Set Ws = ActiveSheet 'Record Current Time SaveTime = Format (Now (), "yyyy mm jj _ hhmm")' Record Current Workbook Folder Path Address SavePath = Wb.Path If SavePath = "" Then SavePath = Application.DefaultFilePath End If SavePath = SavePath & " " 'Donner un nom au fichier SaveName = "PDF" FileName = SaveName & "_" & SaveTime & ".pdf"' Indiquer où enregistrer FullPath = SavePath & FileName 'Activer le sélecteur de dossier pour choisir où enregistrer le fichier SelectFolder = Application.GetSaveAsFilename _ (InitialFileName: = FullPath, _ FileFilter: = "PDF Files (* .pdf), * .pdf", _ Title: = "Select Folder and FileName to save") 'Create PDF File If SelectFolder "False" Then Ws .ExportAsFixedFormat _ Type: = xlTypePDF, _ FileName: = SelectFolder, _ Quality: = xlQualityStandard, _ IncludeDocProperties: = True, _ IgnorePrintAreas: = False, _ OpenAfterPublish: = False End If exitHandler: Exit Sub EH: MsgBox "Not A créer un fichier PDF "Resume exitHandler End Sub= False, _ OpenAfterPublish: = False End Si exitHandler: Exit Sub EH: MsgBox "Incapable de créer un fichier PDF" Resume exitHandler End Sub= False, _ OpenAfterPublish: = False End Si exitHandler: Exit Sub EH: MsgBox "Incapable de créer un fichier PDF" Resume exitHandler End Sub
Copiez ce code et collez-le dans le module de Visual Basic Editor pour ouvrir l'éditeur Visual Basic, appuyez sur alt = "" + F11. Lorsque nous exécutons ce code en appuyant sur la touche F5, nous obtenons l'option suivante.
Vous pouvez voir que votre fichier Excel est maintenant converti en PDF.
Choses dont il faut se rappeler
- Si les données ne sont pas suffisamment adaptées pour une seule page, le PDF poussera le contenu supplémentaire vers la feuille suivante.
- Ce code créera tout le contenu de la feuille de calcul sous forme de fichier PDF.
- Une fois que vous copiez le code de macro, vous devez enregistrer le classeur en tant que classeur prenant en charge les macros.
