Bonjour, je souhaite imprimer un document via Shell32.dll.

j'ai comme élément de base le code suivant :
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

Dim NbFichiers As Long
Dim Tableau() As String
Const Dossier As String = "C:\Transfert"

Sub Tst()
Dim hwnd As Long
Dim i As Long
Dim DossierOk As String

DossierOk = Dossier
If Right(DossierOk, 1) <> "\" Then DossierOk = Dossier & "\"
ListeFichiers DossierOk, "pdf"
If NbFichiers > 0 Then
For i = 1 To UBound(Tableau)
ShellExecute hwnd, "print", DossierOk & Tableau(i), "", "", SW_SHOWNORMAL
Next
End If
End Sub

Private Sub ListeFichiers(ByVal NomDossierSource As String, ByVal Extension As String)
Dim NomFichier As String
NomFichier = Dir(NomDossierSource & "*." & Extension)

Erase Tableau
NbFichiers = 0
Do While Len(NomFichier) > 0
NbFichiers = NbFichiers + 1
ReDim Preserve Tableau(1 To NbFichiers)
Tableau(NbFichiers) = NomFichier
NomFichier = Dir()
Loop
End Sub


mais lors de l'éxécution j'ai un défaut:
"Point d'entrée shellexecute d'une DLL introuvable dans shell32.dll"
alors là, je sèche


si quelqu'un à une idées, je suis preneur
à vot' bon coeur m'sieur dame