Sub ConnectionBase()
Dim Cnx As ADODB.Connection
Set Cnx = New ADODB.Connection
On Error GoTo Err1
Cnx.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Portable\Desktop\cartonette\Base_cartonette.mdb;Persist Security Info=False"
Exit Sub
Err1:
DeconnexionBase
End Sub
Sub DeconnexionBase()
On Error Resume Next
Cnx.Close
End Sub
Sub ajoutdb()
Dim NcmdT As String, NcmdE As String, nbrobjcmdag As String, SQLText As String
Dim Nag As String, nbrobjag As String, Nom As String, NomF As String
m = 9
For m = 9 To 17
If Cells(m, 1) <> "" Then
Nag = Range("V2").Value
nbrobjag = Range("E18").Value
Nom = Range("L5").Value
NomF = Range("C5").Value
NcmdT = Workbooks("Cartonette.xlsm").Sheets("Feuil1").Cells(m, 1).Value
NcmdE = Workbooks("Cartonette.xlsm").Sheets("Feuil1").Cells(m, 2).Value
nbrobjcmdag = Workbooks("Cartonette.xlsm").Sheets("Feuil1").Cells(m, 23).Value
SQLText = "INSERT INTO Donnees (N° de commande Technifen, N° de commande easywin, Nombre d'objet de la commande sur l'agrès, N° de l'agrès, Nombre d'objet sur l'agrès, Nom client Technifen et adresse, Nom client final) VALUES ('" & NcmdT & "', '" & NcmdE & "', '" & nbrobjcmdag & "', '" & Nag & "', '" & nbrobjag & "', '" & Nom & "', '" & NomF & "')"
ConnectionBase
Cnx.Execute SQLText
DeconnexionBase
MsgBox "ligne ajoutée"
End If
Next m
End Sub