Imprimer une suite de fichiers pdf avec vba excel

Bonsoir,

Je cherche à imprimer tous les fichiers PDF d'un répertoire. J'ai pensé ouvrir acrobat reader et lancer l'impression mais je buggue. Y aurait-il une âme charitable pour me donner un coup de main? L'application s'ouvre mais pas le fichier ????

Sub recherchefile()
Dim NomFichier As String
Dim Dossier As String

Dossier = "Mes documents\"
Chemin = "C:\Documents and Settings\Administrateur\" & Dossier
cheminfic = "c:/Documents and Settings/Administrateur/" & Left(Dossier, Len(Dossier) - 1) & "/"
Nb = 0
NomFichier = Dir(Chemin & "*.pdf")
While NomFichier <> ""
fic = cheminfic & NomFichier
MyAppID = Shell("C:\Program Files\Adobe\Reader 11.0\Reader\AcroRd32.exe & fic & ".pdf", 1)
Debug.Print AddItem; NomFichier
NomFichier = Dir
Nb = Nb + 1
Wend
Debug.Print Nb & " fichiers"
If Nb = 0 Then
Debug.Print "Pas de fichier dans le dossier"
End If

End Sub