Imprimer un fichier PDF avec VBA dans Excel

Mis à jour 30/09/2022|20 commentaires

Saviez-vous qu'il était possible d'imprimer des fichiers autres qu'Excel directement à partir de VBA? Vous pouvez imprimer des fichiers PDF, des fichiers texte (.txt, .log, …) etc. grâce aux quelques lignes de code VBA.

Très utile si vous voulez imprimer des factures, des fiches de paie etc. en PDF à partir de votre fichier Excel contenant des données.

La seule chose dont vous avez besoin est le chemin complet (dossier & nom du fichier) du fichier à imprimer.

Code VBA pour imprimer un fichier PDF

Voici le code de base qui imprime un fichier PDF. Il vous suffit de copier ce code VBA dans un Module de votre projet et de changer le chemin vers le fichier à imprimer:

Sub ImpressionDeFichier()
'par Excel-Malin.com ( https://excel-malin.com )
Dim FichierAImprimer As Variant

FichierAImprimer = "C:\MonDossier\MonFichier.pdf" '<-- chemin complet du fichier à imprimer
    CreateObject("Shell.Application").Namespace(0).ParseName(FichierAImprimer).InvokeVerb ("Print")
End Sub

Sub ImpressionDeFichier()

'par Excel-Malin.com ( https://excel-malin.com )

Dim FichierAImprimer As Variant

FichierAImprimer = "C:\MonDossier\MonFichier.pdf" '<-- chemin complet du fichier à imprimer

CreateObject("Shell.Application").Namespace(0).ParseName(FichierAImprimer).InvokeVerb ("Print")

End Sub

Attention: n'oubliez pas que le code va utiliser l'imprimante qui est définie comme principale dans votre système.

Fonction VBA générique pour l'impression des fichiers

Pour rendre ce code plus flexible et plus facilement utilisable dans diverses situations, nous pouvons le transformer en une FONCTION VBA qui utilisera un paramètre: le chemin complet vers le fichier. Ainsi, il n'y aura pas de mention d'un fichier particulier dans votre code. C'est plus propre, plus pratique et surtout très facile à utiliser dans des boucles.

Voici donc le code de la fonction…

Public Function ImprimerFichier(FichierAImprimer As Variant)
'par Excel-Malin.com ( https://excel-malin.com )

    CreateObject("Shell.Application").Namespace(0).ParseName(FichierAImprimer).InvokeVerb ("Print")
End Function

Public Function ImprimerFichier(FichierAImprimer As Variant)

'par Excel-Malin.com ( https://excel-malin.com )

CreateObject("Shell.Application").Namespace(0).ParseName(FichierAImprimer).InvokeVerb ("Print")

End Function

Utilité de l'impression dans des applications VBA en Excel

Vous vous demandez peut-être quel est l'intérêt d'imprimer des fichiers PDF à partir d'Excel…

Imaginez que vous ayez un fichier Excel de comptabilité. Il suffit d'y ajouter les noms (et éventuellement les dossiers) de fichiers de factures. Ensuite, vous pouvez, avec une simple utilisation de boucles, imprimer par exemple toutes les factures pour une date spécifique. Ou pour un mois donné. Ou encore toutes les factures d'un fournisseur donné. Idem pour les factures émises: vous pouvez facilement imprimer toutes les factures envoyés (ou à envoyer) à un client particulier.

De même pour la gestion du personnel: vous voulez imprimer toutes les fiches de paie d'un employé? Ou les fiches de paie de janvier de tous les employés? Rien de plus facile en utilisant le code ci-dessus…

Sinon, cette fonction a une autre utilité: elle vous permettra, par exemple, d'imprimer tous les fichiers dans un dossier particulier. Ou par exemple tous les fichiers PDF dans un dossier particulier. Les combinaisons sont presque infinies.

Plus de détails sur la méthode .InvokeVerb sur le site de Microsoft…

Pour aller plus loin en VBA

Pour terminer, voici quelques articles qui pourraient vous être utiles lors de l'élaboration de vos macros VBA…

Liste de toutes les fonctions VBA – toutes les fonctions au même endroit!
Manipulation des fichiers dans VBA
Gestion des dates et du temps en VBA
Comment (de)compresser des fichier et dossiers avec VBA
Calculer la SOMME en VBA
VBA: envoyer un email à partir d'Excel

Auteur

