Discussion :

[Aooka]

Bonjour à tous,

Ce matin je bloque pour faire un programme qui je pense doit pas être très compliqué.

Le but est assez simple :
- On demande à l'utilisateur de choisir une année (exemple : "2023" ou "2024")
- Ensuite on demande à l'utilisateur le chemin de là où il souhaite créer ses dossiers avec numéro de semaines associé
- Enfin, on créer les 52 sous dossier dans le dossiers de l'année choisis par l'utilisateurs.

Exemple en image : si l'utilisateur choisi 2023 et lance le programme tout les sous dossiers suivants seront automatiquement créer : (au total 52 sous dossiers puisque 52 semaines par ans)



Mon code actuel qui ne fait je l'avoue pas grand chose :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
gsCheminDossier				est une chaîne 	= "C:\Users\aooka\Desktop\"
gsAnneeACreer				est un chaîne		= "2025"
gnNombreDeSemaines			est un entier		= 52
 
gsDateDebutSemaine			est une Date
gsDateFinSemaine			est une Date
 
gsDateDebutSemaine2023		est une Date = "02/01/2023" // Date début semaine 1 en 2023
gsDateFinSemaine2023		est une Date = "08/01/2023" // Date fin semaine 1 en 2023
 
 
SI fRepExiste(gsCheminDossier + gsAnneeACreer) = Vrai ALORS
 
	SI fRepSupprime(gsCheminDossier + gsAnneeACreer, frRécursif) = Vrai ALORS
 
		SI fRepCrée(gsCheminDossier + gsAnneeACreer) = Vrai ALORS
 
			// i est le numéro de la semaine
			POUR i = 1 _À_ gnNombreDeSemaines
 
				PremierJ		est une Date = PremierJourDeLAnnée(gsAnneeACreer + "1105")
 
				DateDebut		est une Date	= PremierJourDeLaSemaine(gsAnneeACreer)
 
				DateFin		est une Date	= DernierJourDeLaSemaine(gsAnneeACreer)
 
				Info(PremierJ)
				Info(DateDebut)
				Info(DateFin)
				// savoir en quelle année nous sommes
				//SI fRepCrée(gsCheminDossier + gsAnneeACreer + "\" + "S" + i + "-")  ALORS
 
			FIN
 
		SINON
 
		FIN
 
	FIN
 
SINON
 
 
FIN

J'ai du mal à me lancer dans le code de ma boucle FOR.

Auriez-vous des pistes pour me guider ?

Merci par avance,
Bonne journée à vous tous,