Lister ds un combobox le noms de fichiers d'un repertoire

[DAVIDRUN]

Bonsoir le forum,
Ma requête n'est pas si simple;

Je souhaiterais lister dans un combobox les Numéros apparaissant dans des noms de fichiers (ex de nom de fichiers: FRANCOIS-10.xls), ces fichiers etant dans un repertoire bien précis.
Mais là ou çà se complique, c'est que seuls les numéros correspondant aux noms de fichiers dont le nom est FRANCOIS par exemple devront apparaitre dans ce combobox.
En sachant bien sûr que le nom FRANCOIS est activé dans un autre combobox...

J'espère être compris dans ma requête.

En tout cas merci pour vos bons conseils.

DAVIDRUN

 

[sousou]

Voici un petit code qui devrait te convenir si tu l'adaptes.
Ici sur le click d'une listbox, tu remplis celle-ci en fonction d'un critère (monom) et d'un calcul pour extraire simplement le numéro qui index tes fichiers.
Tous ce passe dans le répertoire courant, mais tu peux facilement à ajouter un chemin à la fonction dir: a = dir(chemin & "*" & monnom &.......)

Dim monnom

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
ListBox1.Clear
lg = Len(monnom) + 1
a = Dir("*" & monnom & "*.xls")
While a <> ""
ListBox1.AddItem Mid(a, lg + 1, Len(a) - lg - 4)
a = Dir
Wend
End Sub

Private Sub UserForm_Initialize()
monnom = "sousou"
End Sub

 

[DAVIDRUN]

Sousou, je te remercie
en adaptant le code fonctionne comme je le veux...

Bye

davidrun