Bonjour le forum,
Je recherche un code qui me permettrait d'avoir moins de ligne de IF.
Je m'explique, mon code fonctionne bien mais il est trop lourd/long, je me demande si il n'existe pas une autre façon de procéder afin d'arriver au même résultats.
le Code me permet d'ouvrir un dossier, il y a 14 dossiers principal Music1 Music2,... jusqu'à Music14, puis les 3 sous dossier 2019, 2020 et 2021 et pour finir 1, 2, 3...12 pour les mois de l'année.
Exemple:
C: \Music1\2019\1\
C: \Music1\2019\2\
....
C: \Music1\2019\12\
C:\Music1\2020\1\
C: \Music1\2020\2\
....
C: \Music1\2020\12\
C:\Music1\2021\1\
C: \Music1\2021\2\
....
C: \Music1\2021\12\
Cela va jusqu'à Music 14.
Sur le formulaire il y a 3 combobox et un bouton.
Voici un bout de mon code.
J'ai donc des dizaines et des dizaines de IF....
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
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69 [B Dim Janvier As String Dim Février As String Dim Mars As String Dim Avril As String Dim Mai As String Dim Juin As String Dim Juillet As String Dim Août As String Dim Septembre As String Dim Octobre As String Dim Novembre As String Dim Décembre As String Dim V1 = "\1" Dim V2 = "\2" Dim V3 = "\3" Dim V4 = "\4" Dim V5 = "\11" Dim V6 = "\5" Dim V7 = "\6" Dim V8 = "\7" Dim V9 = "\8" Dim V10 = "\9" Dim V11 = "\10" Dim V12 = "\12" Dim Dossier2019 = "C: \Music1\2019" Dim Dossier2020 = "C: \Music1\2020" Dim Dossier2021 = "C: \Music1\2021" ComboBox1.Items.Add("Music1") ComboBox1.Items.Add("Music2") ComboBox1.Items.Add("Music3") ComboBox1.Items.Add("Music4") ComboBox1.Items.Add("Music5") ComboBox1.Items.Add("Music6") ComboBox1.Items.Add("Music7") ComboBox1.Items.Add("Music8") ComboBox1.Items.Add("Music9") ComboBox1.Items.Add("Music10") ComboBox1.Items.Add("Music11") ComboBox1.Items.Add("Music12") ComboBox1.Items.Add("Music13") ComboBox1.Items.Add("Music14") ComboBox3.Items.Add("Janvier") ComboBox3.Items.Add("Février") ComboBox3.Items.Add("Mars") ComboBox3.Items.Add("Avril") ComboBox3.Items.Add("Mai") ComboBox3.Items.Add("Juin") ComboBox3.Items.Add("Juillet") ComboBox3.Items.Add("Août") ComboBox3.Items.Add("Septembre") ComboBox3.Items.Add("Octobre") ComboBox3.Items.Add("Novembre") ComboBox3.Items.Add("Décembre") ComboBox2.Items.Add("2021") ComboBox2.Items.Add("2020") ComboBox2.Items.Add("2019") If ComboBox1.Text = "Music1" And ComboBox2.Text = "2021" And ComboBox3.Text = "Janvier" Then Janvier = Dossier2021 + V1 Process.Start(Janvier)
Avez vous une idée pour raccourcir le code ?
Merci le forum,
Partager