Imprimer fichier PDF

Option Explicit
Public 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

Public Function Impression(a&, FileName$)
On Error Resume Next
Dim b&
b = ShellExecute(a, "Print", FileName, 0&, 0&, 3)
End Function

Sub Imprimer()
Dim result, Fichier$, Q
Fichier = "C:\Temp\test.pdf" ' adapter le chemin
Q = MsgBox("Voulez-vous-imprimer" & vbCrLf & Fichier, vbQuestion + vbOKCancel, "Impression document")
If Q = 1 Then
result = Impression(0, Fichier)
Else
Exit Sub
End If
End Sub

    Option Compare Text 'permet de ne pas faire de distinction entre minuscule et majuscule
    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 chemin As String
Dim x As Long
Dim nom As String
Dim Cellule As Range
Dim firstAddress As String
Dim format As String


nom = InputBox(" Quel est le nom du fichier que vous voulez imprimer? ")
           Application.ScreenUpdating = False

With ActiveSheet.Range("A7:A45")
    Set Cellule = .Find(nom, Lookat:=xlWhole)
    If Not Cellule Is Nothing Then
        firstAddress = Cellule.Address
        Do
            Exit Sub
            Set Cellule = .FindNext(Cellule)
        Loop While Not Cellule Is Nothing And Cellule.Address <> firstAddress
    End If
End With
    MsgBox "Le fichier n'existe pas"
        x = FindWindow("XLMAIN", Application.Caption)
        chemin = "E:\vba\base VBA\"
        format = ".pdf"
       
        ShellExecute x, "print", chemin & "nom" & format, "", "", 1
    End Sub