Re
Ben si tu utilise l'évenement Combobox_Change, modifie comme suite:
Private Sub ComboBox1_Change()
On Error Resume Next
Workbooks.Open "C:\Documents and Settings\Christophe\Mes documents\Fichier Excel\" & ComboBox1.Value
ComboBox1.ListIndex = -1
End Sub
P.S. Le "On Error Resume Next" afin de géré l'erreur, parce que comme il y a changement dans la combo, il exécute le code, donc il essaye d'ouvrir un fichier "Sans nom, blanc" et la erreur.
Si tu utilise le Command button, fais comme suite:
Private Sub CommandButton1_Click()
Workbooks.Open "C:\Documents and Settings\Christophe\Mes documents\Fichier Excel\" & ComboBox1.Value
ComboBox1.ListIndex = -1
End Sub
La pas besion de géré l'erreur, parce que une modif dans la combo ne fais rien.
Voila, bonne journée
@Christophe@