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

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é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 (18)
Pas encore de notes. Soyez le premier à évaluer!
Ce commentaire a été minimisé par le modérateur sur le site
Salut, comment pourrait-on permettre à l'utilisateur d'entrer le nom du fichier par opposition à "Export.pdf" ? Merci, Ian
Ce commentaire a été minimisé par le modérateur sur le site
Sous EnregistrerAsPDF()
Mise à jour de l'application.Screen = False
ActiveSheet.ExportAsFixedFormat Type :=xlTypePDF, _
NomFichier :=Application.InputBox("Entrez le nom du fichier")

strExcelPath = "H:\Mes Documents"

Application.ScreenUpdating = True
End Sub
Ce commentaire a été minimisé par le modérateur sur le site
J'ai une demande similaire. Je souhaite que le fichier porte le même nom qu'une cellule particulière de l'onglet, c'est-à-dire : G19 (il s'agit du numéro de facture et je souhaite que le fichier soit enregistré au format PDF avec ce nom) ? . J'ai réussi à faire fonctionner export.pdf mais cela ne fonctionnera pas sur plusieurs sauvegardes.
Ce commentaire a été minimisé par le modérateur sur le site
Good Day,
Le code VBA suivant peut vous aider à résoudre le problème. Veuillez sélectionner la cellule G19 dans la boîte de dialogue contextuelle Kutoos for Excel après avoir exécuté le code. Merci pour votre commentaire.

Private Sub CommandButton1_Click ()
Dim xRg As Range
Dim xName As String
On Error Resume Next
Application.ScreenUpdating = Faux
Set xRg = Application.InputBox("Sélectionnez la cellule que vous nommerez le PDF avec la valeur de la cellule :", "Kutools for Excel", Selection.Address, , , , , 8)
Si xRg n'est rien, quittez Sub
xNom = xRg(1).Valeur
ActiveSheet.ExportAsFixedFormat Type :=xlTypePDF, _
Nom de fichier :="C:\PDF\" & xName & ".pdf", _
OpenAfterPublish: = False
Application.ScreenUpdating = True
End Sub
Ce commentaire a été minimisé par le modérateur sur le site
J'ai changé le chemin vers le lecteur D, mais il n'est pas enregistré dans le lecteur D. Que faire?
Ce commentaire a été minimisé par le modérateur sur le site
Salut Akshay MN,
Si vous avez modifié le chemin ci-dessus vers le lecteur D, assurez-vous qu'il existe un dossier nommé PDF dans votre lecteur D.
Si vous souhaitez uniquement enregistrer le fichier dans le lecteur D sans créer de sous-dossier, veuillez utiliser ce chemin de dossier : "C:\" & xName & ".pdf"
Ce commentaire a été minimisé par le modérateur sur le site
Je peux maintenant convertir mes fichiers au format PDF avec un bouton de commande, mais puis-je également obtenir cette même fonction pour autoriser un nom différent à chaque fichier ; basé sur une structure numérique existante ?
Ce commentaire a été minimisé par le modérateur sur le site
Salut Randy,
Désolé, je ne peux pas vous aider, n'hésitez pas à poster n'importe quelle question sur notre forum : https://www.extendoffice.com/forum.html pour obtenir plus de supports Excel de notre professionnel.
Ce commentaire a été minimisé par le modérateur sur le site
IL MONTRE l'erreur d'exécution '1004'
Ce commentaire a été minimisé par le modérateur sur le site
Salut Nzee,
J'ai besoin de connaître votre version d'Excel. Merci pour votre commentaire.
Ce commentaire a été minimisé par le modérateur sur le site
plz coller le codage pour enregistrer en tant que bouton pdf dans Microsoft Excel
Ce commentaire a été minimisé par le modérateur sur le site
Comment puis-je faire cela pour MS Word? J'ai un tas de questions avec des options de bouton radio comme réponses. Je souhaite donc créer un bouton de commande pour afficher les questions avec les réponses sélectionnées uniquement sur un autre document Word. Comment puis-je faire cela? Un code m'aiderait vraiment ! Je vous enverrai le document si vous en avez besoin. Merci!
Ce commentaire a été minimisé par le modérateur sur le site
Bonne journée,
Désolé, je ne peux pas encore vous aider.
Ce commentaire a été minimisé par le modérateur sur le site
Sous ZapiszPDF()
Dim sNazwaPliku As String

sNazwaPliku = ActiveSheet.Name

Application.Dialogs(xlDialogSaveAs).Afficher sNazwaPliku, 57

End Sub
Ce commentaire a été minimisé par le modérateur sur le site
j'ai suivi le code, voici ce que j'ai:

Private Sub CommandButton2_Click ()
Application.ScreenUpdating = Faux
ActiveSheet.ExportAsFixedFormat Type :=xlTypePDF, _
Nom de fichier :=Plage("P2"), _
OpenAfterPublish :=Vrai
Application.ScreenUpdating = True
End Sub

J'ai besoin que le fichier soit enregistré à l'emplacement où se trouve le fichier d'origine. également besoin d'une copie du fichier Excel pour enregistrer également avec le même nom.
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour Matt Bentley,
Le code fonctionne parfaitement. Merci pour le partage.
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour,

kann jemand mir helfen?

Ich nutze diese Zeilen und möchte jedoch, das aus dem Blatt ein Zellenwert als Dateiname gespeichert wird :

Private Sub CommandButton1_Click ()
Application.ScreenUpdating = Faux
ActiveSheet.ExportAsFixedFormat Type :=xlTypePDF, _
Nom de fichier :="C:\PDF\Exporter.pdf", _
OpenAfterPublish: = False
Application.ScreenUpdating = True
End Sub

Danke
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour,

ich nutze diese Zeilen und möchte das eine Zelle als Dateiname verwenden wird !
Kann mir jemand ein Tipp geben ?


Private Sub CommandButton1_Click ()
Application.ScreenUpdating = Faux
ActiveSheet.ExportAsFixedFormat Type :=xlTypePDF, _
Nom de fichier :="c:/" & G3 & ".pdf", _
OpenAfterPublish: = False
Application.ScreenUpdating = True
End Sub
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