[..] Script fusion pdf déplacement bureau
Posté : ven. 23 août 2024 11:45
Bonjour a tous 
J'aurais besoin d'aide sur un script , c'est pour un logiciel qui fusionne les différents pdfs d'un dossier.
Mon script fonctionne mais il déplace le fichier fusionner dans le dossier de l'executable et moi je voudrais qu il me l'envoie sur le bureau.
Voila le script
le command line du logiciel si besoin :
PDFCombinePro.exe C:\Src???.pdf C:\Dest.pdf
Merci de l'aide que vous pourrez m'apporter
J'aurais besoin d'aide sur un script , c'est pour un logiciel qui fusionne les différents pdfs d'un dossier.
Mon script fonctionne mais il déplace le fichier fusionner dans le dossier de l'executable et moi je voudrais qu il me l'envoie sur le bureau.
Voila le script
Code : Tout sélectionner
; Script Start - Add your code below here
#NoTrayIcon
#include <WindowsConstants.au3>
#include <GUIConstants.au3>
Opt("MustDeclareVars", 0) ;0=no, 1=require pre-declaration
Global $assets = @ScriptDir & "\Assets\"
Global $ui_width = 800 ;Universal (try change to some)
Global $ui_height = 580
Global $left_margin = 20
Global $top_margin = 20
Global $cUI = 0xE70000, $cContent = 0xEEEEEE, $cSearch = 0x6A1B9A ;colors
Global $ui = GUICreate("PDF MULTIPLES EN SIMPLE", $ui_width, $ui_height, Default, Default, $WS_POPUP, $WS_EX_CONTROLPARENT)
GUISetBkColor($cUI, $ui)
Global $Button4 = GUICtrlCreateButton("REDUIRE", 600, 550, 90, 20)
GUICtrlSetFont(-1, 9, 800, Default, "Arial Black", 5)
Global $Button5 = GUICtrlCreateButton("FERMER", 700, 550, 90, 20)
GUICtrlSetFont(-1, 9, 800, Default, "Arial Black", 5)
$Input_1 = GUICtrlCreateInput("", 35, 280, 370, 42)
GUICtrlSetFont(-1, 20, 800, Default, "Segoe UI", 5)
Global $Button3 = GUICtrlCreateButton("CONVERTIR !!!", 270, 420, 260, 60)
GUICtrlSetFont(-1, 22, 800, Default, "Arial Black", 5)
GUICtrlSetBkColor(-1, 0x9A9A9A)
GUISetState(@SW_SHOW)
Global $Button2 = GUICtrlCreateButton("SELECTIONNER LE PDF :", 35, 230, 330, 50)
GUICtrlSetFont(-1, 17, 800, Default, "Arial Black", 5)
GUICtrlSetBkColor(-1, 0x9A9A9A)
Global $Button10 = GUICtrlCreateButton("**** PDF MULTIPLES EN SIMPLE ****", 120, 40, 555, 65)
GUICtrlSetFont(-1, 20, 800, Default, "Arial Black", 5)
GUICtrlSetBkColor(-1, 0x9A9A9A)
While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE Or $msg = $Button5
Exit
Case $msg = $Button2
$path = FileSelectFolder("Add File", "", "PDF Files (*.pdf)",1+2)
If @error Then
MsgBox(4096,"","PAS DE DOSSIER CHOISI")
Else
GUICtrlSetData($Input_1, $path)
EndIf
Case $msg = $Button3
If GUICtrlRead($Input_1) = "" Then
MsgBox(16,"Attention", "VOUS DEVEZ CHOISIR UN DOSSIER")
Else
$sFile = GUICtrlRead($Input_1)
$sPath = StringRegExp($sFile, "",2)
$aFile = '"' & $sFile & '"'
$aPath = '"' & $sPath
ShellExecute (@ScriptDir & "\PDFCombineProPortable",$aFile & "TEST.PDF")
Endif
Case $msg = $Button4
GUISetState(@SW_MINIMIZE)
EndSelect
Wend
PDFCombinePro.exe C:\Src???.pdf C:\Dest.pdf
Merci de l'aide que vous pourrez m'apporter