Note: The other languages of the website are Google-translated. Back to English
Se connecter  \/ 
x
or
x
S'inscrire  \/ 
x

or

Comment utiliser le bouton de commande pour enregistrer la feuille de calcul active en tant que fichier PDF dans Excel?

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.

Utilisez le bouton de commande pour enregistrer la feuille de calcul active en tant que fichier PDF avec le code VBA
Enregistrez facilement l'actif ou chaque feuille de calcul en tant que fichier PDF individuel avec Kutools for Excel

Utilisez le bouton de commande pour enregistrer la feuille de calcul active en tant que fichier PDF avec le code VBA

Vous pouvez exécuter le code VBA suivant pour enregistrer une feuille de calcul active en tant que fichier PDF en cliquant sur un bouton de commande. Veuillez faire comme suit.

1. Tout d'abord, vous devez créer un dossier nommé PDF pour enregistrer votre nouveau fichier PDF converti. Ici, je crée ce dossier sur mon disque local (C :).

2. Veuillez insérer un bouton de commande en cliquant sur Développeur > insérer > Bouton de commande (contrôle ActiveX). Voir la capture d'écran:

2. Dessinez ensuite un bouton de commande dans la feuille de calcul dont vous avez besoin pour ajouter de nouvelles lignes, cliquez avec le bouton droit sur le bouton de commande et cliquez sur Propriétés dans le menu contextuel.

3. dans le Propriétés boîte de dialogue, entrez le texte affiché du bouton de commande dans le Légende boîte sous la Classés onglet, puis fermez la boîte de dialogue.

Vous pouvez voir que le texte affiché du bouton de commande est modifié comme illustré ci-dessous.

4. Cliquez à nouveau avec le bouton droit sur le bouton de commande, puis cliquez sur Voir le code dans le menu contextuel.

5. Dans l'ouverture Microsoft Visual Basic pour applications fenêtre, veuillez remplacer le code d'origine dans la fenêtre Code par le code VBA suivant.

Code VBA: bouton de commande pour enregistrer la feuille de calcul active au format PDF

Private Sub CommandButton1_Click()
    Application.ScreenUpdating = False
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
            Filename:="C:\PDF\Export.pdf", _
            OpenAfterPublish:=False
    Application.ScreenUpdating = True
End Sub

Notes: Dans le code, CommandButton1 est le nom du bouton de commande que vous utiliserez pour enregistrer la feuille active en tant que fichier PDF. "C: \ PDF \ Export.pdf" est le chemin et le nom de votre fichier PDF de sauvegarde.

6. appuie sur le autre + Q touches simultanément pour fermer le Microsoft Visual Basic pour applications la fenêtre. Puis éteignez le Mode de conception sous le Développeur languette.

Maintenant, cliquez sur le bouton de commande, la feuille de calcul active sera enregistrée en tant que fichier PDF nommé Exporter et située à l'emplacement spécifié.

Enregistrez chaque feuille de calcul en tant que fichier PDF individuel du classeur actif avec Kutools for Excel

Recommander ici le Classeur fractionné utilité de Kutools pour Excel pour enregistrer facilement la feuille de calcul active sous forme de fichier PDF. En outre, vous pouvez également enregistrer chaque feuille de calcul dans le classeur actuel en tant que fichier PDF individuel avec cet utilitaire.

Avant d'appliquer Kutools pour Excel, S'il vous plaît téléchargez et installez-le d'abord.

1. Dans le classeur, vous devez enregistrer chaque feuille de calcul en tant que fichier PDF individuel, puis cliquez sur Kutools Plus > Classeur > Classeur fractionné. Voir la capture d'écran:

2. dans le Classeur fractionné boîte de dialogue, veuillez configurer comme suit:

2.1) Vérifiez uniquement le nom de la feuille active dans le Nom de la feuille de travail boîte;
2.2) Sélectionnez PDF (* .pdf) Option de Enregistrer en tant que type de la liste déroulante;
2.3) Cliquez sur le Divisé bouton, puis un Sélectionner le dossier La boîte de dialogue apparaît, spécifiez un dossier pour enregistrer le fichier PDF;

