[Crevette54]

Bonsoir,

Cela ne fonctionne pas !!!  :mur:

Bon, bizarrement ou pas en fait vu que je ne connais pas les rouages d’Acrobat, il faut que le fichier soit ouvert pour que cela fonctionne.

Normalement, lors de l’ouverture des objets Acrobat, il s’ouvre en arrière plan, mais ce soir avec mes essais cela ne veut pas.

Donc avant une intégration fonctionnelle dans Access, voici le code fonctionnel sans avoir pousser plus loin :

Code:

Sub Tst_JScript()
Dim PDDoc As Object
Dim JSO As Object
Dim sFichier As String

    Set PDDoc = CreateObject(“AcroExch.PDDoc”)

    sFichier = “C:UsersjeromeDocumentsFI_BD_FO.pdf”
   
    ShellExec (“C:UsersjeromeDocumentsFI_BD_FO.pdf”)
   
    If PDDoc.Open(sFichier) Then
        Set JSO = PDDoc.GetJSObject
        Debug.Print JSO.Aplatir()
        PDDoc.Close
        Set JSO = Nothing
    End If

    Set PDDoc = Nothing
 
End Sub

Encore merci à tous et surtout à bebarth.

:bonjour:

[Crevette54]

Bonsoir,

Merci pour le lien, effectivement le code est la même pratique.
Je te mets le lien de la discussion sur developpez, tu pourras y jeter un coup d’œil.
Voici le lien du code que je veux utiliser pour lancer l’aplatissement d’un formulaire :
http://www.developpez.net/forums/d431662-2/logiciels/microsoft-office/excel/contribuez/excel-word-pdf-adobe-acrobat-pro-pdfcreator/#post6820394

Pour cela il me faut un fichier script avec la commande d’aplatissement qui fonctionne un peu comme la fonction rajoutée grace aux outils de abracadabrapdf.

Merci.
Crevette

[Crevette54]

Bonsoir,

en fait depuis vba, j’utilise les bibliothèques d’acrobat pour pouvoir le piloter.
Cela permet facilement d’ouvrir un objet acrobat et de le manipuler comme enlever une page défini, remplir directement les champs d’un formulaire et aussi les lire, de lire dles commentaire lire et inserer des métadonnées, manipuler les signets…

Je mets un exemple de code qui permet d’insérer un pdf dans un autre :

Code:

‘Insert les pages de NomSlave dans NomMaster.

Sub Fusion_PDF(NomMaster As String, NomSlave As String, ou_ As Integer, NbrePage As Integer)
Dim oPDDoc1 As Object
Dim oPDDoc2 As Object
Dim oPDDoc3 As Object
Dim Num As Long

Set oPDDoc1 = CreateObject(“AcroExch.PDDoc”)
Set oPDDoc2 = CreateObject(“AcroExch.PDDoc”)

oPDDoc1.Open (NomMaster)
oPDDoc2.Open (NomSlave)
 
   
‘  Pour connaitre le nombre de pages
Num = oPDDoc2.GetNumPages()
‘Debug.Print Num
‘  Paramètres :
‘  1 Page du document en cours après laquelle l’insertion sera faite. La 1ere page est 0.
‘  2 Document contenant les pages à insérer.
‘  3 La 1ere page à être insérée dans le document en cours à partir du Document contenant les pages à insérer.
‘  4 Le nombre de pages à insérer.
‘  5 Si nombre > 0 les bookmarks sont copiés, si 0 ils ne le sont pas.

oPDDoc1.InsertPages ou_, oPDDoc2, 0, Num, 0
oPDDoc1.Save 1, NomMaster

oPDDoc2.Close
oPDDoc1.Close

Set oPDDoc2 = Nothing
Set oPDDoc1 = Nothing

Kill (NomSlave)
   
End Sub

Dans le cas ou il n’y a pas ce qu’il faut on peut aussi envoyer des commandes ‘sendkey’.

Bref, tout cela pour en revenir à mes moutons  :siffle:

Merci par avance.

Crevette

[Crevette54]

Bonsoir,

oui il y a une différence  voir image jointe avec à gauche la version aplatit et à droite la version imprimé en pdf.

Merci pour vos réponses, j’arrive à mettre un bouton sur le formulaire pour lancer la commande d’aplatissement, mais j’ai besoin de la mettre dans un fichier script pour pouvoir le lancer depuis access.

Merci par avance.

Crevette

[Crevette54]

Bonsoir,

je n’avais pas osé mettre le lien.  :Ooops:

http://www.developpez.net/forums/d431662/logiciels/microsoft-office/excel/contribuez/excel-word-pdf-adobe-acrobat-pro-pdfcreator/

Bonne soirée.

[Crevette54]

Bonsoir,

il y a une grande discussion sur le forum Developpez.com qui permet de manipuler les PDF avec VBA et VB.

Cordialement.

JG

[Crevette54]

Bonjour, merci votre réponse.

J’ai refait plusieurs test avec notamment juste un PDF standard et cela ne fonctionne pas, je suis repassé à la version Acrobat Reader mobile Android 15.2.2.

A suivre avec les prochaines mises à jour.  :priere:

Encore merci et bon courage !

JG

[Auteur]

Réponses