[..] Script pour copier et déplaces des documents ?

[Wink]

Bonjour,

Voici mon projet :

Chaque fin de mois, des statistiques sont créées (grâce à un autre script !), qui sont sous la forme de 4 fichiers Excel distincts (1 pour chaque service de mon entreprise).
Ils sont stockés sur un serveur de fichier.

Il faudrait que, grâce à un script, je puisse faire en sorte d'aller copier ces 4 fichiers Excel (ou le dossier qui les contient), pour aller le coller dans un autre serveur, accessible via le réseau externe de l'entreprise.

En gros, notre directeur qui est situé dans d'autres locaux souhaite avoir les statistiques de notre site de production, sur son serveur de fichier, auquel on a accès, car lui n'a pas accès au notre !

Est-ce réalisable, du moins sans passer par la commande 'SEND' qui serait, je pense, inappropriée !

Qu'en pensez-vous ?

Merci pour votre aide !

Cordialement,

[Wink]

Petite rectification : il faudrait que l'utilisateur ait la possibilité de choisir ces 4 fichiers justement.
A l'aide d'un bouton parcourir par exemple, ça serait le top !


Après renseignements, j'ai cru comprendre que je pouvais utiliser la fonction Filecopy pour arriver à ce que je souhaite ?

Mais ensuite, comment faire apparaître un bouton "parcourir" qui permettrait de sélectionner ces fichiers ?

[jbnh]

Salut, je me suis amusé a refaire une interface en me basant sur un de mes anciens script pour choisir les fichiers / dossiers à envoyer.

Dis moi quoi...

Sinon, si j'ai bien compris il faut envoyer tout sur un ftp ?

[Wink]

Oui c'est nickel c'est ce que je cherchais à faire :
pourvoir parcourir des fichiers/dossiers puis "enregistrer la saisie" pour pouvoir justement transférer ces fichiers sur un autre serveur !

Je vais essayer de me débrouiller pour associer au bouton transférer ce que je viens de t'expliquer... je te tiens au courant !

Merci !!!

[jbnh]

Pour le ftp cherche ici. En espérant que ça marche pour toi.

[Wink]

C'est pas vraiment un ftp en fait...
Je pense qu'avec la fonction FileCopy cela suffirait :

En fait, une fois que l'utilisateur a choisi soit :
- ses 4 fichier
- tout le dossier

Il faut qu'en cliquant sur le bouton "Transférer", le dossier soit copié vers un lecteur réseau (portant la lettre 'O' par exemple).

Tu vois ce que je veux dire ?

Du genre :

FileCopy($Input_2, "\\10.69.xx.xx\fichiers")

Ça serait bon ?

[Wink]

J'ai un souci avec la fonction "DirCopy" ...

En fait, le but est de récupérer la saisie utilisateur (= le dossier qu'il a choisi) pour pouvoir transférer le dossier vers un endroit défini, lorsqu'il clique sur transfert ...

Je te mets le code en entier :

► Afficher le texte

Code : Tout sélectionner

#include <GuiConstants.au3>
#include <EditConstants.au3>
#include <WindowsConstants.au3>
#include <GuiConstantsEx.au3>

GuiCreate("Envoi de fichiers / dossier", 350, 270)


$input_selection = GUICtrlCreateInput("Veuillez sélection  un fichier / dossier", 55, 10, 220, 20)
$Button_1 = GUICtrlCreatePic("ressources/file.jpg", 280, 10, 20, 21)
$Button_2 = GUICtrlCreatePic("ressources/folder.jpg",305, 10, 21, 20)
;-----------------------------------------------------------------------------------------------------------
$Input_2 = GUICtrlCreateEdit("", 25, 50, 300, 140)
;-----------------------------------------------------------------------------------------------------------
$Input_3 = GUICtrlCreateLabel("0", 110, 200)
GUICtrlCreateLabel("Fichiers et ", 120, 200)
$Input_4 = GUICtrlCreateLabel("0", 175, 200)
GUICtrlCreateLabel("Dossiers", 185, 200)

$Button_3 = GUICtrlCreateButton("Transférer !", 135, 225, 70, 30)
GUISetState(@SW_SHOW)

While 1
$msg = GUIGetMsg()
    Select
        Case $msg = $GUI_EVENT_CLOSE
             ExitLoop
             
        Case $msg = $Button_1           
            $Opened_File = FileOpenDialog("Ajouter un fichier :", "", "All Files (*.*)",12)
            If GUICtrlRead($Input_2) = "" Then      
            $Tmp = $Opened_File
            Else
            $Tmp = GUICtrlRead($Input_2) & @CRLF & $Opened_File
            Endif
            If not $Opened_File = "" Then   
            GUICtrlSetData($Input_2, "")
            GUICtrlSetData($Input_2, $Tmp)
            $addfile = GUICtrlRead($Input_3) + 1
            GUICtrlSetData($Input_3, $addfile)
            
            Endif
            
                    While 1
            
                        $msg_ = GUIGetMsg()
                        
                        Switch $msg_
                            
                        Case $GUI_EVENT_CLOSE
                            ExitLoop
                            
                        Case $Button_3
                            
                            MsgBox(1, "Test", "Ceci est un test")
                            
                        EndSwitch
                        
                    
                    WEnd    
                
            
        Case $msg = $Button_2   
            $Opened_File2 = FileSelectFolder("Ajouter un répertoire :", "")
            If GUICtrlRead($Input_2) = "" Then      
            $Tmp2 = $Opened_File2
            Else
            $Tmp2 = GUICtrlRead($Input_2) & @CRLF & $Opened_File2
            Endif
            If not $Opened_File2 = "" Then  
            GUICtrlSetData($Input_2, "")
            GUICtrlSetData($Input_2, $Tmp2)
            $addfolder = GUICtrlRead($Input_4) + 1
            GUICtrlSetData($Input_4, $addfolder)
            
            Endif
        
        
                    While 1
                
                            $msg_ = GUIGetMsg()
                            
                            Switch $msg_
                                
                            Case $GUI_EVENT_CLOSE
                                ExitLoop
                                
                            Case $Button_3
                                
                                DirCopy($Input_2, "Z:\Stats Générales\STATS GENERALES v2\_Outils\Sender v1")
                                
                            EndSwitch
                            
                        
                        WEnd    
            
        Case $msg = $Button_3
            
            MsgBox(48, "ERREUR", "Veuillez sélectionner au moins 1 fichier / dossier")
            
    
    EndSelect            
Wend

Grosso modo, j'ai juste rajouté à ton code (dans le cas ou on clique sur "ajouter un répertoire") ceci, pour faire la copie de répertoire :

Code : Tout sélectionner

While 1

$msg_ = GUIGetMsg()

Switch $msg_

Case $GUI_EVENT_CLOSE
ExitLoop

Case $Button_3

DirCopy($Input_2, "Z:\Stats Générales\STATS GENERALES v2\_Outils\Sender v1")

EndSwitch

Mais du coup ça ne marche pas !
Vois tu ce qui cloche ?

[jbnh]

Oula, pourquoi avoir mis deux boucles différentes ?

Regroupe dans dans un seul while pour qu'on y voit plus clair.
Ensuite tu dois récupérer les fichiers choisis dans l'input, avec guictrlread et séparer chaque fichiers dans une variable, tu vas donc utiliser stringsplit. Il faut ensuite détecter si c'est un dossier ou un fichier (verifier dans le chemin si il y a un . par exemple, dans ce cas ca serait un fichier).

Ya du boulot mais j'ai pas le temps maintenant

[Wink]

OK, je vais bosser la-dessus !

Merci pour votre aide !