Imprimer une liste de fichiers pdf et word via vba excel

Bonjour, je ne maitrise pas trop vba pour manipuler acrobat:

Si je fais le programme ci dessous ça marche parfaitement je peux imprimer un fichier word via vbaExcell..donc en développant le code je peux imprimer une liste de fichiers word écrite dans excel.

J'aimerais faire la même chose pour imprimer un fichier pdf mais je ne sais pas comment faire. ça ne marche pas. apparemment il ne faut pas utiliser la commande printout pour imprimer un pdf
Pouvez vous m'aider s'il vous plait?
Cordialement

Sub ImprimerWordViaVBAEXCEL()
Dim WordObj As Object
On Error Resume Next
Set WordObj = CreateObject("Word.Application")
Word.documents.Open "C:\essai"
Word.ActiveDocument.PrintOut
Word.ActiveDocument.Close
End Sub

salut

vérifie du côté de l'API shellexecute.

Il y a plusieurs exemples dans les codes sources et même du coté Codyx me semble avoir deja vu du code

Merci j'ai essayé de faire un programme mais j'ai du mal:
Pour le fichier ABC.pdf, si j'écris:

Sub essai()
Dim AcroApp          As CAcroApp

Set AVDoc = CreateObject("AcroExch.AVDoc")
Call AVDoc.Open("C:\ABC.pdf", "")
Shell ("C:\Program Files\Adobe\Acrobat 7.0\Reader\" & "AcroRd32.exe /p """ & "C:\ABC.pdf" & """")
End Sub

Il va m'ouvrir le fichier en question et m'ouvrir aussi le menu pour l'imprimante.
Par contre il faut que je clique sur "OK" pour lancer l'impression..y a t'il un moyen d'éviter cela?
Comment fermer le fichier apres impression?

en te remerciant par avance

Salut
je te remercie c'est parfait. ça marche.
est ce que tu saurais par hasard ou je peux trouver la commande qui choisi l'imprimante par défaut de windows et comment définir tous les parametres (A3,A4,Recto,RectoVerso...)
Selon le pdf je dois imprimer selon différents formats.
Merci encore

Salut,

Oui effectivement, je veux automatiser cela.

Au travail, je dois sortir parfois une centaine de documents. Il y en a certains qui doivent être en A4 recto d'autres en A3 RectoVerso...c'est pas évident puisque chaque imprimante a son propre logiciel de configuration..

Je vais ouvrir une nouvelle discussion dans le forum.

Merci encore

Bon WE 

Bonjour,

Pour que le format du papier soit A3, utilise ça :
Activesheet.Pagesetup.PaperSize = xlPaperA3

Pour retourner au format A4 évidemment la propriété doit devenir xlPaperA4

Je crois (sans grandes convictions) que pour le recto verso il faut utiliser ça, mais je n'ai pas de quoi essayer :
Activesheet.PrintOut ManualDuplexPrint:=True

En fait la dernière ligne ne fonctionne que sous EXCEL 2007 d'après un collègue...

Merci, mais ça ne paramètre que l'imprimante pour excel.
Si j'imprime mon pdf via shellexecute, il ne prendra pas en compte que les parametres de l'imprimante par défaut.
Il ne prendra pas en compte les parametres de l'imprimante pour excel.
en fait il faudrait trouver une commande shell et peut etre sendkeys (?) pour paramétrer l'imprimante??