Discussion :

[Denis_67]

Bonjour,

J'ai fait un petit utilitaire qui permet d'imprimer un fichier PDF depuis Excel en me basant sur la fonction Silkyroad
https://excel.developpez.com/faq/ind...ion#ImprimePDF

Cela fonctionne, cependant j'ai une fenetre blanche acrobat reader qui apparait et qui reste ouverte avec le sablier, il faut donc que l'utilisateur la referme.
j'ai essayé d'ajouter un send key

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

SendKeys "^P"

sans succès
Merci pour votre aide
Denis

[kiki29]

Salut, depuis Office 2007 SP2 le format PDF est inclus en natif dans Office. A voir si tu veux manipuler des PDFs : Manipulations des PDF via Excel / Acrobat / PDFCreator / xPDF. Sinon tu peux passer par un kill.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub KillAcroRD32()
Dim RetVal As Long
    RetVal = Shell("Taskkill /im AcroRd32.exe /f", 0)
End Sub

[Denis_67]

Merci Kiki,

Le kill ne fonctionne pas.

Quant à tes modèles, je n'ai malheuresement pas 7-zip ni la possibilité de l'installer, et je n'aime pas passer par les convertisseurs en ligne.

Merci
Denis

[Al__22]

Comme l'as dit Kiki le format PDF existe en natif, autant l'utiliser

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sheets("LeNomDeLaFeuilleAImprimer").ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & "LeNomQueTuVeuxLuiDonner.pdf" _
                    , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
                    :=False, OpenAfterPublish:=True

[Denis_67]

je ne souhaite pas imprimer un classeur en pdf, ca je sais faire

je souhaite imprimer un fichier pdf présent sur un répertoire.

Merci

[Al__22]

Autant pour moi j'ai mal lu :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Declare Function FindExecutable Lib "shell32.dll" Alias "FindExecutableA" _
   (ByVal lpFile As String, ByVal lpDirectory As String, ByVal lpResult As String) As Long
 
Sub ImprimerPDF()
  Dim pdfEXE$, q$
 
  Dim fichier$
  fichier = "C:\TonChemin\TonFichier.pdf"
 
  pdfEXE = CheminExe(fichier)
  If pdfEXE = "" Then
    MsgBox "Executable non trouvé.", vbCritical, "Erreur"
    Exit Sub
  End If
 
  q = """"
  Shell q & pdfEXE & q & " /s /o /h /t " & q & fichier & q, vbHide
End Sub
 
Function CheminExe(FichierPDF As String) As String
   Dim DossierPDF As String, sCheminExe As String, rc As Long
 
   DossierPDF = "\"
   sCheminExe = Space(255)
   rc = FindExecutable(FichierPDF, DossierPDF, sCheminExe)
   sCheminExe = Left$(sCheminExe, InStr(sCheminExe, Chr$(0)) - 1)
   CheminExe = sCheminExe
 
End Function