Private Sub UserForm_Initialize()
Dim monrep As String, filtre_fichier As String, filtre_dossier As String, quoi As String
monrep = Environ("USERPROFILE\Documents\POINTAGES\") & "\" ' on définit ici le répertoire à "déployer"
quoi = "DF"
' quoi = "D"
'quoi = "F"
filtre_fichier = "*.*"
filtre_dossier = "*ra*"
deployons Me, monrep, TreeView1, quoi, filtre_fichier, filtre_dossier
'charge le ComboBox
Listerfeuille
End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionfiltre_dossier = "*ra*"ne recensera bien évidemment que les spous-dossiers contenant la chaîne "ra" ... et si tu n'en as aucun dans ce cas, dans ton dossier POINTAGES, ma foi ... (HEU ....).
filtre_dossier = "*"Elle est bien bonne, celle-là !