Imprimer les PDF d'un dossier depuis Excel Résolu

Question

Bonjour tout le monde, 

Voila mon problème j'ai dans "Mes Documents" un dossier dont le chemin est le suivant : 

D:\Session_Cyril\Mes documents\Facture Travail\

J'enregistre dans ce dossier toutes mes factures depuis Excel en PDF. Je souhaiterais savoir s'il m'est possible d'avoir un bouton qui enverrai automatiquement tout le contenu du dossier (donc des fichier PDF) à l'imprimante ?

J'ai trouvé le code suivant sur internet, j'y ai inséré mon chemin d'accès vers mon dossier, mais comme dirait Thierry Lhermite "Le temps passe et rien ne se passe, on est dans l'impasse" :D

Option Explicit

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
    (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
    (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String _
    , ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long


Sub ImprimerFichier()
    Dim NomFichier As String
    Dim x As Long
   
    x = FindWindow("XLMAIN", Application.Caption)
    NomFichier = "D:\Session_Cyril\Mes documents\Facture Travail.pdf"
   
    ShellExecute x, "print", NomFichier, "", "", 1
End Sub

Alors je ne sait pas si ce code est fonctionnel ou pas, mais moi quand je clique sur le bouton qui y est associé, rien ne se passe. Si quelqu'un peux m'aider ce sera avec plaisir, merci.

f894009 · Answer

Bonjour,

ce code marche tres bien, ai ajoute boucle sur les fichiers PDF du dossier

Option ExplicitPrivate Declare Function FindWindow Lib "user32" Alias "FindWindowA" _    (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPrivate Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _    (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String _    , ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As LongSub ImprimerFichier()    Dim x As Long, Chemin_Fichier As String, Nom_Fichier As String       Chemin_Fichier = "D:\Session_Cyril\Mes documents\"    x = FindWindow("XLMAIN", Application.Caption)    Nom_Fichier = Dir(Chemin_Fichier & "*.PDF")    'boucle nom de fichier PDF    Do While Nom_Fichier <> ""        ShellExecute x, "print", Chemin_Fichier & Nom_Fichier, "", "", 1        Nom_Fichier = Dir    LoopEnd Sub

cyrga11 · Answer

Bonjour f894009 et merci pour ta réponse.

Alors effectivement, en mettant le code que tu ma donné, cela fonctionne. En revanche, cela m'ouvre aussi Adobe Rearder.

Est il possible que les fichiers aille à l'imprimante (cela fonctionne merci à toi) sans s'ouvrir ?

f894009 · Answer

Re,

En revanche, cela m'ouvre aussi Adobe Rearder. Surprenant car pas chez moi !!!!!!!!! Vous n'auriez pas pdfcreator en imprimante ???????

cyrga11 · Answer

Non je n'ai même pas PDF CREATOR du tout.

cyrga11 · Answer

J'ai : 

Adobe Rearder IX
Adobe Shockwave Player 12.0
Adobe Flash Player 11 Plugin
Adobe Air
Adobe Flash Player 10 ActiveX
Acrobat.com

Si'il y a quelque chose de là que je doit virer je le fait. Mais je ne sais pas quoi

f894009 · Answer

Re,

Rectification, ca ouvre bien Adobe Reader. Je regarde.

A+

cyrga11 · Answer

Merci à toi a+

f894009 · Answer

Re,

D'apres les docs de:

https://access.developpez.com/faq/?page=Divers#Print_doc

ca devrait pas ouvrir Adobe mais ca le fait quand meme !!!!!!!

je continue

f894009 · Answer

Re,

A titre d'info, si vous imprimez un .docx, Word s'ouvre mais se referme tout seul.

cyrga11 · Answer

Re, effectivement, là le fichier s'ouvre et se ferme tout seul. Cela ne pourrait t'il pas venir de ce qui permet d'ouvrir les PDF sur le PC ?

f894009 · Answer

Re,

ce qui permet d'ouvrir les PDF sur le PC Oui, mais adobe est oblige de s'ouvrir pour imprimer le fichier

cyrga11 · Answer

Donc il ne pourras se fermer automatiquement comme word ? 

Parce que à la limite je m'en fiche qu'il s'ouvre s'il se ferme seul. Ne peux ton pas programmer qu'il se ferme tout seul alors ?

f894009 · Answer

Re,

C'est ce que je cherche, qu'il se ferme tout seul. Ai trouve quelques codes, mais pas marche.

Je continue

cyrga11 · Answer

merci je cherche aussi de mon coter si je trouve avant je te préviens :)

cyrga11 · Answer

J'ai trouver ce bout de code, mais impossible de le faire fonctionner avec le reste

Sub Ferme_Pdf()
Const WM_SYSCOMMAND& = &H112, SC_CLOSE& = &HF060
SendMessage Apphwnd, WM_SYSCOMMAND, SC_CLOSE, 0&
End Sub

cyrga11 · Answer

alors j'ai trouver ce code qui mentionne bien la fermeture du pdf, mais qui au lieu de me fermer le pdf m'envoie le fichier excel entier a l'imprimante. 

Sub test()
Dim Wk As Workbook
Set Wk = Workbooks("MATRICE FIDELIA TVA 101.xlsm")
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
        Imprimante_AdobePDF, Collate:=True
Call Fermer_Un_Programme("Acrobat.exe")
Wk.Activate
End Sub

Sub Fermer_Un_Programme(Prog As String)
Dim StrComputer As String, objWMIService As Object
StrComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\" & StrComputer & "oot\cimv2")
Set colProcessList = objWMIService.ExecQuery _
    ("Select * from Win32_Process Where Name = '" & Prog & "'")
For Each objProcess In colProcessList
    objProcess.Terminate
Next
End Sub

Si tu peux en faire quelque chose de mieux ?

f894009 · Answer

Re,

au lieu de me fermer le pdf m'envoie le fichier excel ben oui, le code est fait pour ca. Je regarde ce que je peux en faire pur la fermeture de adobe reader (ce n'est pas acrobat.exe, mais AcroRd32.exe)

A+

f894009 · Answer

Re,

devrait aller:

Option ExplicitPrivate Declare Function FindWindow Lib "user32" Alias "FindWindowA" _    (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPrivate Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _    (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String _    , ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long'imprimer fichier PDF depuis EXCELSub ImprimerFichier()    Dim x As Long, Chemin_Fichier As String, Nom_Fichier As String, Acrobat       Chemin_Fichier = "D:\Session_Cyril\Mes documents\"    x = FindWindow("XLMAIN", Application.Caption)    Nom_Fichier = Dir(Chemin_Fichier & "*.PDF")    'boucle nom de fichier PDF    Do While Nom_Fichier <> ""        ShellExecute x, "print", Chemin_Fichier & Nom_Fichier, "", "", 1        'attente        Application.Wait (Now + TimeValue("0:00:01"))        Call Fermer_Un_Programme("AcroRd32.exe")        Nom_Fichier = Dir    LoopEnd SubSub Fermer_Un_Programme(Prog As String)    Dim StrComputer As String, objWMIService As Object, objProcess, colProcessList        StrComputer = "."    Set objWMIService = GetObject("winmgmts:" _                & "{impersonationLevel=impersonate}!\" & StrComputer & "oot\cimv2")    Set colProcessList = objWMIService.ExecQuery("Select * from Win32_Process Where Name = '" & Prog & "'")    For Each objProcess In colProcessList        objProcess.Terminate    NextEnd Sub

A+

cyrga11 · Answer

Si j'ai bien compris tout ce code remplace aussi celui qui imprime les pdf qui se trouvent dans le dossier. 

Seulement cela m'affiche une erreur d'exécution '-2147217406 (80041002)':

Non trouvé

et quand je clique sur débogage, ça m'envoie dans Visual Basic et la phrase suivante est surligné en jaune : 

        objProcess.Terminate

cyrga11 · Answer

Si j'augmente le TimeValue :

Application.Wait (Now + TimeValue("0:00:50"))

ça marche, mais quand le pdf se ferme, l'erreur de débogage apparaît et un seul fichier sur deux est envoyer a l'imprimante. 

Désolé je voie bien que c'est pas évident et merci encore pour l'aide apporté

cyrga11 · Answer

Alors j'ai réussi quelques petits trucs, grâce à toi.

En module 2 j'ai collé ton code pour commandé l'envoi des fichier pour l'imprimante : 

Option Explicit

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
    (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
    (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String _
    , ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long


Sub ImprimerFichier()
    Dim x As Long, Chemin_Fichier As String, Nom_Fichier As String
   
    Chemin_Fichier = "D:\Session_Cyril\Mes documents\FACTURE TRAVAIL\"
    x = FindWindow("XLMAIN", Application.Caption)
    Nom_Fichier = Dir(Chemin_Fichier & "*.PDF")
    'boucle nom de fichier PDF
    Do While Nom_Fichier <> ""
        ShellExecute x, "print", Chemin_Fichier & Nom_Fichier, "", "", 1
        Nom_Fichier = Dir
    Loop

End Sub

Et en module 3 j'ai collé ce code qui reprend le tiens et rajoute des ligneS depuis Sub Ferme_PDF () : 


Sub Fermer_Un_Programme(Prog As String)
 Dim StrComputer As String, objWMIService As Object
 StrComputer = "."
 On Error Resume Next
 Set objWMIService = GetObject("winmgmts:" _
     & "{impersonationLevel=impersonate}!\" & StrComputer & "oot\cimv2")
 Set colProcessList = objWMIService.ExecQuery _
     ("Select * from Win32_Process Where Name = '" & Prog & "'")
 For Each objProcess In colProcessList
     objProcess.Terminate
 Next
 End Sub
 
 Sub Ferme_PDF()
 Dim Wk As Workbook
 Set Wk = Workbooks("MATRICE FIDELIA TVA 101.xlsm") ' mettre ici le nom du fichier xlsm qui ferme le pdf
 Call Fermer_Un_Programme("AcroRd32.exe")
 Wk.Activate
 End Sub

Chaque fonction s'exécute à partir d'un bouton différent. Avec le bouton IMP j'envoie les factures pdf à l'imprimante et avec le bouton CLOSE  je ferme le fichier pdf.

Seulement voila, je me heurte à un nouveau problème. Je ne peux pas cliquer sur le bouton CLOSE tant que tout les fichiers ne sont pas arrivé à l'imprimante et je je ne peux le savoir qu'en ouvrant : Afficher les travaux d'impression en cours".

Alors y aurait il un moyen pour que le bouton IMP m'ouvre aussi "Afficher les travaux d'impression en cours" et que le bouton CLOSE ferme cette fenêtre en plus du pdf ?

f894009 · Answer

Bonjour,

1/ dans ce code ce qui est en gras ne vous sert a rien pour votre contexte

Sub Ferme_PDF()       Dim Wk As Workbook       Set Wk = Workbooks("MATRICE FIDELIA TVA 101.xlsm") ' mettre  ici le nom du fichier xlsm qui ferme le pdf       Call Fermer_Un_Programme("AcroRd32.exe")       Wk.ActivateEnd Sub 


2/cliquer sur le bouton CLOSE tant que tout les fichiers

cette ligne de code,
Application.Wait (Now + TimeValue("0:00:01")) sert a attendre que le fichier soit recu en memoire dans l'imprimante, j'ai mis 1 seconde, mais suivant le PC, 2 a 3 secondes suffisent


Je regarde pour la boite impression en attente

f894009 · Answer

Re,

Ceci dit, je n'ai eu qu'une seule fois l'erreur  d'exécution '-2147217406 ..... au debut et jamais depuis !!!!!

cyrga11 · Answer

J'ai trouver des choses qui pourraient être intéressante ici, mais cela ne fonctionne pas. 

https://www.excel-downloads.com/threads/vba-gerer-les-impressions-par-vba.32925/

cyrga11 · Answer

Alors j'ai trouver ce code qui me conviendrait très bien : 


Option Explicit
 
Private Declare Function OpenPrinter Lib "winspool.drv" Alias "OpenPrinterA" _
(ByVal pPrinterName As String, phPrinter As Long, pDefault As Any) As Long
 
Private Declare Function ClosePrinter Lib "winspool.drv" _
    (ByVal hPrinter As Long) As Long
 
Private Declare Function EnumJobs Lib "winspool.drv" Alias "EnumJobsA" _
(ByVal hPrinter As Long, ByVal FirstJob As Long, ByVal NoJobs As Long, _
ByVal Level As Long, pJob As Any, ByVal cdBuf As Long, pcbNeeded As Long, _
pcReturned As Long) As Long
 
 
Sub fichiersFileAttenteImpression()
Dim hPrinter As Long, lNeeded As Long, lReturned As Long
Dim lJobCount As Long
 
'Adaptez le nom de l'imprimante
OpenPrinter "HP Officejet 4500 G510n-z_TMP00", hPrinter, ByVal 0&
EnumJobs hPrinter, 0, 99, 1, ByVal 0&, 0, lNeeded, lReturned
 
If lNeeded > 0 Then
    ReDim byteJobsBuffer(lNeeded - 1) As Byte
    EnumJobs hPrinter, 0, 99, 1, byteJobsBuffer(0), lNeeded, lNeeded, lReturned
 
    If lReturned > 0 Then
        lJobCount = lReturned
        Else
        lJobCount = 0
    End If
 
    Else
 
    lJobCount = 0
End If
 
ClosePrinter hPrinter
MsgBox "nombre de documents dans la file d'attente: " + _
    CStr(lJobCount), vbInformation
End Sub
 Mais ma question est, est'il possible de faire en sorte que la boite de dialogue s'affiche seule une fois que tout les fichiers sont arrivés à l'imprimante à la suite de ce code là : 

Option Explicit

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
    (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
    (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String _
    , ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long


Sub ImprimerFichier()
    Dim x As Long, Chemin_Fichier As String, Nom_Fichier As String
   
    Chemin_Fichier = "D:\Session_Cyril\Mes documents\Facture FIDELIA\"
    x = FindWindow("XLMAIN", Application.Caption)
    Nom_Fichier = Dir(Chemin_Fichier & "*.PDF")
    'boucle nom de fichier PDF
    Do While Nom_Fichier <> ""
        ShellExecute x, "print", Chemin_Fichier & Nom_Fichier, "", "", 1
        Nom_Fichier = Dir
    Loop

End Sub

Si ce n'est pas possible ce n'est pas grave, je rajouterais un bouton de plus et puis voila.

f894009 · Answer

Re,

C'est bien d'avoir chercher, j'ai vu ces codes, mais je pense qu'il y a beaucoup plus simple.

Compter le nombre de PDF dans le repertoire et decompter au moment de l'impression (apres la ligne d'attente), des que plus de fichier, appel du code de fermeture acrord32.

qu'en pensez-vous ???

cyrga11 · Answer

Alors là ce serait le paradis :)

f894009 · Answer

Re,

je vous fait ca.

A+

cyrga11 · Answer

Vous êtes génial merci beaucoup :)

f894009 · Answer

Re,

Apres simple reflexion pas d=besoin de compter les fichiers, fermer acrord32 apres la mise en file d'attente du dernier fichier

Option ExplicitPrivate Declare Function FindWindow Lib "user32" Alias "FindWindowA" _    (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPrivate Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _    (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String _    , ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long'imprimer fichier PDF depuis EXCELSub Imprimer_Fichier()    Dim x As Long, Chemin_Fichier As String, Nom_Fichier As String, Acrobat, Chemin As String, NFichiers As Byte        Chemin_Fichier = "D:\Session_Cyril\Mes documents\"    x = FindWindow("XLMAIN", Application.Caption)    Nom_Fichier = Dir(Chemin_Fichier & "*.PDF")    'boucle nom de fichier PDF    Do While Nom_Fichier <> ""        ShellExecute x, "print", Chemin_Fichier & Nom_Fichier, "", "", 1        'attente        Application.Wait (Now + TimeValue("0:00:02"))        Nom_Fichier = Dir    Loop    'attente    Application.Wait (Now + TimeValue("0:00:02"))    Call Fermer_Un_Programme("AcroRd32.exe")End SubSub Fermer_Un_Programme(Prog As String)    Dim StrComputer As String, objWMIService As Object, objProcess, colProcessList        StrComputer = "."    Set objWMIService = GetObject("winmgmts:" _                & "{impersonationLevel=impersonate}!\" & StrComputer & "oot\cimv2")    Set colProcessList = objWMIService.execQuery("Select * from Win32_Process Where Name = '" & Prog & "'")    For Each objProcess In colProcessList        objProcess.Terminate    NextEnd Sub

A+

cyrga11 · Answer

Avec ce code, il m'envoie une des douze facture à l'imprimante et m'affiche une erreur de débogage sur : objProcess.Terminate

f894009 · Answer

Re,

    chez moi avec votre programme: aucune erreur

avec pdfcreator: attente a 2 secondes
avec une imprimante: attente a 5 secondes

Avant cette modif:
Vous n'appuyez sur le bouton qu'a la fin ????

cyrga11 · Answer

Petite question, les fichiers sont censé se mettre en attente d'impression, mais l'imprimante doit'elle forcément être allumé pour recevoir les fichiers en attentes ?

Le problème viens peut-être de là sur mon pc

cyrga11 · Answer

avant cette modif :

j'appuie sur le bouton : imp facture pour lancer les fichier a l imprimante

sur le bouton : etat imp pour voir si les fichier sont arrivé en attente d impression

et sur le fichier : close pdf pour fermer le fichier

ce dernier code que vous m'avez donné, je l'ai mis dans le bouton imp facture et j'appuie dessus pour envoyer les fichiers à l'imprimante.

f894009 · Answer

Re,

si le spooler d'imprimante est en service, les fichiers se placent dans une zone memoire tampon en attendant que l'imprimante soit detectee et vous pouvez les voir en ouvrant la fenetre travaux en attente de l'imprimante par defaut

cyrga11 · Answer

Ça y est, je viens de réussir à faire marcher ton code. Le problème sur mon pc venait des TimeValue. Je l'ai ai passer de 02 à 10 et ça fonctionne. 

Un très grand merci à toi f894009 pour ta patience et ton savoir faire. ;)

Imprimer les PDF d'un dossier depuis Excel

36 réponses

Newsletters