Discussion :

[capi81]

Bonsoir le forum

Mes vœux les meilleurs à tous les membres de ce forum :
Paix, Santé, Prospérité et assistance du seigneur dans tous vos projets et actions.

Cela fait 2 mois que je suis à la recherche d'une solution pour imprimer certaines pages d'un fichier PDF.
J'ai pu grâce à des recherches trouvé un code qui m'a permis de l'adapter à ma solution.
Elle fonctionne à moitié bien car je n'arrive pas à l'adapter à l'impression des pages nécessaires de fichier PDF.
Je vous le soumet pour appréciation et proposition sachant que je souhaite imprimer la page 2-3 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
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
 
 
 
 
 
Sub Imprimer_turquoise()
 
    Dim Nomfic As String, spath As String
 
    Dim X As Long
 
 
 
    X = FindWindow("XLMAIN", Application.Caption)
 
    spath = Environ("USERPROFILE")
 
    spath = spath & "\Desktop\Z_YEB\"
 
    Nomfic = Sheets("PARAMETRE_ADMIN").Range("AS1") '"02&51-FORMULAIRE DE DEMANDE DE CARTE.pdf"
 
 
 
    ShellExecute X, "print", spath & Nomfic, 2, 3, 1
 
End Sub

Encore bonne et heureuse année

[Menhir]

Si ton lecteur de PDF est accrobat Reader, tu intègres à ton module la bibliothèque d'objet Adobe Acrobat Browser Control Type.
Elle intègre la méthode PrintPages.

[capi81]

Bonjour Menhir et le forum

Merci pour votre contribution.

Si ton lecteur de PDF est accrobat Reader, tu intègres à ton module la bibliothèque d'objet Adobe Acrobat Browser Control Type

Effectivement c'est accrobat Reader je viens de l'activer.
Voici ce que j'ai mis:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ShellExecute X, "printpages", spath & Nomfic, 2, 3, 1

mais ca ne marche pas.
Quelle est la bonne formule?

merci

[Menhir]

Je n'ai jamais pratiquer ça, je n'en sais donc pas plus.
Pour savoir comment faire, il faudrait que j'utilise l'explorateur d'objet de la bibliothèque concernée, chose que tu peux faire aussi bien que moi.

Tout ce que je sais c'est que tu ne pourras pas faire ça en passant par l'explorateur (le Shell et ses cousins).
Il faudra que tu passes par la manipulation d'objets d'Accrobat Reader, entre autre vraisemblablement la méthode PrintPage.

C'est une piste de recherche. A toi de la suivre pour trouver le reste.

Deux minutes de recherche sur Internet m'ont permis de trouver ceci qui peut t'aider :
http://www.adobe.com/devnet/acrobat/..._reference.pdf

[capi81]

Bonjour Menhir et le forum

Merci pour votre réponse et surtout pour les pistes de solution.
J'ai parcouru le lien que vous joint mais j'ai pas pu retebir quelque (tout est en anglais).
Vous aurez essayé.

Cordialement

[Menhir]

J'ai parcouru le lien que vous joint mais j'ai pas pu retebir quelque (tout est en anglais).

Quand on veut des informations un peu pointues en informatique, il faut s'attendre à se confronter à l'anglais.
Mais c'est de l'anglais technique, par d'un très haut niveau de complexité. Avec un site de traduction et un peu de réflexion, ça passe assez bien.

Vous aurez essayé.

Non