Modification des option d'impression d'un pdf VBA

Bonjour, je suis arrivé a faire une fonction vba pour imprimer un pdf, j'ai besoin maintenant de 3 choses :
-imprimer en recto/verso
-selectionner les pages a imprimer
-Pouvoir imprimer en A4/A3

Je ne sais pas du tout comment faire, j'ai cherché sur le forum mais j'ai rien trouvé de fonctionnel. Les sendkeys n'ont pas l'ai de fonctionner.
j'ai parametré les senkeys pour faire comme l'utilisateur devrait faire sur la fenêtre d'impression mais la fenêtre n'a même pas l'air de s'ouvrir. Le pdf s'ouvre et se referme sans imprimer.

Je vous mets le script :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32

Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) 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   Function imprTst(sPages As String, sFichier As String) Dim sAcro As String Dim Clip As MSForms.DataObject     sAcro = "C:\Program Files (x86)\Adobe\Acrobat Reader DC\Reader\AcroRd32.exe" ShellExecute 0, vbNullString, sFichier, vbNullString, vbNullString, vbNormalFocus Application.Wait (Now + TimeValue("00:00:03")) SendKeys "^p", True SendKeys "%g", True SendKeys "{TAB}", True SendKeys sPages, True SendKeys "{TAB}", True SendKeys "{TAB}", True SendKeys "{TAB}", True SendKeys "{TAB}", True SendKeys "v", True SendKeys "{ENTER}", True     KillAcrobatReader Set Clip = Nothing End Function   Private Sub KillAcrobatReader() Shell "Taskkill /im AcroRd32.exe /f", 0 End Sub

---

Voila, si quelqu'un a une piste pour le faire je suis preneur.

Merci

Bon j'ai trouvé ou ça allait pas, c'est le shellexecute qui était mal renseigné voila la fonction pour imprimer recto/verso et sur un nombre de page qu'il faut spécifier comme argument dans la macro qui appellera la fonction. Il y a des tempo pour attendre l'ouverture du fichier, l'ouverture de l'interface impression et l'attente de la progression de l'impression. vous pouvez les ajuster en fonction de vos machines et fichiers.

Pour l'impression A3 je pense que ça se gère de la même manière avec les sendkeys

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) 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 Option Explicit   Function imprTst(sPages As String, sFichier As String) Dim sAcro As String   sAcro = "C:\Program Files (x86)\Adobe\Acrobat Reader DC\Reader\AcroRd32.exe" ShellExecute 0, "open", sFichier, "", "", 0 Application.Wait (Now + TimeValue("00:00:03")) Application.SendKeys "^p", True Application.Wait (Now + TimeValue("00:00:02")) Application.SendKeys "%g", True Application.SendKeys "{TAB}", True Application.SendKeys sPages, True Application.SendKeys "{TAB}", True Application.SendKeys "{TAB}", True Application.SendKeys "{TAB}", True Application.SendKeys "{TAB}", True Application.SendKeys "v", True Application.SendKeys "{ENTER}", True Application.Wait (Now + TimeValue("00:00:10"))     Shell "Taskkill /im AcroRd32.exe /f", 0   End Function

---

La fonction est simple mais elle prend un peu de temps a s’exécuter en raison des sendkeys, puis elle est visible par l'utilisateur, c'est pas fou mais c'est tout ce que j'ai trouvé pour utiliser la version gratuite de acrobat reader.