Private Sub Form_Load() Dim cnn_Access As New ADODB.Connection Dim cnn_Excel As New ADODB.Connection Dim rst_Access As New ADODB.Recordset Dim rst_Excel As New ADODB.Recordset Dim fld As ADODB.Field Dim Provider As String Dim Base_Access As String Dim Classeur_Excel As String Provider = "Microsoft.Jet.OLEDB.4.0" Base_Access = "c:\temp\basetest.mdb" Classeur_Excel = "c:\temp\classeur1.xls" 'Ouverture base access cnn_Access.Open "Provider=" & Provider & ";" & _ "Data Source=" & Base_Access & ";" 'Ouverture Recordset Access rst_Access.Open "select * from Exemple", cnn_Access, adOpenKeyset, adLockOptimistic 'Ouverture du classeur excel cnn_Excel.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & Classeur_Excel & _ ";Extended Properties=Excel 8.0;" 'Ouverture du Recordset Excel Excel.Open "SELECT * FROM [Feuil1$]", cnn_Excel Do While Not rst.EOF rst_Access.AddNew rst_Access!champ1 = rst_Excel!champ1 rst_Access!champ2 = rst_Excel!champ2 rst_Access!champ3 = rst_Excel!champ3 rst_Access.Update rst.MoveNext Loop ' Fermeture des Recordset Excel.Close rst_Access.Close cnn_Excel.Close cnn_Access.Close End Sub