Martin Hudec ( Excel-Malin.com )

Je suis analyste et développeur de systèmes, spécialisé dans l'automatisation des processus. Fort de nombreuses années d'expérience dans des institutions financières de renom, j'ai acquis une expertise approfondie en Excel et VBA. Créateur d'Excel-Malin.com, l'un des plus grands sites web francophones dédiés à Excel et VBA, je partage mes connaissances pour rendre ces outils accessibles à tous. En complément de mes compétences en Excel et VBA, je me suis tourné vers l'Intelligence Artificielle, notamment dans le domaine de l'automatisation et de l'application pratique dans les entreprises. Mon approche reste toujours pratique et orientée résultats, sans oublier ma passion pour simplifier les processus quotidiens avec des solutions efficaces.

244 articles

Laissez un commentaire Annuler la réponse

20 commentaires sur “Imprimer un fichier PDF avec VBA dans Excel”

20 commentaires

Paul
21/01/2019, 11:08

Bonjour
Est-ce que ce code fonctionne aussi sur la version Access 2016 ?
Je n'ai pas de message d'erreur mais l'impression ne se fait pas, ni ne va dans le spooler.
Merci pour votre site.

Répondre
- excel-malin.com Auteur de l’article
  21/01/2019, 13:34
  
  Bonjour Paul,
  comme ça, je ne sais ni affirmer, ni infirmer cette info.
  Quand j'ai un peu de temps, je vais le tester et je vous tiens au courant.
  Cordialement, Martin
  
  Répondre
Paul
21/01/2019, 13:47

Merci, mais n'y perdez pas trop de temps :). Si je trouve une solution, je l'ajouterai ici.

Répondre
Eric
10/06/2019, 12:29

Bonjour,

j'ai repris votre code en le modifiant légèrement, mais malheureusement, ce la ne fonctionne pas …

Nouveau code :

Sub ImpressionDeFichier()
'par Excel-Malin.com ( https://excel-malin.com )
Dim FichierAImprimer As String

Destination = ThisWorkbook.Path & "\Rapports_PDF\"

FichierAImprimer = Destination & "test.pdf" '<– chemin complet du fichier à imprimer
CreateObject("Shell.Application").Namespace(0).ParseName(FichierAImprimer).InvokeVerb ("Print")
End Sub

En effet, j'obtiens le message suivant : "Erreur d'execution '91' : Variable objet ou variable de bloc With non definie "

Y a t il une cas à cocher dans le VBE / outils / reference ?

Je suis sous office 365 / Windows 07 et mon imprimante par défaut est PDF Creator (car je veux créer un rapport avec plusieurs feuilles de mon fichier excel)

Merci d'avance pour votre aide !

Répondre
- excel-malin.com Auteur de l’article
  11/06/2019, 15:08
  
  Bonjour Eric,
  2 remarques:
  1) ce message d'erreur correspond au cas où le fichier mentionné n'existe pas. Vous pouvez le vérifier avec ce code:
  "VBA: Vérifier si fichier existe"
  
  2) Je viens de tester avec une imprimante virtuelle (CutePDFWriter) avec un fichier existant et le fichier "s'imprime" comme il faut. Donc je pense que le fait qu'il s'agisse d'une imprimante virtuelle ne pose pas de problème…
  
  J'espère que cela vous aidera à résoudre votre problème.
  Cordialement Martin
  
  Répondre
- Marc L
  15/02/2021, 14:35
  
  En late binding comme ici les variables passées à Shell doivent être impérativement de type Variant
  d'où l'erreur à cause de la variable String utilisée.
  
  Par contre en early binding – en activant la référence – aucun souci …
  
  Répondre
  - excel-malin.com Auteur de l’article
    04/03/2021, 14:41
    
    Merci pour le tuyau Marc!
    Cordialement, Martin
    
    Répondre
- BARNIER
  23/12/2021, 17:07
  
  Bonjour,
  est-il possible de modifier cette commande que l'impression soit faite sans qu'il ouvre le fichier ?
  merci
  
  Répondre
Robin
16/01/2020, 20:34

Bonjour !
Est-il possible de combiner ceci avec une impression d'une feuille excel pour créer un seul et même fichier ? J'ai un document avec plusieurs fiches produits auxquelles je dois rattacher des fiches techniques en pdf est-ce réalisable. Merci !

