Discussion :

[yoda1000]

J'ai une zone de liste qui contient les noms complets d'un repertoire.

Je remplie cette zone de la sorte :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dossier = Me.Dossier_des_Videos
Me.Liste_Video.RowSource = ficp.Chercher(Dossier, "*.*", False)

la fonction chercher est définie dans un module :

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
Option Compare Database
Option Explicit
Dim i As Integer
Dim Réponse As String
Public Function Chercher(NomDuChemin As String, NomDuFichier As String, Sous_répertoires As Boolean) As String
On Error Resume Next
Réponse = ""
With FileSearch
    .NewSearch
    .LookIn = NomDuChemin
    .FileName = NomDuFichier
    .SearchSubFolders = Sous_répertoires
    If .Execute() > 0 Then
            For i = 1 To .FoundFiles.Count
            Réponse = Réponse & .FoundFiles(i) & ";"
            Next i
    End If
End With
Chercher = Réponse
End Function

Cette zone de liste est active, sur clic une action s'effectue, utilisant le chemin du fichier bien sur...

Comment est il possible d'avoir cette zone de liste avec les nom de fichiers uniquement et non pas le nom complet et tout en gardant mes action sur MAJ.

[Caroline1]

Pas sur que mon idée est adaptée à ton besoin.

Si je comprends bien, .FoundFiles(i) correspond actuellement au nom complet. Tu voudrais afficher seulement le nom du fichier dans la liste tout en gardant le nom complet "quelque part" pour la mise à jour.

Tu pourrais définir une zone de liste avec 2 colonnes. Ça signifie donc modifier :

-Les propriétés de ta liste.

• Nbre colonnes = 2
• Largeurs colonnes = "0;x cm"
• Colonne liée = 1

-Le retour de ta fonction :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Réponse = Réponse & strNomComplet & ";" & strNomFichier & ";"
    'strNomComplet étant = à .FoundFiles(i) et strNomFichier étant à définir.

[yoda1000]

Oui, c'est exactement ce que je veux faire, je ne savais pas comment integrer un resultat dans une autre colone !

je potasse ça, et je donne les resultats.

Merci pour la réponse !