Ouvrir et imprimer un pdf deouis un UserForm

[paul87]

Bonsoir à tous,
Bonsoir le Forum,
Je souhaite pouvoir ouvrir un Fichier .pdf depuis un UF et surtout l'imprimer directement..meme sans passer par sa visualisation..éventuellement.

Pour ouvrir des fichier .xls depuis mon Userform j'utilise ce code...qui marche bien..
mais pour pdf...est-ce possible..?

Workbooks.Open "\\...\....\....\....\....\mon fichier.xls"

Merci par avance

 

[paul87]

Re : Ouvrir et imprimer un pdf deouis un UserForm

re
avec ceci, j'arrive à ouvrir le .pdf...

ThisWorkbook.FollowHyperlink "\\..................\Mon Fichier.pdf"

Mais comment faire pour lancer une impression automatique de ce doc..?
Encore merci

 

[tototiti2008]

Re : Ouvrir et imprimer un pdf deouis un UserForm

Bonjour paul,

une piste pour imprimer les pdf par là :

https://www.excel-downloads.com/threads/imprimer-pdf-par-le-biais-dhypertexte.94951/

 

[paul87]

Re : Ouvrir et imprimer un pdf deouis un UserForm

bonsoir et merci..
mais je n'y arrive pas..!!
comment faire..?
svp

 

[kiki29]

Re : Ouvrir et imprimer un pdf deouis un UserForm

Salut,

Option Explicit

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
Const SW_SHOWNORMAL = 1

Sub Tst()
Dim sChemin As String
Dim hwnd As Long
    sChemin = ThisWorkbook.Path & "\" & "Test.pdf"
    ShellExecute hwnd, "print", sChemin, "", "", SW_SHOWNORMAL
End Sub