Répondre
Seb
08/03/2020, 09:41

Bonjour,

Esct-ce qu'il y a une référence particulière à activer ? Parce que pour ma part, rien de se passe. Que j'en fasse une procédure ou une fonction, il ne se passe rien. Je suis sous une version 2010.

Merci.

Répondre
- Seb
  08/03/2020, 10:33
  
  Précision : Je viens de tester l'impression de fichier .png et .docx et cela fonctionne. Le problème est pour les fichiers .pdf
  C'est très étrange. Faut-t-il un lecteur PDF particulier ? J'utilise Sumatra PDF portable. J'ai essayé de mettre Edge en lecteur par défaut, mais cela ne s'imprime toujours pas.
  
  Répondre
  - excel-malin.com Auteur de l’article
    19/03/2020, 14:20
    
    Bonjour Seb,
    normalement, il ne faut pas activer de référence particulière.
    Il est par contre possible que votre lecteur PDF ne soit pas compatible avec les fonctions Microsoft. (regardez ici: https://docs.microsoft.com/en-us/windows/win32/shell/folderitem-invokeverb)
    
    Moi j'utilise Adobe Reader DC (qui est je pense pré-installé dans les dernières versions de Windows) et tout se passe sans problème.
    Bien à toi, Martin
    
    Répondre
boschi
03/03/2021, 11:00

Bonjour, j'ai une erreur d’exécution 91 sur la ligne principale de la fonction. Mes chemins d'acces sont bons et le pdf est bien présent. J'ai bien acrobat reader dc sur mon ordi.

Répondre
- excel-malin.com Auteur de l’article
  04/03/2021, 14:40
  
  Bonjour,
  je viens d'adapter les fonctions en remplaçant le type de variable de String à Variant comme suggéré par Marc L dans un des commentaires.
  
  Cela devrait résoudre le problème. Vous pouvez alors réessayer.
  Cordialement, Martin
  
  Répondre
des courtis
07/08/2021, 00:19

Bonjour,

J'ai essayé d'adapter la fonction pour qu'avec une boucle, cela puisse imprimer tous les fichiers pdf dans un dossier. Mais j'avoue que mon do while ne marche pas du tout. Pourriez vous avoir la gentillesse de m'expliquer comment vous auriez fait votre boucle pour imprimer toutes les factures dans votre screen avec la fonction que vous avez créé.

Répondre
Benoit
29/09/2021, 07:59

Bonjour,

Merci pour vos informations.
Pour ma part, je me demande s'il est obligatoire d'avoir:
==> "La seule chose dont vous avez besoin est le chemin complet (dossier & nom du fichier) du fichier à imprimer."

Est-il possible de faire plusieurs macro de ce type:
Bouton 1 : Imprimer le PDF actif (à l'écran) en format A4 sur l'imprimante 1
Bouton 2 : Imprimer le PDF actif (à l'écran) en format A1 sur l'imprimante 2

Cette demande est dû à impression de nombreux PDF avec des formats différents.

Merci bien

Répondre
Mathieu
23/12/2021, 17:10

Bonjour,
je voulais savoir s'il était possible de modifier ce code pour que l'impression se déroule sans que le fichier ne soit ouvert ?
merci

Répondre
Léo
21/03/2022, 10:05

Bonjour, les imprimantes de mon réseau requiert un mot de passe, est t'il possible de le passer en paramètre dans le code ?

Répondre
DANSET RENE
17/01/2023, 11:32

j'ai utilisé votre fonction d'impression de fichier Pdf, qui fonctionne bien
cependant le problème que je rencontre est de pouvoir utiliser différentes imprimantes en fonction du type de document à imprimer
j'ai utilisé SetDefaultPrinter qui m'a permis de sélecter l'imprimante pour la première impression mais le problème subsiste car acrobat reste ouvert et garde l'imprimante initiale, il faudrait "tuer" l'application pour la redémarrer mais je n'ai pas trouvé de méthode
merci si vous avez une solution

Répondre
Anonyme
14/07/2023, 05:50

Bonjour,
tout d'abord merci, cela fonctionne tres bien.
Dans mon cas je souhaiterais imprimer que la premiere page. Est-ce que c'est possible avec le code que vous proposez ?
J'ai bien entendu cherche sur internet mais toutes les autres solutions sont trop lourde pour juste imprimer que la premiere page.
Merci

Répondre