[..] Copier un fichier selectionné avec la souris

[tytynono]

Bonjour a tous, est ce qu'une ame charitable voudrait bien faire un petit script pour moi? ça fait des semaines que je cherche dans tous les sens mais je crois qu'il me faudrait encore des années pour arriver a faire le petit script que je voudrais.
Je vous explique: je voudrais que l'utilisateur en cliquant sur un bouton ouvre un dossier d' images (qui serait inclu dans le dossier de l'utilitaire) et qu'en cliquant sur l'image qu'il a choisi cette image se copie dans le dossier de l'utilitaire et se renomme Mon image(par exemple) et pour finir lancer un fichier bat ou cmd.Aprés je pense éssayé d'utiliser koda pour mettre ça en forme malgrés que j'ai aussi énormement de mal a comprendre comment faire.Merci d'avance a celui qui voudra bien aider le novice que je suis.

[jbnh]

Salut,

FileOpenDialog
FileCopy
ShellExecute

[ZDS]

Salut,

Je ne sais pas si j'ai bien compris le principe de ton programme (d'où vient l'image de départ? Si tu lance une seconde fois le script, est-ce-que ça écrase l'image précédemment copiée dans ton répertoire utilitaire?) mais voici un bout de code pouvant sans doute t'aider :

► Afficher le textetraitementImage()

Code : Tout sélectionner

; Déclaration du répertoire d'arrivée
Global $REPERTOIRE = "C:\Images\" ; Le "\" final est important
Global $COMMANDE = @ComSpec & " /c " & "commandName" ; Ligne de commande du batch/cmd à appliquer
DirCreate($REPERTOIRE) ; Au cas où il n'existe pas

; Lancement pour le test
traitementImage()

