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