Salut,
Voici une fontion avec Dir pour récupérer les fichiers dans un dossier et sous dossier si SousRep est = à
à coller dans un lmodule standard et de l'USF
Function ListeFichier(Rep$, Optional SousRep As Byte = 0) 'Zon
Dim NomF$, I&, Temp()
NomF = Dir(Rep, SousRep) 'Récupère le 1 er fichier
While NomF <> ""
ReDim Preserve Temp(I)
Temp(I) = NomF
NomF = Dir 'On passe au 2 nd , 3 eme ....
I = I + 1
Wend
ListeFichier = IIf(I > 0, Temp, "Pas de fichier trouvé dans " & Rep)
End Function
Ensuite dans le code de l'USF
T=listefichier("C:\Planning\*.xls")
if isarray(t) then
Lenomdelacacombobox.list=t
else
msgbox T
end if
A+++