[..] Menu déroulant avec base de données

[gege]

Bonjours
En ce qui concerne votre proposition je suis d’accord
En espérant qu’on sait bien compris
En ce qui concerne leur à écrire uns un script

Si leur est inférieure à > 12 :45 :22 on écrit matin dans une variable
Si leur est supérieure à< 12 :45 :22 on écrit après-midi dans une variable
Que je vais essayer d’introduire dans une cellule d’un tableau Excel
Pour des Feuilles de présence élèves sur le même système que vous m’avez déjà fait
Merci

[mikell]

Si leur est inférieure à 12 :45 on écrit matin dans une variable
Si leur est supérieure à 12 :45 on écrit après-midi dans une variable

Ce bout de code devrait faire l'affaire

Code : Tout sélectionner

$leur = @HOUR & @MIN
If $leur <= 1245 Then 
    $periode = "matin"
Else
    $periode = "après-midi"
EndIf
Msgbox(0,"", "en ce moment, $periode = " & $periode)

[gege]

Bonjour
Mikell : merci à toi pour ces quelques lignes sur l’heur

Sylvanie :
Et donc là je dirai qu'on s'oriente vers un 2eme script.
étés vous d'accord avec ceci ?

je voulais savoir si tu avais bien eu mon dernier message: Sylvanie où j’étais d’accord sur ta proposition
Et toi ai tu d’accord
merci

[sylvanie]

Bonsoir
Je n'ai pas vraiment fait de proposition, j'ai essayé de reformuler vos attentes.
Maintenant que ceci est fait la communauté est en mesure d'aider de façon optimale.
Malheureusement de mon côté je ne peux plus consacrer beaucoup de temps au forum mis à part quelques posts d'administration et des petites astuces ponctuelles. Je ne pourrai donc pas me lancer dans ce développement.
Je vous souhaite bon courage.

[mikell]

Est qu’il serait fesable d’avoir un bouton de plus pour récupérer des données déposées dans un dossier au nom de l’élève en utilisant le même fonctionnement des menus déroulant
Pour l’instant on part d’un support dossier inconnu où se situe le script pour arriver à une destination connue qui est créé par les différents menus déroulant

Pour être sûr d'avoir bien compris :

Il s'agirait que le script (placé n'importe où)
1) puisse aller récupérer des données dans un dossier d'élève dont l'emplacement est connu (par exemple \\Serveur\Professeur\classe\élève) , cet élève étant choisi par les menus déroulants (les 2 combos)
2) et ensuite copie ces données dans le dossier du script

C'est bien ça ?

[gege]

Bonjour

Dont si j'ai bien compris
Quand vous prononcez des données cela correspond bien à des fichiers et des dossiers! Dont si j'ai bien compris sait exactement ça qu'on désire

[mikell]

Données = fichiers et/ou dossiers, oui
Si ma description précédente est correcte alors oui c'est faisable
On peut même l'intégrer assez facilement au script existant

Dernière chose : l'endroit où on doit aller récupérer ces données, c'est bien l'adresse qui est dans le fichier ini à la rubrique [destination] (par exemple \\Serveur\Professeur\ ) ?

[gege]

Bonjour

