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

[zeshrek]

@mikell : Tu m'étonnes, on commence a etre short en place avec le fichier ini
Et vu qu'a priori c'est pour un prof (ou assimilé) je pense qu'il va certainement vouloir y mettre d'autres choses, comme les notes, les absences, les appréciations, les rencontres avec les parents... pour chaque eleve. Pour chaque classe, il peut mettre les dates des controles(a venir, faits/a corriger, rendus), le planning du programme a couvrir, et son etat d''avancement, les emplois du temps, et que sais-je.
En fait comme on sait pas a quoi ca va servir...on ne peut que spéculer.

@jchd : Tant qu'on partait juste d'une liste a faire apparaitre dans un menu déroulant, sortir le SQL du placard, c'était un peu prende un marteau pillon pour casser des noix. Mais bon, plus ca va, plus je pense qu'on ne va pas pouvoir faire l'économie d'une 'vraie' base de données.

@gege : D'ou la notion de cahier des charges, ou au moins de description de ce que va faire l'appli, pour savoir si la solution technique retenue est viable. D'autant plus quand on est dans la section "demande de script" et non "aide générale"

[gege]

Bonjour
Encore un grand merci à vous
Puisque vous parler d’un cahier des charges, le voilà
Pour ce qui concerne le cahier des charges, j’avais fait une demande avec le début de mon Programme avait les explications. Je n’ai jamais eu de réponse dont j’ai pensé que c’était un peu lourd à faire un programme de ce genre donc j’ai décidé de poser mes questions pas à pas
Donc en espérant que je ne vais pas vous faire peur an vous demandant ce que je désirerais
Explication
Une fenêtre avec deux menus déroulants l’une pour les classe exemple :3A 3B 6A 6B………
La deuxième avec des noms d’élèves qui correspondrait à chaque classe
Le tout dans un document texte extérieur
+ MsgBox pour vérifier ce qui a été saisis
CLASSE : A3
NOM PRONOM : Gérard
+ à bouton ok ait quitté
En premier et au sélectionneur et une classe qui sélectionne un groupe d’élèves qui correspond à la classe : A3= Gérard Pascal Michel 6A= Christine Léon Dominique 5A=jean-luc Didier Vincent
Avec une obligation de sélectionner une classe puis un nom d’élèves
Pour obtenir hier archi de dossiers exemple c:\ copie MP 3\ 5A \NOM PRÉNOM suivi de la date est l’heur
Pour faciliter la copie qu’une clé usb sur un ordinateur qui sert de serveur
En ce qui concerne c:\copye MP3 je souhaiterais qu’il se trouve sur le document texte extérieur
En essayant d’avoir un seul document texte pour faciliter le changement en cours d’année
En ce qui me concerne je suis un jeune retraitée amie d’un directrice de collèges.
Qui veut rendre service aux élèves je vous joins le programme qui fonctionnent avec des défauts cela pourra peut-être vous aider à comprendre ce que je souhaite à vous de l’améliorer l’améliorer S.V.P
En espérant avoir une réponse concrète et avec les explications sur les lignes d’exécution du programme car je suis débutant donc il me faut des explications concrètes
Dont je vous en remercie d’avance
Oui l'ogre a u un flair redoutable

► Afficher le texte

#include <File.au3>
#include <Array.au3>
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
Global $DbName = "Classe.txt"
Global $DbName1 = "Nom Prenom.txt"

Dim $FileRead, $Data
Dim $FileRead1, $Data1
Global $Form1, $Btn1, $Combo
Global $Form11, $Btn11, $Combo1

_FileReadToArray($DbName, $FileRead)
$Data = _ArrayToString($FileRead, "|", 1)
_FileReadToArray($DbName1, $FileRead1)
$Data1 = _ArrayToString($FileRead1, "|", 1)

$Form1 = GUICreate("CLASSE + NOM PRENOM", 500, 200, -1, -1)
$Btn1 = GUICtrlCreateButton("Ok", 336, 24, 65, 41)
GUICtrlSetFont(-1, 15, 400, 2, "Arial")

$CmbTitle="Choisissez une Classe..."
$Combo = GUICtrlCreateCombo($CmbTitle, 40, 24, 249, 25, BitOR($CBS_DROPDOWN, $CBS_AUTOHSCROLL))
GUICtrlSetFont(-1, 15, 400, 2, "Arial")

$CmbTitle1="Choisissez un Nom..."
$Combo1 = GUICtrlCreateCombo($CmbTitle1, 40, 80, 249, 20, BitOR($CBS_DROPDOWN, $CBS_AUTOHSCROLL))
GUICtrlSetFont(-1, 15, 400, 2, "Arial")

$exititem = GUICtrlCreateButton("QUITER", 336, 120, 80, 41)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")

