1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34
|
Sub Export()
Dim Db As DAO.Database
Dim champs As DAO.Recordset
Dim valeurs As DAO.Recordset
Dim requetesql As String
Dim Chemin As String
Chemin = "M:\settings\Desktop\APAA\bd.mdb"
Set Db = DAO.OpenDatabase(Chemin, False, False)
Dim nbchamps As Integer
Dim i As Integer
Dim j As Integer
Set champs = Db.OpenRecordset("SELECT * FROM APAA")
ThisWorkbook.Worksheets(2).Activate
For i = 2 To Worksheets(2).Rows.Count
For j = 1 To Worksheets(2).Columns.Count
valeurs(1) = Cells(i,3).Value
valeurs(2) = Cells(i,1).Value
valeurs(3) = "5885"
valeurs(4) = Right(cells(1,j+5).value,8)
valeurs(5) = "ZUN"
valeurs(6) = cells(i,j+5).value
requetesql = "INSERT INTO APAA (champs(1),champs(2),champs(3),champs(4),champs(5),champs(6)) (valeurs(1),valeurs(2),valeurs(3),valeurs(4),valeurs(5),valeurs(6)) "
Db.Execute requetesql
Next
Next
End Sub |
Partager