Private Sub CommandButton1_Click()
'necessite d'activer la reference Microsoft ActiveX DataObjects x.x Library
Dim Cn As ADODB.Connection
Dim Cd As ADODB.Command
Dim Rst As ADODB.Recordset
Dim Fichier As String
Fichier = 'C:\\monFichier.xls' 'adapter le chemin du fichier fermé
Set Cn = New ADODB.Connection
Cn.Open 'Provider=Microsoft.Jet.OLEDB.4.0;' & _
'Data Source=' & Fichier & ';' & _
'Extended Properties=''Excel 8.0;HDR=No;'';'
Set Cd = New ADODB.Command
Cd.ActiveConnection = Cn
'insertion dans la cellule A1 de la 'Feuil1' du classeur fermé
Cd.CommandText = 'SELECT * from `Feuil1$A1:A1`'
Set Rst = New ADODB.Recordset
Rst.Open Cd, , adOpenKeyset, adLockOptimistic
Rst(0).Value = ComboBox1.Value
Rst.Update
Cn.Close
Set Cn = Nothing
Set Cd = Nothing
Set Rst = Nothing
End Sub