GUICtrlSetData($Combo, $Data)
GUISetState(@SW_SHOW)
GUICtrlSetData($Combo1, $Data1)
GUISetState(@SW_SHOW)

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Btn1
If GUICtrlRead($Combo) <> $CmbTitle And GUICtrlRead($Combo1) <> $CmbTitle1 Then
msgbox(0,"", "CLASSE ="&GUICtrlRead($Combo) & @CRLF & "NOM-PRENOM ="&GUICtrlRead($Combo1))

Global $Destination = "c:\TITI\LECTEURS MP3" ; cela aussi 111 fichier texte

DirCopy(@ScriptDir, $Destination&"\"&GUICtrlRead($Combo)&"\"&GUICtrlRead($Combo1)&""&" "&@MDAY&"-"&@MON&"-"&@YEAR&" "&@HOUR&"h"&@MIN&"m"&@SEC&"s")

Else
MsgBox(16 + 8192, "Erreur", "Veuillez choisir CLSSE et NOM ")

EndIf
case $exititem
exit
EndSwitch
WEnd

[mikell]

Heu je n'ai pas bien compris ce qui doit se passer une fois qu'on a sélectionné la classe et le nom de l'élève
En fait je bloque à partir de "Pour obtenir hier archi de dossiers..."
Qu'est-ce que les mp3 viennent faire là-dedans ?
En fait si on savait à quoi le truc va servir précisément et quel est le but pratique recherché, on gagnerait beaucoup de temps

L'arbre de la vérité s'épanouit sur le terreau des explications limpides (Confucius)

[gege]

Bonjour
Cela va servir à sauvegarder le contenu d'un PM3 trois pédagogiques ou se trouvera le programme compilé pour des élèves ,sur un pc servant de serveur
Ce que j'appelle et une hier archi de dossiers :et la suite de dossiers aide sous dossiers :
MP3 correspond à un dossier ou à l'intérieur se trouve un autre dossiers qui correspond à la classe :3A, Ou à l'intérieur se trouve un autre dossiers qui correspond au nom prénom de l'élève Avec la date et leur
c:\ copie MP 3\ 5A \NOM PRÉNOM suivi de la date est l’heur
Je pensais qu'avec l'essai du programme que j'avais écrit avec votre aide Et de faire fonctionner avec les quels que erreurs qui existe (Mais ça fonctionne )La vous vous-rendrai compte peut-être ce que je désire
Si vous désirez encore des renseignements n'hésitez pas
Je suis un tout jeune débutant essayer d'être assez Claire avec les explications
Et encore merci

[mikell]

Ah ben après 24 messages on y voit enfin plus clair

Il me semble pour des raisons pratiques d'utilisation qu'il est plus cohérent de dater le fichier mp3 plutôt que le dossier de l'élève
Dans cet exemple le fichier final n'est pas un mp3, c'est un txt (juste pour le test) mais ça se gère exactement pareil
Si on ne sélectionne que la classe, le bouton "ouvrir" ouvre le dossier de la classe, si on sélectionne aussi un nom d'élève, il ouvre le dossier de l'élève
Voilà le script :

► Afficher le texte

Code : Tout sélectionner

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

Global $ini = @scriptdir & "\fichier.ini"            [color=#008000] ; fichier archive classes / noms des élèves[/color]
Global $racine = @scriptdir & "\copie MP3"
Global $classes, $eleves, $ready = 0

$gui = GUICreate("CLASSE + NOM PRENOM", 290, 100, -1, -1)
$combo1 = GUICtrlCreateCombo("classe", 20, 20, 120, 25, BitOR($CBS_SORT, $CBS_DROPDOWN, $CBS_AUTOHSCROLL))
$combo2 = GUICtrlCreateCombo("élèves", 150, 20, 120, 25, BitOR($CBS_SORT, $CBS_DROPDOWN, $CBS_AUTOHSCROLL))
$open = GUICtrlCreateButton("Ouvrir le dossier", 30, 60, 120, 25)
$exit = GUICtrlCreateButton("Exit", 180, 60, 70, 25)
GUISetState()

If NOT FileExists($racine) Then DirCreate($racine)       [color=#008000] ; crée le répertoire racine s'il n'existe pas[/color]
$date = @MDAY&"-"&@MON&"-"&@YEAR&" "&@HOUR&"h"&@MIN&"m"
Dim $classes = IniReadSectionNames($ini)

For $i = 1 To $classes[0]             [color=#008000]   ; lit les noms de classes dans le ini[/color]
    $doss_classe = $racine & "\" & $classes[$i] 
    If NOT FileExists($doss_classe) Then DirCreate($doss_classe)       [color=#008000] ; crée les dossiers "classe"[/color]
    GuiCtrlSetData($combo1, $classes[$i] & "|")       [color=#008000] ; écrit les classes dans la combo1[/color]

[color=#008000]; juste pour tester, on crée une arborescence du type
; @scriptdir \ copie MP3 \ classe \ nom de l'élève \ fichier nom_élève daté .mp3
;==========================================[/color]
    $test = IniReadSection($ini, $classes[$i])
    For $j = 1 To $test[0][0]                         [color=#008000] ; lit le contenu de chaque classe dans le ini[/color]
        $doss_eleve = $doss_classe & "\" & $test[$j][1]   [color=#008000]  ; crée les sous-dossiers "élèves"[/color]
        DirCreate($doss_eleve)
        $file = FileOpen($doss_eleve & "\" & $test[$j][1] & " - " & $date & ".mp3", 1)   [color=#008000]; création des fichiers-test[/color]
        FileClose($file)
    Next
[color=#008000];===========================================[/color]

Next


While 1
$msg = GUIGetMsg()
Switch $msg
    Case $exit, $GUI_EVENT_CLOSE
        Exit
    Case $combo1          [color=#008000] ; si on active la combo1 (classes)[/color]
           GuiCtrlSetData($combo2, "")       [color=#008000]; vide la combo2 (élèves)[/color]
        $classe_sel = GUICtrlRead($combo1)       [color=#008000] ; lit la classe sélectionnée[/color]
        If $classe_sel <> "classe" Then
            $eleves = IniReadSection($ini, $classe_sel)      [color=#008000] ; lit le nom des élèves de cette classe dans le ini[/color]
            For $i = 1 To $eleves[0][0]
                GuiCtrlSetData($combo2, $eleves[$i][1] & "|")    [color=#008000] ; écrit les noms dans la combo2[/color]
            Next
            $ready = 1     [color=#008000]; valide le bouton "ouvrir"[/color]
        EndIf
    Case $open
        $classe_sel = GUICtrlRead($combo1) 
        $eleve_sel = GUICtrlRead($combo2) 
        If $classe_sel <> "classe" AND $eleve_sel<> "élèves" AND $ready = 1 Then     [color=#008000] ; ouvre l'explorateur seulement si une classe est sélectionnée[/color]
            ShellExecute($racine & "\" & $classe_sel & "\" & $eleve_sel)    [color=#008000]; (shell = explorateur windows)[/color]
        Else
            MsgBox(48, "Attention", "Veuillez sélectionner une classe ou un élève")
        EndIf
EndSwitch
WEnd 
 

Testez le script avec ce fichier ini

► Afficher le texte

Code : Tout sélectionner

[3A]
1=André
2=Alain
3=Armand
4=Adeline

[5C]
1=Bertrand 
2=Bastien
3=Brigitte

[6B]
1=Christine
2=Charles
3=Corinne
4=Claude
 

qui n'est qu'un fichier texte que vous allez renommer en "fichier.ini" et placer dans le même répertoire que le script
Après votre test et si ça vous convient je vous donnerai tous les renseignements sur ce que vous n'aurez pas compris

[gege]

Bonjour
Quand je pratique un copier coller de votre programme dans le logiciel AUTOIT
cela me donne des écritures en noir et en violet donc je ne peux pas essayer votre Programme
En ce qui concerne la date et leur Je maintiens ma demande
Dossier au nom de l'élève avec la date et leur
En ce qui concerne le fichier il ini Je souhaiterais Qu'une partie du début de l'adresse Ils soient inscrits ;Exemple: \\Serveu \Professeur
En cas où cette adresse changerait Merci
SVP

[mikell]

Quand je pratique un copier coller de votre programme dans le logiciel AUTOIT
cela me donne des écritures en noir et en violet donc je ne peux pas essayer votre Programme

Ou bien vous copiez-collez dans un fichier txt que vous renommez en "script.au3", ou bien vous utilisez Scite
Il y a certaines choses élémentaires que personne ne pourra faire à votre place

En ce qui concerne le fichier il ini Je souhaiterais Qu'une partie du début de l'adresse Ils soient inscrits ;Exemple: \\Serveu \Professeur En cas où cette adresse changerait

Je rien compris
Si quelqu'un d'autre a compris, je achète
Je souhaiter exemple clair explicite et détaillé пожалуйста

[gege]

Tout de suite Après le premier message Que j'en ai mis un deuxième
En ce qui concerne notre programme Il suffisait de changer l'extension (.au3) Mais quand je l'exécute Une fenêtre s'ouvre 1 seconde et se referme
Quand je leur ai vue fonctionner nous reparlerons du fichier ini
Et encore merci

[PandiPanda]

Bonsoir,
l'erreur est sans doute celle ci ;

► Afficher le texte

C:\xxxx\xxx\xxx\xxxxx.au3 (28) : ==> Subscript used with non-Array variable.:
For $i = 1 To $classes[0]
For $i = 1 To $classes^ ERROR
->20:06:10 AutoIT3.exe ended.rc:1
>Exit code: 1 Time: 1.559

Si vous ne voyez seulement pendant une fraction de seconde le script donné c'est simplement parceque le script n'a pas pu trouvé votre fichier *.ini

ici => $ini = @scriptdir & "\fichier.ini" , mettez le chemin de votre fichier ini actuel.
Si vous n'en avez pas et que vous voulez test le script plus haut. Bien dans ce cas ajouter ceci dans un fichier à part.

► Afficher le texte

[3A]
1=André
2=Alain
3=Armand
4=Adeline

[5C]
1=Bertrand
2=Bastien
3=Brigitte

[6B]
1=Christine
2=Charles
3=Corinne
4=Claude

voici le même script avec simplement un test supplémentaire:

► Afficher le texte

Code : Tout sélectionner

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

Global $ini = @scriptdir & "\tes.txt"             ; fichier archive classes / noms des élèves
If Not FileExists($ini) Then
    MsgBox(64,"","metter le chemin d'un fichier .ini correct ... vérfiez cette ligne ci"&@CRLF&'Global $ini = @scriptdir & "\fichier.ini"'&@CRLF& _
    'remplacer la si nécessaire')
    Exit
EndIf
Global $racine = @scriptdir & "\copie MP3"
Global $classes, $eleves, $ready = 0

$gui = GUICreate("CLASSE + NOM PRENOM", 290, 100, -1, -1)
$combo1 = GUICtrlCreateCombo("classe", 20, 20, 120, 25, BitOR($CBS_SORT, $CBS_DROPDOWN, $CBS_AUTOHSCROLL))
$combo2 = GUICtrlCreateCombo("élèves", 150, 20, 120, 25, BitOR($CBS_SORT, $CBS_DROPDOWN, $CBS_AUTOHSCROLL))
$open = GUICtrlCreateButton("Ouvrir le dossier", 30, 60, 120, 25)
$exit = GUICtrlCreateButton("Exit", 180, 60, 70, 25)
GUISetState()

If NOT FileExists($racine) Then DirCreate($racine)       ; crée le répertoire racine s'il n'existe pas
$date = @MDAY&"-"&@MON&"-"&@YEAR&" "&@HOUR&"h"&@MIN&"m"
Dim $classes = IniReadSectionNames($ini)

For $i = 1 To $classes[0]               ; lit les noms de classes dans le ini
    $doss_classe = $racine & "\" & $classes[$i]
    If NOT FileExists($doss_classe) Then DirCreate($doss_classe)       ; crée les dossiers "classe"
    GuiCtrlSetData($combo1, $classes[$i] & "|")       ; écrit les classes dans la combo1

; juste pour tester, on crée une arborescence du type
; @scriptdir \ copie MP3 \ classe \ nom de l'élève \ fichier nom_élève daté .mp3
;==========================================
    $test = IniReadSection($ini, $classes[$i])
    For $j = 1 To $test[0][0]                         ; lit le contenu de chaque classe dans le ini
        $doss_eleve = $doss_classe & "\" & $test[$j][1]    ; crée les sous-dossiers "élèves"
        DirCreate($doss_eleve)
        $file = FileOpen($doss_eleve & "\" & $test[$j][1] & " - " & $date & ".mp3", 1)   ; création des fichiers-test
        FileClose($file)
    Next
;===========================================

Next


While 1
$msg = GUIGetMsg()
Switch $msg
    Case $exit, $GUI_EVENT_CLOSE
        Exit
    Case $combo1          ; si on active la combo1 (classes)
           GuiCtrlSetData($combo2, "")       ; vide la combo2 (élèves)
        $classe_sel = GUICtrlRead($combo1)       ; lit la classe sélectionnée
        If $classe_sel <> "classe" Then
            $eleves = IniReadSection($ini, $classe_sel)       ; lit le nom des élèves de cette classe dans le ini
            For $i = 1 To $eleves[0][0]
                GuiCtrlSetData($combo2, $eleves[$i][1] & "|")     ; écrit les noms dans la combo2
            Next
            $ready = 1     ; valide le bouton "ouvrir"
        EndIf
    Case $open
        $classe_sel = GUICtrlRead($combo1)
        $eleve_sel = GUICtrlRead($combo2)
        If $classe_sel <> "classe" AND $eleve_sel<> "élèves" AND $ready = 1 Then     ; ouvre l'explorateur seulement si une classe est sélectionnée
            ShellExecute($racine & "\" & $classe_sel & "\" & $eleve_sel)    ; (shell = explorateur windows)
        Else
            MsgBox(48, "Attention", "Veuillez sélectionner une classe ou un élève")
        EndIf
EndSwitch
WEnd
 

[mikell]

Testez le script avec ce fichier ini (...) qui n'est qu'un fichier texte que vous allez renommer en "fichier.ini" et placer dans le même répertoire que le script

C'est donc si difficile de simplement suivre les instructions ?

Purée quand je pense que jchd suggérait du SQL ...

[jchd]

SQLite, oui bien sûr, mais livré sous forme exécutable blindé avec cadenas explosif de chez Fichet-Bauché.

Blague à part, il y a forcément déjà quelque part la liste à jour des élèves par classe avec un numéro d'élève (désambiguation de possibles homonymies) et on ne sait pas toute l'intégralité de la _vraie_ problématique. Ventiler ça à l'arrache en utilisant le filesystem en lieu et place d'une petite base, ça risque de produire un machin genre tournevis à deux poignées, voire pourquoi pas ça. Même stocker tout ça dans un .CSV serait mieux.

[gege]

Bonjour
Et encore merci Je sais que les remerciements ne nourrit pas son homme est que mon chien en est mort
Si vous passez en haute-saône vous pouvez toujours venir boire une bonne bière: Code postal 70700

J'ai pu testez votre programme Qui fonctionne dans la manière dont vous l'avez réalisé J'ai rajouté deux lignes Qui me semble indispensable pour l'utilisation Qu'on veut en faire :

Global $Destination = "c:\TITI\LECTEURS MP3"
DirCopy(@ScriptDir, $Destination&"\"& $classe_sel&"\"&$eleve_sel &""&" "&@MDAY&"-"&@MON&"-"&@YEAR&" "&@HOUR&"h"&@MIN&"m"&@SEC&"s")

En ce qui concerne de l'arborescence :c:\TITI\LECTEURS MP3" Est-ce que celle -ci pourrait aussi se trouver sur le fichier ini
Le C :\ Sera remplacé par le nom du serveur
Car l'explorateur de windows ne m'intéresse pas trop compliqué pour chercher une arborescence sur nos réseau
Pour l'instant j'utilisais un fichier batch Commencèrent à être dépassé L'avantage qu'il avait et l'ouverture de la fenêtre de L'invité de commandes
Pour voir les fichiers qui avait été copié ou pas
Est-ce qu'il serait faisable de voir si la copie a bien été exécutés
:Les forums sont très bien je lé compare un peu comme des mais Le seul défaut ,Je pose une question on me répond, je Redemande une question on ne redonne,Je demande des explications des explications , Les questions réponses durs quelque temps ,Quelque temps de perdu par rapport à coups de téléphone merci

[mikell]

Bon alors :
Vous rajoutez ça en haut du fichier ini

Code : Tout sélectionner

[destination]
adresse1=C:\TITI\LECTEURS MP3
adresse2=\\Serveur\Professeur\LECTEURS MP3
 

Et vous testez ce script

► Afficher le texte

Code : Tout sélectionner

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

Global $ini = @scriptdir & "\fichier.ini"          
Global $racine = @scriptdir & "\copie MP3"
Global $classes, $eleves, $ready = 0, $test

If Not FileExists($ini) Then
    MsgBox(64,"","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))
$open = GUICtrlCreateButton("Ouvrir", 300, 10, 80, 20)
GUICtrlCreateLabel("source :", 20, 50, 70, 17)
$addr_file = GUICtrlCreateInput("", 20, 70, 360, 20)
GUICtrlCreateLabel("destination :", 20, 100, 70, 17)
$addr_dest = GUICtrlCreateInput("", 20, 120, 360, 20)
$copy = GUICtrlCreateButton("Copier", 30, 150, 80, 20)
$exit = GUICtrlCreateButton("Exit", 180, 180, 70, 20)
GUISetState()

If NOT FileExists($racine) Then DirCreate($racine)    
$date = @MDAY&"-"&@MON&"-"&@YEAR&" "&@HOUR&"h"&@MIN&"m"
Dim $classes = IniReadSectionNames($ini)

For $i = 1 To $classes[0]      
    $test = IniReadSection($ini, $classes[$i])
If $classes[$i] = "destination" Then
    $destination = _SelectDest() 
    GuiCtrlSetData($addr_dest, $destination)
Else
    $doss_classe = $racine & "\" & $classes[$i]
    If NOT FileExists($doss_classe) Then DirCreate($doss_classe)  
    GuiCtrlSetData($combo1, $classes[$i] & "|")   

; juste pour tester, on crée une arborescence du type
; @scriptdir \ copie MP3 \ classe \ nom de l'élève \ fichier nom_élève daté .mp3
;==========================================
    For $j = 1 To $test[0][0]                     
        $doss_eleve = $doss_classe & "\" & $test[$j][1]  
        DirCreate($doss_eleve)
        $file = FileOpen($doss_eleve & "\" & $test[$j][1] & " - " & $date & ".mp3", 1)
        FileClose($file)
    Next
;===========================================

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_file, $racine & "\" & $classe_sel )
        GuiCtrlSetData($addr_dest, $destination & "\" & $classe_sel )
            $ready = 1    
        EndIf
    Case $combo2        
    GuiCtrlSetData($addr_file, $racine & "\" & $classe_sel & "\" & GUICtrlRead($combo2))
        $date = @MDAY&"-"&@MON&"-"&@YEAR&" "&@HOUR&"h"&@MIN&"m"&@SEC&"s"
    GuiCtrlSetData($addr_dest, $destination & "\" & $classe_sel & "\" & GUICtrlRead($combo2) & " " & $date)
    Case $open
        $classe_sel = GUICtrlRead($combo1)
        $eleve_sel = GUICtrlRead($combo2)
        If $classe_sel <> "classe" AND $eleve_sel<> "élèves" AND $ready = 1 Then   
            ShellExecute($racine & "\" & $classe_sel & "\" & $eleve_sel)  
        Else
            MsgBox(48, "Attention", "Veuillez sélectionner une classe ou un élève")
        EndIf
    Case $copy
        $source = GUICtrlRead($addr_file)
    $_dest = GUICtrlRead($addr_dest)
        If FileExists($source) AND GUICtrlRead($combo2)<>"" Then   
        $date = @MDAY&"-"&@MON&"-"&@YEAR&" "&@HOUR&"h"&@MIN&"m"&@SEC&"s"
        $copie = DirCopy($source, $_dest & " " & $date)
        If $copie = 1 Then 
        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
EndSwitch
WEnd 


Func _SelectDest()
$select_gui = GuiCreate("Sélectionnez une destination", 300, 100, -1, -1)
$ok_btn = GuiCtrlCreateButton("OK", 120, 70, 60, 25)
$test1 = IniReadSection($ini, "destination")
Dim $Radios[$test1[0][0]]
For $i = 0 To $test1[0][0] -1                    
    $Radios[$i] = GuiCtrlCreateRadio($test1[$i+1][1], 20, ($i*20)+10, 250, 20)
Next
GuiSetState()
While 1
$msg2 = GuiGetMsg()
If $msg2 = $ok_btn Then
    For $i = 0 To $test1[0][0] -1                    
        If BitAND(GUICtrlRead($Radios[$i]), $GUI_CHECKED) Then 
            $destrad = GUICtrlRead($Radios[$i], 1)
            GuiDelete($select_gui)
            Return $destrad
        EndIf
    Next
EndIf
Wend
EndFunc
 

Par pitié ne modifiez RIEN tant que vous n'avez pas testé et bien compris comment ça marche

[zeshrek]

:Les forums sont très bien je lé compare un peu comme des mais Le seul défaut ,Je pose une question on me répond, je Redemande une question on ne redonne,Je demande des explications des explications , Les questions réponses durs quelque temps ,Quelque temps de perdu par rapport à coups de téléphone merci

Oui enfin, une question bien posée, c'est déjà la moitié du boulot qui est fait !
Si dès le début la question avait été posée sous la forme suivante (par exemple)

Un script qui :
- a partir d'une liste de classes (a stocker)
- et d'une liste d'éleves membres de ces classes (a stocker)
fasse une copie de fichiers se trouvant dans le répertoire du script vers une arborescence
[Racine de la destination]\[Classe]\[Eleve][Date][Heure]\
Sachant que [racine de destination] peut représenter un chemin local (par ex c:\TITI\LECTEURS MP3) ou un chemin UNC (Par ex \\Serveur\Professeur)

Ce n'est qu'un exemple de facon de demander ce que tu voulais, mais avec ca, tu nous épargnais X heures a éssayer de comprendre ce que tu veux, et surtout ca fait 2 jours que tu aurais eu ta réponse !

[gege]

Bonjour
Très bien l'adresse de destination dans le fichier ini
La fenêtre ou ont choisi la destination ne sert à rien dans mon cas car la destination est Inscrit dans le fichier ini (Une seule adresse)
Moi il y a de choses à cocher avec des classes de sixième en difficulté est beaucoup plus simple

En ce qui concerne la source à copier , et le dossier avec ses sous-dossier et les fichier où se trouvera le programme et le fichier ini

Exemple: j:\ Collège \Langue\ Anglais\ Allemand\Espagnol Si le programme est le fichier ini se trouve dans le dossier anglais le programme devra copier le dossier \allemand\ espagnol\ et les fichiers qu'il contient .
Si cela est compliquée ont copier le dossier\ anglais\ allemand\ espagnol et les fichiers qu'il contiennent
L'exemple est un exemple parmi d'autres Car la lettre j:\ inconnu attribué par le pc en automatique
Et le nom des dossiers allemands espagnols....... Sont inconnues Ou peuvent être modifiées dans leur nom
C'est pour ça que je désire une copie totale du dossier des sous dossiers avec fichier
En ce qui concerne le petit bout de programme entre les lignes vertes pourront être supprimer
Je fais mes essais dans les conditions réelles avec les élèves
En ce qui me concerne je suis un jeune retraitée des services incendie qui donne un coup de main à un pote directeur de collège

Et encore merci

[mikell]

La fenêtre ou ont choisi la destination ne sert à rien dans mon cas car la destination est Inscrit dans le fichier ini (Une seule adresse)

Ben on reviendra à la version précédente alors

L'exemple est un exemple parmi d'autres Car la lettre j:\ inconnu attribué par le pc en automatique
Et le nom des dossiers allemands espagnols....... Sont inconnues Ou peuvent être modifiées dans leur nom

Ecoutez, ça va pas du tout, c'est pas possible de bosser dans le flou comme ça
Les classes, les élèves et les mp3 sont maintenant remplacés par Anglais\ Allemand\Espagnol
On n'y comprend rien, mais alors que dalle
Vous vous rendez compte qu'on sait toujours pas à quoi va exactement servir ce programme, qui va l'utiliser (les élèves, les profs, vous ?), sur quel pc il doit être installé, et les dossiers et leur arborescence qui changent tout le temps ?
C'est peut-être évident dans votre tête mais pour nous tout ça est clair comme du jus de chaussette... et comme c'est très agaçant de programmer au pif sans savoir où on va, je me mets provisoirement en grève jusqu'à ce que je sache avec EXACTITUDE ce que je dois faire
Ce sujet a déjà 35 messages et le problème aurait dû être réglé depuis longtemps ^^
Alors relisez le post de zeshrek où il vous montre comment formuler une demande avec précision, et soyez enfin clair et précis

[Tlem]

[zeshrek]

Il y a quelques minutes, je reprenais a mon compte en l'adaptant une réplique d'une BD : J'ai un détecteur de buse dans le cerveau, et quand je vois une tanche, je me braque.
Bin voilà, ca y est, je suis braqué.

Plus de 30 messages sur un topic pour en arriver a ce qu'on ne sache toujours pas ce qui doit etre fait, c'est inadmissible.
Je rapelle que nous sommes dans la rubrique "demande de script" et non aide générale. Cela veut dire que ici, la demande doit se faire sous la forme d'un cahier des charge ou on liste les fontionnalités attendues. Je précise que le cahier des charges doit etre finalisé (ou quasi, on est pas des sauvages). En aucun cas on ne peut accepter qu'une demadne de script pour une liste déroulante alimentée par un fichier texte dégénère en l'espace d'une semaine en une usine a gaz dont les spécifiations ont déjà changé au moins 5 fois.

Gege, on a déjà demandé a plusieurs reprises que la demande soit faite clairement, je le redemande ici, et ce sera la dernière fois. Si le prochain post ne comporte pas une explication claire et précise de ce que doit etre le script attendu, je poubellise. Désolé pour ceux qui auront passé du temps dessus.

[gege]

Bonjour

Je pensais que vous m'aviez compris an lisant la citation Zeshrek qui est le reflet exact de ce que je désire
Mais il faut déjà être connaisseur pour rédiger ce genre de demandes

Je pensais avoir été Claire pour vous dire à quoi servait le programme
Je pense que vous ne lisez pas la totalité de ce que j’écris
Si vous aviez essayé mais quelques lignes de programme qui fonctionne sans trop vérifier la sélection du nom prénom de l’ élève et de la classe
Vous vous seriez rendu compte de ce que j’ai besoin
Programme juin pour la deuxième fois
Vous avaient le droit de faire grève mais pas d’insulter les gens moi aussi je pourrais dire que vous ne comprenez pas ce que je désire pourtant je pense être clair En ce qui me concerne
Si les forums sont faits que pour des connaisseurs et des spécialistes comment voulez-vous que les tanches s’instruisent

La tanches

► Afficher le texte

#include <File.au3>
#include <Array.au3>
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
Global $DbName = "classe.ini" ;Classe Nom Prenomsur 1 fichier ini
Global $DbName1 = "Nom Prenom.ini"
;classe, nom prenom ,Destination ( "c:\TITI\LECTEURS MP3") 1 fichier ini


Dim $FileRead, $Data
Dim $FileRead1, $Data1
Global $Form1, $Btn1, $Combo
Global $Form11, $Btn11, $Combo1

_FileReadToArray($DbName, $FileRead)
$Data = _ArrayToString($FileRead, "|", 1)
_FileReadToArray($DbName1, $FileRead1)
$Data1 = _ArrayToString($FileRead1, "|", 1)

$Form1 = GUICreate("CLASSE + NOM PRENOM", 500, 200, -1, -1)
$Btn1 = GUICtrlCreateButton("Ok", 336, 24, 65, 41)
GUICtrlSetFont(-1, 15, 400, 2, "Arial")

$CmbTitle="Choisissez une Classe..." ;sur fichier ini ,on contrôle la saisi
$Combo = GUICtrlCreateCombo($CmbTitle, 40, 24, 249, 25, BitOR($CBS_DROPDOWN, $CBS_AUTOHSCROLL))
GUICtrlSetFont(-1, 15, 400, 2, "Arial")

$CmbTitle1="Choisissez un Nom..." ;sur fichier ini ,on contrôle la saisi
$Combo1 = GUICtrlCreateCombo($CmbTitle1, 40, 80, 249, 20, BitOR($CBS_DROPDOWN, $CBS_AUTOHSCROLL))
GUICtrlSetFont(-1, 15, 400, 2, "Arial")

$exititem = GUICtrlCreateButton("QUITER", 336, 120, 80, 41)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")

GUICtrlSetData($Combo, $Data)
GUISetState(@SW_SHOW)
GUICtrlSetData($Combo1, $Data1)
GUISetState(@SW_SHOW)

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Btn1
If GUICtrlRead($Combo) <> $CmbTitle And GUICtrlRead($Combo1) <> $CmbTitle1 Then
msgbox(0,"", "CLASSE ="&GUICtrlRead($Combo) & @CRLF & "NOM-PRENOM ="&GUICtrlRead($Combo1))

Global $Destination = "c:\TITI\LECTEURS MP3" ;sur fichier ini

DirCopy(@ScriptDir, $Destination&"\"&GUICtrlRead($Combo)&"\"&GUICtrlRead($Combo1)&""&" "&@MDAY&"-"&@MON&"-"&@YEAR&" "&@HOUR&"h"&@MIN&"m"&@SEC&"s")

Else
MsgBox(16 + 8192, "Erreur", "Veuillez choisir CLSSE et NOM ")

EndIf
case $exititem
exit
EndSwitch
WEnd

[zeshrek]

10 fois qu'on demande un cahier des charges précis, et impossible d'en avoir un. Par contre il suffit de faire 1 mot d'esprit (ok, pas super subtil) et là, pas de pb, il ne passe pas inapercu.
C'est quand même dingue ca !

Je pensais que vous m'aviez compris an lisant la citation Zeshrek qui est le reflet exact de ce que je désire

Mais alors que vient faire ce disque attribué automatiquement, ou les dossiers allemand, espagnol... etc dont on apprend l'existence tout a l'heure ?

Mais il faut déjà être connaisseur pour rédiger ce genre de demandes

Il faut juste savoir ce que l'on veut, et surtout penser que ceux a qui la demande est faite ne savent rien du contexte dans lequel le script va devoir tourner, il faut donc donner TOUS les éléments pertinents

Je pensais avoir été Claire pour vous dire à quoi servait le programme

Ou ? Si c'était si clair que ca, on n'en serait pas a 4 ou 5 demandes sur les tenants et aboutissants !

Je pense que vous ne lisez pas la totalité de ce que j’écris

Si, mais je en comprend pas. Je précise avant de me prendre une chasse que c'est le fond, la définition a atteindre, que je ne comprend pas (et je ne suis pas le seul), pour la forme, on arrive a s'en débrouiller.

Si vous aviez essayé mais quelques lignes de programme qui fonctionne sans trop vérifier la sélection du nom prénom de l’ élève et de la classe
Vous vous seriez rendu compte de ce que j’ai besoin

Hein ? Donc en résumé, on a une demande qu'on en comprend pas, et on doit se débrouiller pour comprendre ce qu'on attend de nous ?

Programme juin pour la deuxième fois
Vous avaient le droit de faire grève mais pas d’insulter les gens moi aussi je pourrais dire que vous ne comprenez pas ce que je désire pourtant je pense être clair En ce qui me concerne

Oui on ne comprend pas, mais c'est pas nous qui demandons de l'aide. Il faudrait quand même pas trop inverser les roles...

Si les forums sont faits que pour des connaisseurs et des spécialistes comment voulez-vous que les tanches s’instruisent

Et si on remplace tanche par boulet ca passe mieux ? Bon alors maintenant que ce point est réglé, on peut l'avoir cette description de ce qu'il faut faire ? Là on fait avancer le compteur de posts du topic, mais pas la résolution du probleme !