Private Sub UserForm_Initialize()
Me.ComboBox1.Clear
nf = Dir("D:\Dossiers Excel\Divers\" & "*.*")
Do While nf <> "": Me.ComboBox1.AddItem nf: nf = Dir: Loop
End Sub
Private Sub ComboBox1_Change()
Dim chemin As String, fichier As String
chemin = "D:\Dossiers Excel\Divers\"
fichier = Me.ComboBox1.Text
Workbooks.Open Filename:=chemin & fichier
Unload Me
End Sub