lioneldu47
XLDnaute Occasionnel
Bonsoir,
J'ai un pb avec le code suivant:
Sub Rectangle1_Clic()
'ajouter un enregistrement dans une table Access
'necessite d'activer la reference Microsoft ActiveX Data Objects x.x Library
Dim Conn As New ADODB.Connection
Dim rsT As New ADODB.Recordset
Dim maTable As String
maTable = "CDE_faisabilité"
With Conn
.Provider = "Microsoft.JET.OLEDB.4.0"
.Open "C:\Users\lionel\Desktop\BdD_BOP1.accdb"End With
With rsT
.activeConnection = Conn
.Open maTable, lockType:=adLockOptimistic
End With
With rsT
.addNew
.Fields("Code Programme").Value = Range("A1")
.Update
End With
rsT.Close
Conn.Close
End Sub
J'ai une erreur sur le chemin, un problème de format je pense car le chemin est bon.
Y a t-il une autre méthode avec l'extention .accdb
Merci
J'ai un pb avec le code suivant:
Sub Rectangle1_Clic()
'ajouter un enregistrement dans une table Access
'necessite d'activer la reference Microsoft ActiveX Data Objects x.x Library
Dim Conn As New ADODB.Connection
Dim rsT As New ADODB.Recordset
Dim maTable As String
maTable = "CDE_faisabilité"
With Conn
.Provider = "Microsoft.JET.OLEDB.4.0"
.Open "C:\Users\lionel\Desktop\BdD_BOP1.accdb"End With
With rsT
.activeConnection = Conn
.Open maTable, lockType:=adLockOptimistic
End With
With rsT
.addNew
.Fields("Code Programme").Value = Range("A1")
.Update
End With
rsT.Close
Conn.Close
End Sub
J'ai une erreur sur le chemin, un problème de format je pense car le chemin est bon.
Y a t-il une autre méthode avec l'extention .accdb
Merci