Bonsoir Greg, le Forum
Une des premières qualité indispensable pour un bon développeur est la patience...
Par ailleurs, DAO est à mettre un peu à l'écart au profit de ADO pour les nouveaux développements...
Sinon Voici ton Code corrigé pour ajouter les données dans ta table Access en me basant sur un Travail de Michel_M sur ce Forum :
Sub WritingWorksheetData_DAO()
'@+Thierry Needs Reference to MicroSoft DAO 3.x Object Library
Dim Plage As Range
Dim Array1 As Variant
Dim x As Long
Dim Db1 As Database
Dim Rs1 As Recordset
Set Db1 = DBEngine.OpenDatabase("C:\Documents and Settings\Bureau\greg\x.mdb")
Set Rs1 = Db1.OpenRecordset("Articledevis", dbOpenDynaset)
Set Plage = Worksheets("Sheet1").Range("A13").CurrentRegion.Offset(1, 0)
Set Plage = Plage.Resize(Plage.Rows.Count - 1, Plage.Columns.Count)
Array1 = Plage.Value
&nbps;&nbps;&nbps;For x = 1 To UBound(Array1, 1)
&nbps;&nbps;&nbps;&nbps;&nbps;&nbps;&nbps;&nbps;With Rs1
&nbps;&nbps;&nbps;&nbps;&nbps;&nbps;&nbps;&nbps;&nbps;&nbps;.AddNew
&nbps;&nbps;&nbps;&nbps;&nbps;&nbps;&nbps;&nbps;&nbps;&nbps;.Fields("NoChrono") = Array1(x, 1)
&nbps;&nbps;&nbps;&nbps;&nbps;&nbps;&nbps;&nbps;&nbps;&nbps;.Fields("Référence") = Array1(x, 2)
&nbps;&nbps;&nbps;&nbps;&nbps;&nbps;&nbps;&nbps;&nbps;&nbps;.Fields("PrixHT") = Array1(x, 3)
&nbps;&nbps;&nbps;&nbps;&nbps;&nbps;&nbps;&nbps;&nbps;&nbps;.Fields("Remise") = Array1(x, 4)
&nbps;&nbps;&nbps;&nbps;&nbps;&nbps;&nbps;&nbps;&nbps;&nbps;.Update
&nbps;&nbps;&nbps;&nbps;&nbps;&nbps;&nbps;&nbps;End With
&nbps;&nbps;&nbps;Next
Rs1.Close
Db1.Close
End Sub
Bonne Soirée
@+Thierry