Bonjour, Guigui
Un exemple qui fait strictement ce que tu demandes, mais bien d'autre solution sont possible en utilisant les boites de dialogues intégrés.
Tout dépend de ce que tu veux faire.
A suivre
Private Sub ComboBox1_GotFocus()
ComboBox1.Clear
fic = Dir("c:\windows\*.exe")
While Dir <> ""
ComboBox1.AddItem fic
fic = Dir()
Wend
End Sub