Func traitementImage()
    Local $retour, $ecrase, $nomImage, $cheminImage = FileOpenDialog("Choisir une image",@MyDocumentsDir,"Images (*.jpg;*.bmp)|Tous (*.*)",1)
    If @error Then
        MsgBox(0,"Erreur 1 :","Le choix de l'image n'a pas été pris en compte")
        Return 1
    Else
        $ecrase = 0 ; Valeur "1" si écrasement possible du fichier
        $retour = FileCopy($cheminImage,$REPERTOIRE,$ecrase) ; "FileMove" si déplacement vers le répertoire de l'utilitaire
        If $retour = 0 Then
            MsgBox(0,"Erreur 2 :","La copie/déplacement du fichier a échoué(e)")
            Return 2
        Else
            $nomImage = StringTrimLeft($cheminImage,StringInStr($cheminImage,"\",0,-1)) ; On isole le nom de l'image sans les repertoires (dernier "\")
            $nomDestination = "MonImage."&StringTrimLeft($nomImage,StringInStr($nomImage,".",0,-1)) ; On garde l'extension du fichier de départ
            $retour = FileMove($REPERTOIRE&$nomImage, $REPERTOIRE&$nomDestination, 1)
            If $retour = 0 Then
                MsgBox(0,"Erreur 3 :","Le renommage du fichier a échoué")
                Return 3
            Else
                RunWait($COMMANDE,$REPERTOIRE,@SW_HIDE)
                If @error Then
                    MsgBox(0,"Erreur 4 :","Le batch a plantu")
                    Return 4
                EndIf
            EndIf
        EndIf
    EndIf
    Return 0 ; Pas d'erreur
EndFunc

[tytynono]

Salut,
Je ne sais pas si j'ai bien compris le principe de ton programme (d'où vient l'image de départ?

Salut, l'image se trouvera dans un dossier avec toutes les images que l'utilisateur pourra choisir,ce dossier sera dans le dossier du programme donc le dossier courant.En fait j'ai fais un fichier bat qui remplace une image de shell32 par l'image choisi par l'utilisateur puis remplace shell32 par la shell32 modifiée, tout ça en fait pour changer l'image du panneau config et systeme de windows 7.

Si tu lance une seconde fois le script, est-ce-que ça écrase l'image précédemment copiée dans ton répertoire utilitaire?)

oui ça serait préférable que si l'utilisateur relance le script la nouvelle image choisie remplace l'ancienne

mais voici un bout de code pouvant sans doute t'aider :

Merci beaucoup pour ta réponse ça fonctionne mais j'ai encore 2 problemes:
1/je suis obligé de mettre le chemin complet, le probleme c'est que si l'utilisateur se trouve dans un autre chemin ça ne marchera pas, j'ai essayé @ScriptDir mais ça marche pas.
2/je n'arrive pas a lancer mon fichier bat a la fin

► Afficher le textetraitementImage()

Code : Tout sélectionner

  ; Déclaration du répertoire d'arrivée
Global $REPERTOIRE = "C:\Users\Thierry\Downloads\projet\Changeur panneau systeme\" ; Le "\" final est important
Global $COMMANDE = @ComSpec & " C:\Users\Thierry\Downloads\projet\Changeur panneau systeme " & "changer.bat" ; Ligne de commande du batch/cmd à appliquer
DirCreate($REPERTOIRE) ; Au cas où il n'existe pas

; Lancement pour le test
traitementImage()

Func traitementImage()
    Local $retour, $ecrase, $nomImage, $cheminImage = FileOpenDialog("Choisir une image",@MyDocumentsDir,"Images (*.jpg;*.bmp)|Tous (*.*)",1)
    If @error Then
        MsgBox(0,"Erreur 1 :","Le choix de l'image n'a pas été pris en compte")
        Return 1
    Else
        $ecrase = 1 ; Valeur "1" si écrasement possible du fichier
        $retour = FileCopy($cheminImage,$REPERTOIRE,$ecrase) ; "FileMove" si déplacement vers le répertoire de l'utilitaire
        If $retour = 0 Then
            MsgBox(0,"Erreur 2 :","La copie/déplacement du fichier a échoué(e)")
            Return 2
        Else
            $nomImage = StringTrimLeft($cheminImage,StringInStr($cheminImage,"\",0,-1)) ; On isole le nom de l'image sans les repertoires (dernier "\")
            $nomDestination = "MonImage."&StringTrimLeft($nomImage,StringInStr($nomImage,".",0,-1)) ; On garde l'extension du fichier de départ
            $retour = FileMove($REPERTOIRE&$nomImage, $REPERTOIRE&$nomDestination, 1)
            If $retour = 0 Then
                MsgBox(0,"Erreur 3 :","Le renommage du fichier a échoué")
                Return 3
            Else
				RunWait($COMMANDE,$REPERTOIRE,@SW_HIDE)
                If @error Then
                    MsgBox(0,"Erreur 4 :","Le batch a plantu")
                    Return 4

                 Else
				 Shellexecute("changer.bat","","C:\Users\Thierry\Downloads\projet\Changeur panneau systeme")
                EndIf
            EndIf
        EndIf
    EndIf
    Return 0 ; Pas d'erreur
EndFunc[/spoiler]

sinon je me demandé si je pouvais intégrer ce que fait mon .bat et lancer le script du fichier replacer.cmd ,comme ça mais sans les érreurs:
[spoiler=tout inclure]Global $REPERTOIRE = "@scriptdir\" ; Le "\" final est important

Filecopy( "%windir%\System32\shell32.dll", "@scriptdir",1)
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
Opt("GUIOnEventMode", 1)
#Region ### START Koda GUI section ### Form=
Global $Form2 = GUICreate("Changeur image panneau", 453, 201, 320, 253)
GUISetIcon("D:\004.ico")
Global $Button1 = GUICtrlCreateButton("&Choisir image", 350, 11, 83, 25, $WS_GROUP)
Global $Button2 = GUICtrlCreateButton("&Changer bouton", 349, 76, 83, 25, $WS_GROUP)
Global $Button3 = GUICtrlCreateButton("&Quitter", 157, 132, 83, 25, $WS_GROUP)
Global $Label1 = GUICtrlCreateLabel("Cliquer sur le bouton et choisir une image parmis celles proposées", 8, 8, 312, 17)
Global $Label2 = GUICtrlCreateLabel("Cliquer sur le bouton pour changer le panneau puis redémarrer", 16, 80, 297, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
 Sleep(100)
WEnd

Case $button3 ;Lors de l'appuie sur le boutton 3
quitter?
Case $button2 ;Lors de l'appuie sur le boutton 2
ResHacker.exe -addoverwrite shell32.dll, shell32 1.dll, MonImage.bmp , bitmap, 633,
Replacer.cmd Script.txt
; Lancement pour le test
Case $button1 ;Lors de l'appuie sur le boutton 1
lancer le traitementImage
; Lancement pour le test
traitementImage()

Func traitementImage()
Local $retour, $ecrase, $nomImage, $cheminImage = FileOpenDialog("Choisir une image",@MyDocumentsDir,"Images (*.jpg;*.bmp)|Tous (*.*)",1)
If @error Then
MsgBox(0,"Erreur 1 :","Le choix de l'image n'a pas été pris en compte")
Return 1
Else
$ecrase = 1 ; Valeur "1" si écrasement possible du fichier
$retour = FileCopy($cheminImage,$REPERTOIRE,$ecrase) ; "FileMove" si déplacement vers le répertoire de l'utilitaire
If $retour = 0 Then
MsgBox(0,"Erreur 2 :","La copie/déplacement du fichier a échoué(e)")
Return 2
Else
$nomImage = StringTrimLeft($cheminImage,StringInStr($cheminImage,"\",0,-1)) ; On isole le nom de l'image sans les repertoires (dernier "\")
$nomDestination = "MonImage."&StringTrimLeft($nomImage,StringInStr($nomImage,".",0,-1)) ; On garde l'extension du fichier de départ
$retour = FileMove($REPERTOIRE&$nomImage, $REPERTOIRE&$nomDestination, 1)
If $retour = 0 Then
MsgBox(0,"Erreur 3 :","Le renommage du fichier a échoué")
Return 3
Else
RunWait($COMMANDE,$REPERTOIRE,@SW_HIDE)
If @error Then
MsgBox(0,"Erreur 4 :","Le batch a plante")
Return 4


EndIf
EndIf
EndIf
EndIf
Return 0 ; Pas d'erreur
EndFunc EndFunc[/spoiler]