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 une feuille active 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 for 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 for 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-jour) de cet utilitaire, veuillez cliquer pour le télécharger, puis passez à appliquer l'opération selon les étapes ci-dessus.

Démo : Enregistrer 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-2021 et 365. Prend en charge toutes les langues. Déploiement facile dans votre entreprise ou organisation. Fonctionnalités complètes 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 (33)
Pas encore de notes. Soyez le premier à évaluer!
Ian
Ian
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
Répondre
0
0
Mayur
Mayur     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
Répondre
0
0
Jo Colenso
Jo Colenso
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.
Répondre
Rapport
0
0
cristal
cristal     Jo Colenso
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 dans laquelle vous nommerez le PDF avec la valeur de la cellule :", "Kutools for Excel", Sélection.Adresse, , , , , 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
Répondre
Rapport
0
0
Akshay MN
Akshay MN     cristal
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?
Répondre
0
0
cristal
cristal     Akshay MN
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"
Répondre
Rapport
0
0
Excité
Excité
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 ?
Répondre
0
0
cristal
cristal     Excité
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.
Répondre
Rapport
0
0
Nzee
Nzee
Ce commentaire a été minimisé par le modérateur sur le site
IL MONTRE l'erreur d'exécution '1004'
Répondre
0
0
cristal
cristal     Nzee
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.
Répondre
Rapport
0
0
tailleur atul
tailleur atul
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
Répondre
0
0
Sulaiman
Sulaiman
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!
Répondre
0
0
cristal
cristal     Sulaiman
Ce commentaire a été minimisé par le modérateur sur le site
Bonne journée,
Désolé, je ne peux pas encore vous aider.
Répondre
Rapport
0
0
miclem
miclem
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
Répondre
0
0
Matt Bentley
Matt Bentley
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.
Répondre
0
0
cristal
cristal     Matt Bentley
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour Matt Bentley,
Le code fonctionne parfaitement. Merci pour le partage.
Répondre
Rapport
0
0
Sascha
Sascha
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
Répondre
0
0
Sascha
Sascha
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
Répondre
0
0
cristal
cristal     Sascha
Ce commentaire a été minimisé par le modérateur sur le site
Salut Sasha,
Le code suivant peut vous aider. Avant d'appliquer le code, veuillez modifier 'C:\Utilisateurs\Win10x64Test\Documents\PDF' dans la quatrième ligne vers votre propre chemin de dossier de destination.
Private Sub CommandButton1_Click()
'Updated by Extendoffice 20220929
    Application.ScreenUpdating = False
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
            Filename:="C:\Users\Win10x64Test\Documents\PDF\" & Range("G3").Value, _
            OpenAfterPublish:=False
    Application.ScreenUpdating = True
End Sub
Répondre
Rapport
0
0
Diane
Diane
Ce commentaire a été minimisé par le modérateur sur le site
Что это за кнопка - "другой" + Q клавиши одновременно" ?
Répondre
0
0
cristal
cristal     Diane
Ce commentaire a été minimisé par le modérateur sur le site
Salut Диана,
C'est la touche "Alt" de votre clavier. Microsoft Excel permet aux utilisateurs d'appuyer sur les touches "Alt" + "Q" pour fermer la fenêtre Microsoft Visual Basic pour Applications et revenir à la feuille de calcul.
Répondre
Rapport
0
0
max
max
Ce commentaire a été minimisé par le modérateur sur le site
Bonne journée

is het mogelijk om een ​​filmpje of een voorbeeld excelblad te maken voor de Command-Knop Om Een ​​Actief Werkblad Op Te Slaan Als PDF-Bestand Met VBA-Code.
kom er niet helemaal uit met de codes.
alvast merci
Répondre
0
0
cristal
cristal     max
Ce commentaire a été minimisé par le modérateur sur le site
Salut Max,
Désolé je ne comprends pas ce que tu veux dire. Vous devrez peut-être joindre une capture d'écran de ce que vous essayez de faire. Désolé pour le dérangement.
Répondre
Rapport
0
0
Ben Stoddard
Ben Stoddard
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour l'équipe,

Je me demandais simplement si quelqu'un pouvait aider à changer la destination du fichier créé sur le bureau de n'importe quel utilisateur ? Mon entreprise n'autorise pas l'accès à C: donc le script ne fonctionne pas.

BEAUCOUP BEAUCOUP BEAUCOUP merci !
Répondre
0
0
cristal
cristal     Ben Stoddard
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour Ben Stoddart,
Il vous suffit d'ouvrir n'importe quel dossier sur votre bureau et de copier le chemin du dossier dans la zone d'adresse, puis de remplacer le chemin du dossier dans le code VBA par le chemin que vous avez copié.
Voici la nouvelle ligne du nom de fichier (veuillez remplacer le nom d'utilisateur par votre propre nom d'utilisateur), Exporter.pdf est le nom et l'extension de fichier du fichier PDF :
Nom de fichier :="C:\Utilisateurs\Nom d'utilisateur\Desktop\PDF\Export.pdf", _
Répondre
Rapport
0
0
James
James
Ce commentaire a été minimisé par le modérateur sur le site
Chaque fois que je l'exécute, il enregistre un PDF sur mon lecteur local où les feuilles Excel sont enregistrées, comment puis-je empêcher l'enregistrement automatique ?