Ensuite, la feuille de calcul sélectionnée est immédiatement enregistrée en tant que fichier PDF.

Notes:

1. Vous pouvez vérifier plusieurs noms de feuille de calcul dans la zone Nom de la feuille de calcul pour les enregistrer en tant que fichier PDF individuel à la fois;
2. Sauf pour enregistrer la feuille de calcul sous forme de fichiers pdf, vous pouvez enregistrer les feuilles de calcul au format txt. ou csv. fichier selon vos besoins.

  Si vous souhaitez bénéficier d'un essai gratuit (30 jours) de cet utilitaire, veuillez cliquer pour le télécharger, puis passez à appliquer l'opération selon les étapes ci-dessus.

Démo: enregistrez la sélection ou chaque feuille de calcul au format PDF avec Kutools for Excel

Articles connexes:

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ée...
  • 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 gammes...
  • 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 cellules...
  • 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 PDF...
  • 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
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Miclem · 9 days ago
    Sub ZapiszPDF()
    Dim sNazwaPliku As String

    sNazwaPliku = ActiveSheet.Name

    Application.Dialogs(xlDialogSaveAs).Show sNazwaPliku, 57

    End Sub
  • To post as a guest, your comment is unpublished.
    Sulaiman · 2 years ago
    How do I do this for MS Word? I have a bunch of questions with radio button options as answers. So I want to create a command button to output the questions with the selected answers only on another word document. How do I do this? A code would really help! I'll email you the document if you need it. Thanks!
    • To post as a guest, your comment is unpublished.
      crystal · 2 years ago
      Good day,
      Sorry can't help you with that yet.
  • To post as a guest, your comment is unpublished.
    atul tailor · 2 years ago
    plz paste coding for save as pdf button in microsoft excel
  • To post as a guest, your comment is unpublished.
    Nzee · 3 years ago
    IT SHOWS Run-Time error '1004'
    • To post as a guest, your comment is unpublished.
      crystal · 3 years ago
      Hi Nzee,
      I need to know your Excel version. Thank you for your comment.
  • To post as a guest, your comment is unpublished.
    Randy · 3 years ago
    I can convert my files to PDF now with a command button, but can I also get that same function to allow a different name to each file; based on an existed number structure?
    • To post as a guest, your comment is unpublished.
      crystal · 3 years ago
      Hi Randy,
      Sorry I can’t help with this, welcome to post any question in our forum: https://www.extendoffice.com/forum.html to get more Excel supports from our professional.
  • To post as a guest, your comment is unpublished.
    jo.colenso@gmail.com · 3 years ago
    I have a similar request I want the file to be named the same as a particular cell in the tab , IE: G19 ( This is the invoice number and I want the file to save as PDF with that name) ? . I have managed to get the export.pdf working but this isn't going to work on multiple saves.Any thoughts thanks
    • To post as a guest, your comment is unpublished.
      crystal · 3 years ago
      Good Day,
      The following VBA code can help you solve the problem. Please select cell G19 in the popping up Kutoos for Excel dialog box after running the code. Thank you for your comment.

      Private Sub CommandButton1_Click()
      Dim xRg As Range
      Dim xName As String
      On Error Resume Next
      Application.ScreenUpdating = False
      Set xRg = Application.InputBox("Select the cell you will name the PDF with the cell value:", "Kutools for Excel", Selection.Address, , , , , 8)
      If xRg Is Nothing Then Exit Sub
      xName = xRg(1).Value
      ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
      Filename:="C:\PDF\" & xName & ".pdf", _
      OpenAfterPublish:=False
      Application.ScreenUpdating = True
      End Sub
  • To post as a guest, your comment is unpublished.
    Ian · 4 years ago
    Hi,
    How would one allow the user to enter the file name as opposed to "Export.pdf"?
    Thanks,
    Ian
    • To post as a guest, your comment is unpublished.
      Mayur · 4 years ago
      Sub SaveAsPDF()
      Application.Screen Updating = False
      ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
      Filename:=Application.InputBox("Enter File Name")

      strExcelPath = "H:\My Documents"

      Application.ScreenUpdating = True
      End Sub