Option Explicit
Dim Chem$
Private Sub Ini()
Dim Chem$, I&, Fs, Nbr&
Chem = ThisWorkbook.Path & "\Catalogues"
Nbr = Len(Chem) + 2
Set Fs = Application.FileSearch
ComboBox1.Clear
With Fs
.LookIn = Chem
.Filename = "CAT_*.txt"
If Fs.Execute > 0 Then
For I = 1 To .FoundFiles.Count
ComboBox1.AddItem Mid(.FoundFiles(I), Nbr)
Next I
Else
MsgBox ("Pas de catalogue de radiateurs")
End If
End With
End Sub
Private Sub UserForm_Activate()
Ini
Chem = ThisWorkbook.Path & "\Catalogues"
If ComboBox1.ListCount > 0 Then ComboBox1.ListIndex = 0
End Sub