Private Sub CommandButton1_Click ()
Application.ScreenUpdating = Faux
ActiveSheet.ExportAsFixedFormat Type :=xlTypePDF, _
OpenAfterPublish :=Vrai
Application.ScreenUpdating = True
End Sub
Répondre
0
0
James
James
Ce commentaire a été minimisé par le modérateur sur le site
Lorsque j'exécute ci-dessous, une version locale du PDF est automatiquement créée. Comment puis-je empêcher l'enregistrement automatique ?

Private Sub CommandButton1_Click ()
Application.ScreenUpdating = Faux
ActiveSheet.ExportAsFixedFormat Type :=xlTypePDF, _
OpenAfterPublish :=Vrai
Application.ScreenUpdating = True
End Sub
Répondre
Rapport
0
0
cristal
cristal     James
Ce commentaire a été minimisé par le modérateur sur le site
Salut James,
Voulez-vous faire apparaître une fenêtre pour sélectionner un dossier pour enregistrer le fichier PDF manuellement ?
Répondre
Rapport
0
0
James
James     cristal
Ce commentaire a été minimisé par le modérateur sur le site
Salut Crystal, idéalement oui, donc je peux ensuite choisir où enregistrer le PDF.
Répondre
Rapport
0
0
cristal
cristal     James
Ce commentaire a été minimisé par le modérateur sur le site
H James,

Le code VBA suivant peut vous aider à résoudre le problème.
Notes: Vous ne pouvez pas gérer à la fois la destination et le nom du fichier. Après avoir ajouté le code VBA suivant, lorsque vous cliquez sur le bouton, une boîte de dialogue apparaîtra pour vous permettre de sélectionner un dossier de destination. Après avoir sélectionné un dossier de destination, une boîte apparaîtra pour que vous donniez un nom au fichier PDF. 

Private Sub CommandButton1_Click()
'Updated by Extendoffice 20221223
    Dim xDlg As FileDialog
    Dim xFolder As Variant
    Set xDlg = Application.FileDialog(msoFileDialogFolderPicker)
    Dim xStrName As String
    If xDlg.Show <> -1 Then Exit Sub
    
    xFolder = xDlg.SelectedItems(1)
    
    xStart = InputBox("file name", "KuTools for Excel", ActiveSheet.Name & ".pdf")

    Application.ScreenUpdating = False

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
            Filename:=xFolder & "\" & xStart, _
            OpenAfterPublish:=False
    Application.ScreenUpdating = True

End Sub
Répondre
Rapport
0
0
Sascha
Sascha
Ce commentaire a été minimisé par le modérateur sur le site
Ich nutze diese Zeilen und das funktioniert auch gut, mein Problem ist nur, sollte diese Datei bereits vorhanden sein, wird diese einfach überschrieben !
Wie kann ich das vermeiden, es sollte eine Meldung kommen, Datei existiert bereits und es soll bedet werden ?
Répondre
0
0
Sascha
Sascha
Ce commentaire a été minimisé par le modérateur sur le site
Ich nutze diese Zeilen und das funktioniert auch gut, mein Problem ist nur, sollte diese Datei bereits vorhanden sein, WIRD diese einfach überschrieben !
Wie kann ich das vermeiden, es sollte eine Meldung kommen, Datei existiert bereits und es soll bedet werden ?


Private Sub CommandButton1_Click ()
Application.ScreenUpdating = Faux
ActiveSheet.ExportAsFixedFormat Type :=xlTypePDF, _
Nom du fichier :="X:\firmen\Buchhaltung\Rechnungs-Kopie_Ackermann Service GmbH\2022\RK-Abrechnung\" & ActiveSheet.Range("G1") & ".pdf", _
OpenAfterPublish :=Vrai
Application.ScreenUpdating = True
End Sub
Répondre
0
0
cristal
cristal     Sascha
Ce commentaire a été minimisé par le modérateur sur le site
Salut Sasha,
Le code VBA suivant peut vous aider. Veuillez essayer.

Private Sub CommandButton1_Click()
'Updated by Extendoffice 20221230
    Dim xPDFName As String
    Dim xPDFPath As String
    Dim xObjFS As Object
    Dim xNum As Integer
    Dim xStr As String
    
    xPDFName = "Export" 'The file name
    xPDFPath = "D:\work\Jan\test\" 'The file path
    Application.ScreenUpdating = True
    On Error Resume Next
    Set xObjFS = CreateObject("Scripting.FileSystemObject")
    xStr = xPDFPath & xPDFName & ".pdf"
    xNum = 1
    If xObjFS.FileExists(xStr) Then
    xResponse = MsgBox("The file already exists, do you want to overwrite it?", vbYesNo, "www.extendoffice.com", "", 0)
       If xResponse <> vbYes Then
       Exit Sub
      End If
    End If
    Application.ScreenUpdating = False
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
            FileName:=xStr, _
            OpenAfterPublish:=False
    Application.ScreenUpdating = True
End Sub
Répondre
Rapport
0
0
Il n'y a pas encore de commentaires postés ici

Nous suivre

Copyright © 2009 - www.extendoffice.com. | Tous les droits sont réservés. Alimenté par ExtendOffice. | | Plan du site
Microsoft et le logo Office sont des marques commerciales ou des marques déposées de Microsoft Corporation aux États-Unis et / ou dans d'autres pays.
Protégé par Sectigo SSL