Oui c'est bien l'adresse qui est dans le fichier ini à la rubrique [destination] (par exemple \\Serveur\Professeur\ ) ?
Si cela ne vous en bêtes pas Faites moi les deux scripts
(1: en l' incorporés avec l'ancien scripte)
(2: scripts sans l’ incorpore
SVP

[mikell]

Pour le codage proprement dit, il est quand même beaucoup plus simple de faire un seul script avec les 2 fonctionnalités que vous pouvez utiliser au choix
Voilà un script qui correspond à votre demande
Rappelez-vous que le fichier ini doit toujours rester avec le script (dans le même dossier)
Les fichiers récupérés sont placés dans le répertoire du script, dans un dossier de nom "Fichiers élève date" pour ne pas risquer de les mélanger s'il existe plusieurs dossiers pour le même élève

► Afficher le texte

Code : Tout sélectionner

#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#Include <File.au3>

Global $ini = @ScriptDir & "\" & StringTrimRight(@ScriptName, 3) & "ini"
Global $classes, $eleves, $test

If Not FileExists($ini) Then
    MsgBox(64, "", $ini&@crlf&"pas trouvé le fichier ini")
    Exit
EndIf

$gui = GUICreate("CLASSE + NOM PRENOM", 400, 220, -1, -1)
$combo1 = GUICtrlCreateCombo("classe", 20, 10, 120, 25, BitOR($CBS_SORT, $CBS_DROPDOWN, $CBS_AUTOHSCROLL))
$combo2 = GUICtrlCreateCombo("élèves", 150, 10, 120, 25, BitOR($CBS_SORT, $CBS_DROPDOWN, $CBS_AUTOHSCROLL))

GUICtrlCreateLabel("Copier les fichiers vers :", 20, 50, 170, 17)
$addr_dest = GUICtrlCreateInput("", 20, 68, 360, 20)
$copy = GUICtrlCreateButton("Copier", 30, 94, 80, 20)

GUICtrlCreateLabel("Récupérer les fichiers de :", 20, 130, 170, 17)
$addr_dest2 = GUICtrlCreateInput("", 20, 148, 360, 20)
$recup_btn = GUICtrlCreateButton("Récupérer", 30, 174, 100, 20)
$exit = GUICtrlCreateButton("Exit", 280, 185, 70, 20)
GUISetState()

Dim $classes = IniReadSectionNames($ini)
For $i = 1 To $classes[0]
    $test = IniReadSection($ini, $classes[$i])
    If $classes[$i] = "destination" Then
        $destination = $test[$i][1]
        GUICtrlSetData($addr_dest, $destination)
        GUICtrlSetData($addr_dest2, $destination)
   Else
        GUICtrlSetData($combo1, $classes[$i] & "|")
    EndIf
Next


While 1
    $msg = GUIGetMsg()
    Switch $msg
        Case $exit, $GUI_EVENT_CLOSE
            Exit
        Case $combo1
            GUICtrlSetData($combo2, "")
            $classe_sel = GUICtrlRead($combo1)
            If $classe_sel <> "classe" Then
                $eleves = IniReadSection($ini, $classe_sel)
                For $i = 1 To $eleves[0][0]
                    GUICtrlSetData($combo2, $eleves[$i][1] & "|")
                Next
                GUICtrlSetData($addr_dest, $destination & "\" & $classe_sel)
                GUICtrlSetData($addr_dest2, $destination & "\" & $classe_sel)
           EndIf
        Case $combo2
            $date = @MDAY & "-" & @MON & "-" & @YEAR & " " & @HOUR & "h" & @MIN & "m" & @SEC & "s"
            GUICtrlSetData($addr_dest, $destination & "\" & $classe_sel & "\" & GUICtrlRead($combo2) & " " & $date)
            GUICtrlSetData($addr_dest2, $destination & "\" & $classe_sel & "\" & GUICtrlRead($combo2) & " (tous les fichiers)")
        Case $copy
            If GUICtrlRead($combo2) <> "" Then
                $_dest = GUICtrlRead($addr_dest)
                $copie = DirCopy(@ScriptDir, $_dest, 1)
                If $copie = 1 Then
                    FileDelete($_dest &"\"&@ScriptName)
                    FileDelete($_dest & StringTrimRight(@ScriptName, 3) & "ini")
                    MsgBox(64, "Info", "Copie terminée")
                Else
                    MsgBox(48, "Attention", "Erreur dans la copie")
                EndIf
            Else
                MsgBox(48, "Attention", "Veuillez sélectionner un élève")
            EndIf
        Case $recup_btn
          $found = 0
           If GUICtrlRead($combo2) <> "" Then
          $classe_sel = GUICtrlRead($combo1)
          $eleve_sel = GUICtrlRead($combo2)
          $cible = $destination & "\" & $classe_sel
          $FileList =_FileListToArray($cible, "*", 2)
          If not @error Then
            For $i = 1 To $FileList[0]
            If StringInStr($FileList[$i], $eleve_sel) Then 
               $found = 1
               $file_rec = @ScriptDir & "\Fichiers " & $FileList[$i] & "\"
               $recup = FileCopy($cible & "\" & $FileList[$i] & "\*.*", $file_rec, 9)
               MsgBox(64, "Info", "Récupération terminée")
            EndIf
            Next
            If $found = 0 Then MsgBox(48, "Attention", "Pas trouvé l'élève " & $eleve_sel)
          ElseIf @error = 1 Then
               MsgBox(48, "Attention", "Pas trouvé la classe " & $classe_sel)
          Else
               MsgBox(48, "Attention", "Erreur dans la récupération")     
          EndIf
        Else
            MsgBox(48, "Attention", "Veuillez sélectionner un élève")
        EndIf
    EndSwitch
WEnd
 

[gege]

Bonjour
J'ai testé le scripteur en ce qui concerne la récupération des fichiers :
Je récupère que les fichiers pas les dossiers ,

Je souhaiterais récupérer les fichiers et les dossiers se trouvant dans le répertoire au nom de l'élève sans la date étant choisi par les menus déroulants (les 2 combos) que j'aurai créer auparavant

Merci

[mikell]

Voilà...

► Afficher le texte

Code : Tout sélectionner

#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#Include <File.au3>

Global $ini = @ScriptDir & "\" & StringTrimRight(@ScriptName, 3) & "ini"
Global $classes, $eleves, $test

If Not FileExists($ini) Then
    MsgBox(64, "", $ini&@crlf&"pas trouvé le fichier ini")
    Exit
EndIf

$gui = GUICreate("CLASSE + NOM PRENOM", 400, 220, -1, -1)
$combo1 = GUICtrlCreateCombo("classe", 20, 10, 120, 25, BitOR($CBS_SORT, $CBS_DROPDOWN, $CBS_AUTOHSCROLL))
$combo2 = GUICtrlCreateCombo("élèves", 150, 10, 120, 25, BitOR($CBS_SORT, $CBS_DROPDOWN, $CBS_AUTOHSCROLL))

GUICtrlCreateLabel("Copier les fichiers vers :", 20, 50, 170, 17)
$addr_dest = GUICtrlCreateInput("", 20, 68, 360, 20)
$copy = GUICtrlCreateButton("Copier", 30, 94, 80, 20)

GUICtrlCreateLabel("Récupérer les fichiers de :", 20, 130, 170, 17)
$addr_dest2 = GUICtrlCreateInput("", 20, 148, 360, 20)
$recup_btn = GUICtrlCreateButton("Récupérer", 30, 174, 100, 20)
$exit = GUICtrlCreateButton("Exit", 280, 185, 70, 20)
GUISetState()

Dim $classes = IniReadSectionNames($ini)
For $i = 1 To $classes[0]
    $test = IniReadSection($ini, $classes[$i])
    If $classes[$i] = "destination" Then
        $destination = $test[$i][1]
        GUICtrlSetData($addr_dest, $destination)
        GUICtrlSetData($addr_dest2, $destination)
   Else
        GUICtrlSetData($combo1, $classes[$i] & "|")
    EndIf
Next


While 1
    $msg = GUIGetMsg()
    Switch $msg
        Case $exit, $GUI_EVENT_CLOSE
            Exit
        Case $combo1
            GUICtrlSetData($combo2, "")
            $classe_sel = GUICtrlRead($combo1)
            If $classe_sel <> "classe" Then
                $eleves = IniReadSection($ini, $classe_sel)
                For $i = 1 To $eleves[0][0]
                    GUICtrlSetData($combo2, $eleves[$i][1] & "|")
                Next
                GUICtrlSetData($addr_dest, $destination & "\" & $classe_sel)
                GUICtrlSetData($addr_dest2, $destination & "\" & $classe_sel)
           EndIf
        Case $combo2
            $date = @MDAY & "-" & @MON & "-" & @YEAR & " " & @HOUR & "h" & @MIN & "m" & @SEC & "s"
            GUICtrlSetData($addr_dest, $destination & "\" & $classe_sel & "\" & GUICtrlRead($combo2) & " " & $date)
            GUICtrlSetData($addr_dest2, $destination & "\" & $classe_sel & "\" & GUICtrlRead($combo2) & " (fichiers+dossiers)")
        Case $copy
            If GUICtrlRead($combo2) <> "" Then
        $_dest = GUICtrlRead($addr_dest)
                $copie = DirCopy(@ScriptDir, $_dest, 1)
                If $copie = 1 Then
                    FileDelete($_dest &"\"&@ScriptName)
                    FileDelete($_dest & StringTrimRight(@ScriptName, 3) & "ini")
                    MsgBox(64, "Info", "Copie terminée")
                Else
                    MsgBox(48, "Attention", "Erreur dans la copie")
                EndIf
            Else
                MsgBox(48, "Attention", "Veuillez sélectionner un élève")
            EndIf
        Case $recup_btn
        $found = 0
           If GUICtrlRead($combo2) <> "" Then
        $classe_sel = GUICtrlRead($combo1)
        $eleve_sel = GUICtrlRead($combo2)
        $cible = $destination & "\" & $classe_sel
        $FileList =_FileListToArray($cible, "*", 2)
        If not @error Then
            For $i = 1 To $FileList[0]
            If StringInStr($FileList[$i], $eleve_sel) Then 
               $found = 1
               $file_rec = @ScriptDir & "\" & $eleve_sel
               $recup = DirCopy($cible & "\" & $FileList[$i] , $file_rec, 1)
               $recup = FileCopy($cible & "\" & $FileList[$i] & "\*.*", $file_rec, 9)
               MsgBox(64, "Info", "Récupération terminée")
            EndIf
            Next
            If $found = 0 Then MsgBox(48, "Attention", "Pas trouvé l'élève " & $eleve_sel)
        ElseIf @error = 1 Then
               MsgBox(48, "Attention", "Pas trouvé la classe " & $classe_sel)
        Else
               MsgBox(48, "Attention", "Erreur dans la récupération")     
        EndIf
            Else
                MsgBox(48, "Attention", "Veuillez sélectionner un élève")
            EndIf
    EndSwitch
WEnd
 

[gege]

BONJOUR

Je me suis mal exprimé
Je souhaiterais récupérer les fichiers et les dossiers se trouvant dans le répertoire au nom de l'élève étant choisi par les menus

Mais je ne veux pas récupéré les dossiers et fichiers contenu dans le dossier au nom de l'élèves avec date:
ex: (BELPOIX Tristan 08-12-2011 13h37m54s) (BELPOIX Tristan 06-13-2011 13h37m54s) Je ne veux pas ce qu'ils contiennent
svp

[mikell]

Gn&
Bon je sens qu'on encore est en train de partir sur de l'incompréhension, ça va pas
Donc il faut être très concret si on veut y arriver

Je souhaiterais récupérer les fichiers et les dossiers se trouvant dans le répertoire au nom de l'élève étant choisi par les menus

OK, donnez-moi un exemple très précis d'adresse complète de ce répertoire où sont les fichiers et les dossiers que vous voulez récupérer
par exemple : \\Serveur\Professeur\classe\BELPOIX Tristan

[gege]

L'adresse complète est : \\Serveur\Professeur\classe\nom prénom de l’élève (BELPOIX Tristan)
\\Serveur\Professeur : dans le fichier ini
classe\nom prénom : choisi par les menus déroulants
Je veux pouvoir récupérer les dossiers et fichiers qui se trouve dans le dossier au nom de l’élève
Ex : classe = 3A
Dossier au nom de l’élève =
(TONDU PASCALE)
(BERTER GERARD)
(BELPOIX Tristan)
(BELPOIX Tristan 08-12-2011 13h37m54s)
(BELPOIX Tristan 08-12-2011 11h37m54s)
(BERTER GERARD 06-13-2011 13h37m54s)
(BERTER GERARD 08-14-2011 12h45m54s)
(TONDU PASCALE 06-13-2011 13h37m54s)
Je veux récupérer le dossier TONDU PASCALE ou BELPOIX Christian ou BERTER GERARD selon le choix que j’aurai sélection dans le menu déroulant

[mikell]

Ookayy...

► Afficher le texte

Code : Tout sélectionner

#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#Include <File.au3>

Global $ini = @ScriptDir & "\" & StringTrimRight(@ScriptName, 3) & "ini"
Global $classes, $eleves, $test

If Not FileExists($ini) Then
    MsgBox(64, "", $ini&@crlf&"pas trouvé le fichier ini")
    Exit
EndIf

$gui = GUICreate("CLASSE + NOM PRENOM", 400, 220, -1, -1)
$combo1 = GUICtrlCreateCombo("classe", 20, 10, 120, 25, BitOR($CBS_SORT, $CBS_DROPDOWN, $CBS_AUTOHSCROLL))
$combo2 = GUICtrlCreateCombo("élèves", 150, 10, 120, 25, BitOR($CBS_SORT, $CBS_DROPDOWN, $CBS_AUTOHSCROLL))

GUICtrlCreateLabel("Copier les fichiers vers :", 20, 50, 170, 17)
$addr_dest = GUICtrlCreateInput("", 20, 68, 360, 20)
$copy = GUICtrlCreateButton("Copier", 30, 94, 80, 20)

GUICtrlCreateLabel("Récupérer les fichiers de :", 20, 130, 170, 17)
$addr_dest2 = GUICtrlCreateInput("", 20, 148, 360, 20)
$recup_btn = GUICtrlCreateButton("Récupérer", 30, 174, 100, 20)
$exit = GUICtrlCreateButton("Exit", 280, 185, 70, 20)
GUISetState()

Dim $classes = IniReadSectionNames($ini)
For $i = 1 To $classes[0]
    $test = IniReadSection($ini, $classes[$i])
    If $classes[$i] = "destination" Then
        $destination = $test[$i][1]
        GUICtrlSetData($addr_dest, $destination)
        GUICtrlSetData($addr_dest2, $destination)
   Else
        GUICtrlSetData($combo1, $classes[$i] & "|")
    EndIf
Next


While 1
    $msg = GUIGetMsg()
    Switch $msg
        Case $exit, $GUI_EVENT_CLOSE
            Exit
        Case $combo1
            GUICtrlSetData($combo2, "")
            $classe_sel = GUICtrlRead($combo1)
            If $classe_sel <> "classe" Then
                $eleves = IniReadSection($ini, $classe_sel)
                For $i = 1 To $eleves[0][0]
                    GUICtrlSetData($combo2, $eleves[$i][1] & "|")
                Next
                GUICtrlSetData($addr_dest, $destination & "\" & $classe_sel)
                GUICtrlSetData($addr_dest2, $destination & "\" & $classe_sel)
           EndIf
        Case $combo2
            $date = @MDAY & "-" & @MON & "-" & @YEAR & " " & @HOUR & "h" & @MIN & "m" & @SEC & "s"
            GUICtrlSetData($addr_dest, $destination & "\" & $classe_sel & "\" & GUICtrlRead($combo2) & " " & $date)
            GUICtrlSetData($addr_dest2, $destination & "\" & $classe_sel & "\" & GUICtrlRead($combo2) )
        Case $copy
            If GUICtrlRead($combo2) <> "" Then
        $_dest = GUICtrlRead($addr_dest)
                $copie = DirCopy(@ScriptDir, $_dest, 1)
                If $copie = 1 Then
                    FileDelete($_dest &"\"&@ScriptName)
                    FileDelete($_dest & StringTrimRight(@ScriptName, 3) & "ini")
                    MsgBox(64, "Info", "Copie terminée")
                Else
                    MsgBox(48, "Attention", "Erreur dans la copie")
                EndIf
            Else
                MsgBox(48, "Attention", "Veuillez sélectionner un élève")
            EndIf
        Case $recup_btn
        $found = 0
           If GUICtrlRead($combo2) <> "" Then
        $classe_sel = GUICtrlRead($combo1)
        $eleve_sel = GUICtrlRead($combo2)
        $cible = $destination & "\" & $classe_sel
        $FileList =_FileListToArray($cible, "*", 2)
        If not @error Then
            For $i = 1 To $FileList[0]
            If $FileList[$i] = $eleve_sel Then 
               $found = 1
               $file_rec = @ScriptDir & "\" & $eleve_sel
               $recup = DirCopy($cible & "\" & $FileList[$i] , $file_rec, 1)
               MsgBox(64, "Info", "Récupération terminée")
            EndIf
            Next
            If $found = 0 Then MsgBox(48, "Attention", "Pas trouvé l'élève " & $eleve_sel)
        ElseIf @error = 1 Then
               MsgBox(48, "Attention", "Pas trouvé la classe " & $classe_sel)
        Else
               MsgBox(48, "Attention", "Erreur dans la récupération")     
        EndIf
            Else
                MsgBox(48, "Attention", "Veuillez sélectionner un élève")
            EndIf
    EndSwitch
WEnd

Attention que le nom du dossier à récupérer doit être exactement identique au nom d'élève dans le fichier ini

[gege]

Je me doute bien que le nom du dossier à récupérer dois être exactement le même que le fichier ini

ça a l'air de fonctionner ;Je continue mes essais et je vous tient au courant

Merci

[gege]

Bonjour
Après une longue période d'absence pour raisons de santé me revois la
Les élevés qui l'utilise on trouvé ça génial bien pratique

Pourriez-vous rajouter un menu déroulant Indépendant des autres pour les matières ( histoire, musique, mat, placer dans le fichier ini Pour récupérer dan une variable la matière sélectionnée dans le menu déroulant Pour l'incorporer dans l'adresse de destination

SVP Merci

► Afficher le texte

GUICtrlSetData($addr_dest, $destination & "\" & $classe_sel & "\"& matier & "\" & GUICtrlRead($combo2) & " " & $date)

Code : Tout sélectionner

#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#Include <File.au3>

Global $ini = @ScriptDir & "\" & StringTrimRight(@ScriptName, 3) & "ini"
Global $classes, $eleves, $test

If Not FileExists($ini) Then
    MsgBox(64, "", $ini&@crlf&"pas trouvé le fichier ini")
    Exit
EndIf


$gui = GUICreate("CLASSE + NOM PRENOM", 700, 220, -1, -1)
$combo1 = GUICtrlCreateCombo("Classe", 10, 10, 100, 25, BitOR($CBS_SORT, $CBS_DROPDOWN, $CBS_AUTOHSCROLL))
GUICtrlSetFont(-1, 12, 400, 2, "Arial")
$combo2 = GUICtrlCreateCombo("", 120, 10, 250, 25, BitOR($CBS_SORT, $CBS_DROPDOWN, $CBS_AUTOHSCROLL))
GUICtrlSetFont(-1, 12, 400, 2, "Arial")

$combo3 = GUICtrlCreateCombo("Matiere", 400, 10, 250, 25, BitOR($CBS_SORT, $CBS_DROPDOWN, $CBS_AUTOHSCROLL))
GUICtrlSetFont(-1, 12, 400, 2, "Arial")

GUICtrlCreateLabel("Copier les fichiers vers :", 20, 45, 150, 20)
GUICtrlSetFont(-1, 12, 400, 2, "Arial")
$addr_dest = GUICtrlCreateInput("", 20, 75, 360, 20)

$copy = GUICtrlCreateButton("Copier", 30, 100, 80, 20)
GUICtrlSetColor (- 1 , 0xFF0000)
GUICtrlCreateLabel("Récupérer les fichiers de :", 20, 125, 270, 40)
GUICtrlSetFont(-1, 12, 400, 2, "Arial")
$addr_dest2 = GUICtrlCreateInput("", 20, 155, 360, 20)

$recup_btn = GUICtrlCreateButton("Récupérer", 30, 180, 100, 25)
GUICtrlSetColor (- 1 , 0xFF0000)
$exit = GUICtrlCreateButton("Exit", 280, 185, 70, 20)

GUISetState()

Dim $classes = IniReadSectionNames($ini)
For $i = 1 To $classes[0]
    $test = IniReadSection($ini, $classes[$i])
    If $classes[$i] = "destination" Then
        $destination = $test[$i][1]
        GUICtrlSetData($addr_dest, $destination)
        GUICtrlSetData($addr_dest2, $destination)
   Else
        GUICtrlSetData($combo1, $classes[$i] & "|")
    EndIf
Next

While 1
    $msg = GUIGetMsg()
    Switch $msg
        Case $exit, $GUI_EVENT_CLOSE
            Exit
        Case $combo1
            GUICtrlSetData($combo2, "")
            $classe_sel = GUICtrlRead($combo1)
            If $classe_sel <> "classe" Then
                $eleves = IniReadSection($ini, $classe_sel)
                For $i = 1 To $eleves[0][0]
                    GUICtrlSetData($combo2, $eleves[$i][1] & "|")
                Next
                GUICtrlSetData($addr_dest, $destination & "\" & $classe_sel)
                GUICtrlSetData($addr_dest2, $destination & "\" & $classe_sel)
           EndIf
        Case $combo2
            $date = @MDAY & "-" & @MON & "-" & @YEAR & " " & @HOUR & "h" & @MIN & "m" & @SEC & "s"
            GUICtrlSetData($addr_dest, $destination & "\" & $classe_sel & "\" & GUICtrlRead($combo2) & " " & $date)
            GUICtrlSetData($addr_dest2, $destination & "\" & $classe_sel & "\" & GUICtrlRead($combo2) )
        Case $copy
            If GUICtrlRead($combo2) <> "" Then
        $_dest = GUICtrlRead($addr_dest)
                $copie = DirCopy(@ScriptDir, $_dest, 1)
                If $copie = 1 Then
                    FileDelete($_dest &"\"&@ScriptName)
                    FileDelete($_dest & StringTrimRight(@ScriptName, 3) & "ini")
                    MsgBox(64, "Info", "Copie terminée")
                Else
                    MsgBox(48, "Attention", "Erreur dans la copie")
                EndIf
            Else
                MsgBox(48, "Attention", "Veuillez sélectionner un élève")
            EndIf
        Case $recup_btn
        $found = 0
           If GUICtrlRead($combo2) <> "" Then
        $classe_sel = GUICtrlRead($combo1)
        $eleve_sel = GUICtrlRead($combo2)
        $cible = $destination & "\" & $classe_sel
        $FileList =_FileListToArray($cible, "*", 2)
        If not @error Then
            For $i = 1 To $FileList[0]
            If $FileList[$i] = $eleve_sel Then
               $found = 1
               $file_rec = @ScriptDir & "\" & $eleve_sel
               $recup = DirCopy($cible & "\" & $FileList[$i] , $file_rec, 1)
               MsgBox(64, "Info", "Récupération terminée")
            EndIf
            Next
            If $found = 0 Then MsgBox(48, "Attention", "Pas trouvé l'élève " & $eleve_sel)
        ElseIf @error = 1 Then
               MsgBox(48, "Attention", "Pas trouvé la classe " & $classe_sel)
        Else
               MsgBox(48, "Attention", "Erreur dans la récupération")
        EndIf
            Else
                MsgBox(48, "Attention", "Veuillez sélectionner un élève")
            EndIf
    EndSwitch
WEnd

FICHIER INI
[destination]
adresse1=C:\LECTEURS MP3

[3A]
1=toto
2=j-luc
3=gerard

MATIER