XL 2021 Piloter PDFSam par vba

PDFsam à dit:

• Interface de ligne de commande ?
  PDFsam Basic et PDFsam Visual sont tous deux alimentés par Sejda SDK, notre moteur de recherche PDF source ouverte. Sejda SDK dispose d’une interface de ligne de commande appelée sejda-console offrant un grand nombre de tâches PDF à l’aide de ligne de commande.

Cliquez pour agrandir...

jurassic pork à dit:

1 - On lance PDFSam
2 - On cherche la fenêtre principale de PDFSam
3 - On clique sur le bouton Découper
4 - On attend que le panneau de Découper apparaisse
5 - On remplit le champ du chemin du PDF source
6 - On clique sur le bouton radio Après les pages suivantes
7 - On remplit le champ des pages suivantes
8 - On remplit le champ du répertoire de sortie
9 - On clique sur le bouton Exécuter

Cliquez pour agrandir...

TooFatBoy à dit:

Du coup, c'est quoi la différence par rapport à l'utilisation normale de PDFsam tout seul ?

Cliquez pour agrandir...

jurassic pork à dit:

Ben rien, on rejoue ce que l'on fait dans PDFSam

Cliquez pour agrandir...

TooFatBoy à dit:

Si ça fait comme un enregistreur de commandes et qu'on peut réutiliser ledit "enregistrement" sur plusieurs fichiers, c'est intéressant.

Cliquez pour agrandir...

jurassic pork à dit:

Hello,
voilà à quoi cela ressemble avec UIAutomation :

VB:

Sub PDFSamAutomation()
Dim c As New CUIAutomation, oPDFSam As IUIAutomationElement
Dim oDesktop As IUIAutomationElement, oBtn As IUIAutomationElement
Dim oPane As IUIAutomationElement, oEdit As IUIAutomationElement
Dim oGroup As IUIAutomationElement, oRbtn As IUIAutomationElement
Shell "D:\Logiciels\PdfSam\PdfSam.exe" 'Lancement Logiciel PDFSam
Set oDesktop = c.GetRootElement
Set oPDFSam = WaitForUiElem(c, oDesktop, "AutoId", "JavaFX1", _
                            TreeScope_Children, 20) ' Recherche de la fenêtre PDFSam TimeOut 20 secondes
Set oBtn = WaitForUiElem2c(c, oPDFSam, "CtrlType", 50000, _
                               "Name", "Découper", TreeScope_Descendants, 2) 'Bouton Découper
GetIacc(oBtn).DoDefaultAction ' clic sur le bouton
Set oPane = WaitForUiElem(c, oPDFSam, "CtrlType", 50033, TreeScope_Children, 2) 'Premier Panneau
Set oEdit = WaitForUiElem(c, oPane, "CtrlType", 50004, TreeScope_Children, 2)
GetIacc(oEdit).SetValue "D:\temp\output.pdf" 'Remplir Fichier PDF à exploiter
Set oGroup = WaitForUiElem(c, oPane, "Name", "Paramètres de découpage", TreeScope_Children, 2)
Set oRbtn = WaitForUiElem(c, oGroup, "Name", "Après les pages suivantes", TreeScope_Children, 2)
GetIacc(oRbtn).DoDefaultAction ' DefaultAction = cocher
Set oEdit = WaitForUiElem(c, oGroup, "CtrlType", 50004, TreeScope_Children, 2)
GetIacc(oEdit).SetValue "1,2,5" 'Remplir avec pages de séparation
Set oGroup = WaitForUiElem(c, oPane, "Name", "Paramètres de sortie", TreeScope_Children, 2)
Set oEdit = WaitForUiElem(c, oGroup, "CtrlType", 50004, TreeScope_Children, 2)
GetIacc(oEdit).SetValue "D:\temp\pdf" 'Remplir Dossier de sortie
Set oBtn = WaitForUiElem(c, oPane, "Name", "Exécuter", TreeScope_Children, 2)
GetIacc(oBtn).DoDefaultAction 'clic sur le bouton Exécuter
End Sub

1 - On lance PDFSam
2 - On cherche la fenêtre principale de PDFSam
3 - On clique sur le bouton Découper
4 - On attend que le panneau de Découper apparaisse
5 - On remplit le champ du chemin du PDF source
6 - On clique sur le bouton radio Après les pages suivantes
7 - On remplit le champ des pages suivantes
8 - On remplit le champ du répertoire de sortie
9 - On clique sur le bouton Exécuter

Ami calmant, J.P

Cliquez pour agrandir...

scraper à dit:

Bonjour J.P. C'est pour mon information. je préférerai savoir quels sont les prérequis, quel est l'environnement de développement : Visual Studio code? Ou sont les éléments de configuration UIAutomation, FlaUiInspect, .... Comment installe t'on PdfSam Basic pour le piloter? Quelle formation dois-je suivre pour maitriser ces outils? Cdlt. Bon Week End

Cliquez pour agrandir...

Florent74 à dit:

Bonjour à tous,
Je souhaiterais pouvoir automatiser la division de PDF par VBA Excel en utilisant l'application PDFSam (seul application que mon employeur m'autorise à installer). Savez-vous s'il est possible de piloter PDFSam directement depuis VBA (à la manière d'Adobe Pro par exemple) ?

A défaut, connaissez-vous les commandes et instruction à intégrer dans un fichier shell pour diviser un pdf avec PDFSam ?

Merci pour votre aide !!

Cliquez pour agrandir...

scraper à dit:

Si comme moi, tu ne peux pas utiliser PdfSam si facilement, ce que j'ai déjà essayé avec mon faible niveau comparé à J.P. et d'autres.

Cliquez pour agrandir...

wDog66 à dit:

Salut TooFatBoy 😕

Salut Florent74

Tu as combien de documents pas jour à diviser 🤔

De plus pourquoi ne pas le faire directement dans Excel en imprimant page par page...

Bon week-end

Edit : désolé jurassic pork, je n'avais pas actualisé la page avant d'envoyer

Cliquez pour agrandir...

TooFatBoy à dit:

Ah, je me reconnais là. 😉

Sache que PDFsam en lui-même est très simple à utiliser puisqu'il suffit de donner les numéros des pages après lesquelles on veut couper le document initial.
Même moi j'arrive à l'utiliser. C'est pour dire si c'est simple !

Cliquez pour agrandir...