Programmation dans ACCESS

Il suffit de placer le contenu de ton repertoire contenant les fichiers dans une table
que tu raccorderas à ta liste modifiable.
Voici une procédure te permettant de remplir cette table avec le contenu du répertoire.
La table (="Table1") ne contient qu'un seul champ (="Titre").
Le répertoire contenant tes fichiers est "C:\Mes Textes"

Sub Update_Table1()
Dim PremierFichier, MySQL, FichierSuivant

'Vider la table
MySQL = "DELETE * FROM [Table1]"
DoCmd.RunSQL (MySQL)

'Remplir la table

PremierFichier = Dir("C:\Mes Textes\*.txt")
MySQL = "INSERT INTO [Table1] (Titre) VALUES ('" & PremierFichier & "')"
DoCmd.RunSQL (MySQL)

FichierSuivant = Dir

While FichierSuivant <> ""
MySQL = "INSERT INTO [Table1] (Titre) VALUES ('" & FichierSuivant & "')"
DoCmd.RunSQL (MySQL)
FichierSuivant = Dir
Wend

End Sub

F'là

Michel