Microsoft 365 LISTBOX REPERTOIRE ET SOUS REPERTOIRE

[Regueiro]

Bonsoir le Forum
Petit problème pour alimenter la 2ème listbox en fonction du choix de la 1ère
Il bute sur chemin ( nothing )
Merci pour votre retour

Option Explicit
'VBA FileSystemObject (FSO)
'Outils - Références - Microsoft Scripting Runtime à activer
Dim FSO As FileSystemObject
Dim MYFILE As File
Dim DOSSIER As Folder
Dim SOUSDOS As Folder
Dim Chemin As Folder
Dim n As Integer
Dim racine As String
Private Sub b_debut_Click()
Set FSO = New Scripting.FileSystemObject

racine = ChoixDossier()     ' ou un répertoire C:\xxx e.g.
Set DOSSIER = FSO.GetFolder(racine)
Me.ListBox1.Clear

n = 0

Me.ListBox1.Clear
  For Each SOUSDOS In DOSSIER.SubFolders
       Me.ListBox1.AddItem SOUSDOS.Name                              'DOSSIER.Name
       Me.ListBox1.List(n, 1) = SOUSDOS.Path                                             'DOSSIER.Path
       n = n + 1
   Next
   Me.TextBox1 = DOSSIER.Path
   Me.TextBox2 = n & " Dossiers"
End Sub
Private Sub ListBox1_Click()
Dim rép

Dim F1 As Object
rép = Me.ListBox1.Column(1) & "\" & Me.ListBox1
  Set FSO = New Scripting.FileSystemObject
Set Chemin = FSO.GetFolder(rép)
  Me.ListBox2.Clear
  n = 0
  On Error Resume Next
  'For Each f1 In FSO.GetFolder(MonRepertoire).SubFolders
  For Each SOUSDOS In Chemin.SubFolders
    Me.ListBox2.AddItem Chemin.Name
    Me.ListBox2.List(n, 1) = Chemin.Path
    n = n + 1
  Next
  Me.TextBox1 = Chemin.Path
End Sub
Function ChoixDossier()
    If Val(Application.Version) >= 10 Then
       With Application.FileDialog(msoFileDialogFolderPicker)
        .InitialFileName = ActiveWorkbook.Path & "\"
        .Show
        If .SelectedItems.Count > 0 Then
           ChoixDossier = .SelectedItems(1)
        Else
           ChoixDossier = ""
        End If
       End With
     Else
       ChoixDossier = InputBox("Répertoire?")
     End If
End Function
Private Sub UserForm_Initialize()
  racine = "c:\"
  Set FSO = CreateObject("Scripting.FileSystemObject")
  Set DOSSIER = FSO.GetFolder(racine)
  Me.ListBox1.Clear
  Me.ListBox2.Clear

  n = 0
  For Each SOUSDOS In DOSSIER.SubFolders
       Me.ListBox1.AddItem DOSSIER.Name
       Me.ListBox1.List(n, 1) = DOSSIER.Path
       n = n + 1
   Next
   Me.TextBox1 = DOSSIER.Path
  ' listefichiers DOSSIER.Path
End Sub

 

[ChTi160]

Re
Le problème c'est ton histoire de click double clic sur le même bouton.
Jean marie

 

[patricktoulon]

re

En fait avec un double clic dans le TextBox choisir le répertoire et lister dans le premier ListBox les noms dossiers, puis dans la 2ème ListBox les noms des sous-dossiers s'il y en a et dans la 3ème Listbox les noms des fichiers s'il yen a.

si tu réfléchi une seconde tu verra que tu prends un mauvais chemins

alors je vais suivre ton raisonnement hein
tu dis

1° En fait avec un double clic dans le TextBox choisir le répertoire et lister dans le premier ListBox les noms dossiers,

2°puis dans la 2ème ListBox les noms des sous-dossiers s'il y en a

déjà là t'a pas l'impression de ne pas avoir pigé quelque chose
lister les sous dossiers A OUI!!! et du quel dossier dans la liste 1
et dans la liste 3 les fichiers de quel sous dossier de la liste 2

mes recommandations
15 jours de repos forcé

 

[modus57]

Bonjour Patrick TOULON,

Pour faire cour le fichier de Chti60 post#2 me convient.
Chti60, je me suis permis d'adapté un petit peu votre fichier mais je n'arrive pas à coder la liste des fichiers dans la Listbox3 et le nombre de fichiers dans le TextBox4.

 

[modus57]

C'est bon j'ai trouvé pour compter le nombre de fichiers dans le TextBox4 :

Me.TextBox4 = Me.ListBox3.ListCount