Discussion :

[iliaseyah]

Bonjour,

Vous trouverez dans le corps du texte le code correspondant.
Quoi que je sélectionne comme optionbutton j'ai quand même mes fichier des deux répertoire, j'aurais aimé n'avoir que les fichier de mon répertoire L1 lorsque je sélectionne optionbutton correspondant.

Je pense avoir trouvé le problème, peut être qu'il enregistre la variable qui correspond aux noms de mes fichiers dans la liste déroulantes, et que lorsque qu'on change de répertoire il retrouve quand même des noms de fichiers qui ne sont pas dans le répertoire choisi. Confirmes-tu? Y-a-t-il un moyen pour qu'il n'enregistre pas les variable (les noms de fichiers) dans la liste déroulante ?


PLEASE!!!

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
Private Sub ComboBox1_Change()
 
    Dim CH As String 'déclare la variable CH (CHemin d'accès)
   Dim F As String 'déclare la varialbe F (Fichier)
   If OFamonterL1 = True Then
        CH = "T:\ISh\Projet PREP\Prg\IS\L1" 'définit le chemin CH
       F = Dir(CH & "\*.txt") 'définit la variable F (premier fichier txt du dossier du chemin)
       Do While F <> "" 'exécute tant qu'il existe des fichiers
          Me.ComboBox1.AddItem (F) 'ajoute le fichier à la ComboBox1
          F = Dir 'redéfinit la variable F (fichier suivant)
       Loop 'boucle
   Else: OFaMonterL2 = True
         CH = "T:\ISh\Projet PREP\Prg\IS\L2" 'définit le chemin CH
       F = Dir(CH & "\*.txt") 'définit la variable F (premier fichier txt du dossier du chemin)
       Do While F <> "" 'exécute tant qu'il existe des fichiers
          Me.ComboBox1.AddItem (F) 'ajoute le fichier à la ComboBox1
          F = Dir 'redéfinit la variable F (fichier suivant)
       Loop 'boucle
   End If
 
End Sub

[joe.levrai]

Bonjour,

je ne comprend pas bien.

le code s'exécute quand tu changes la valeur de ton combobox .... et le code effectue en remplissage de ton combobox


en gros je devine que tu as plutôt :

- 1 optionbutton qui, sélectionné, permet de pointer sur L1 (appelons le "OptionButton1")
- 1 optionbutton qui, sélectionné, permet de pointer sur L2 (appelons le "OptionButton2")

quand on sélectionne l'un des deux, tu veux charger dans ton combobox l'ensemble des .txt du répertoire ? (appelons le "Combobox1")

si c'est ça alors :

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
 
Private Sub OptionButton1_Click()
Dim F As String
 
With Me
    If .OptionButton1 Then
 
        .ComboBox1.Clear
        F = Dir("T:\ISh\Projet PREP\Prg\IS\L1\*.txt")
        Do While F <> ""
 
            .ComboBox1.AddItem F
            F = Dir
 
        Loop
    End If
End With
 
End Sub
 
Private Sub OptionButton2_Click()
Dim F As String
 
With Me
    If .OptionButton2 Then
 
        .ComboBox1.Clear
        F = Dir("T:\ISh\Projet PREP\Prg\IS\L2\*.txt")
        Do While F <> ""
 
            .ComboBox1.AddItem F
            F = Dir
 
        Loop
    End If
End With
 
End Sub

[iliaseyah]

C'est ça, t'as absolument bien compris ce que je voulais faire...

Respect, ça marche au top ! Visiblement il s'avère plus judicieux de programmer l'optionButton plutôt que la comboBox. car c'est l'optionButton qui décide des action à effectuer en aval ! Merci