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 imprime_tous_pdf_repertoire()
Dim Fichier As String
Dim Chemin As String
Chemin = "C:\temp\"
Fichier = Dir(Chemin & "*.pdf")
' MsgBox Fichier
Do While Fichier <> ""
MsgBox Fichier
ShellExecute 0, "print", Fichier, vbNullString, Chemin, 0&
Fichier = Dir()
Loop
End Sub