[..] Script fusion pdf déplacement bureau

[shuradoko999]

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

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

le command line du logiciel si besoin :
PDFCombinePro.exe C:\Src???.pdf C:\Dest.pdf

Merci de l'aide que vous pourrez m'apporter

[jl56]

Bonjour,

Vous n'utilisez pas votre variable pour le path

D'habitude je décompose chaque élément ça me permet de tester la ligne en l'affichant dans par exemple un mgbox ou dans la console
je n'ai pas vérifié si les \, " et espace étaient présent et bien placés dans vos variables mais avec cet exemple vous comprendrez et vous pourez tester la ligne de commande.

Code: [Tout sélectionner] [Déplier/Replier]

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
        $file_destination="TEST.PDF"
        $dossier_destination=@DesktopDir&"\"
        $prog=@ScriptDir & "\PDFCombineProPortable\PDFCombinePro.exe "
        $ligne_commande= $prog &$aPath&$aFile&$dossier_destination&$file_destination
       
;~         test de la ligne
        MsgBox(0,"Ligne de commande",$ligne_commande)
        ConsoleWrite($ligne_commande)
          ShellExecute ($ligne_commande)
       
         Endif

GeSHi © Extension Codebox Plus

Cordialement,

Jean-Luc

[shuradoko999]

Super

Merci de ta réponse

Cordialement