Ataahualpa
XLDnaute Junior
Bonjour à tous
Je fais des enregistrements avec un classeur partagé dans un classeur fermé (réussi avec l'aide du forum).
Mais comment vérifier si ces enregistrement existent déjà dans ce classeur (fermé)
ci dessous le code pour enregistrer
Merci de votre aide
@hualpa
Dim Cn As ADODB.Connection
Dim Rs As ADODB.Recordset
Dim Fichier As String, Cible As String, feuille As String
Dim i As Byte
Fichier = ThisWorkbook.Path & "\Enregistrements.xls"
feuille = "Enregistrements$" 'attention a ne pas oublier le "$"
Set Cn = New ADODB.Connection
Cn.Open "Provider = Microsoft.Jet.OLEDB.4.0;" & _
"data source=" & Fichier & ";" & _
"extended properties=""Excel 8.0;"""
Cible = "SELECT * FROM [" & feuille & "];"
Set Rs = New Recordset
Rs.Open Cible, Cn, adOpenKeyset, adLockOptimistic
With Rs
.AddNew
.Fields(0) = TextBox1 'Référence
.Fields(1) = TextBox2 N°de serie, Valeur à vérifier avant l'enregistrement
.Fields(2) = TextBox3 'Code
.Fields(3) = Textbox4 'Date
.Update
End With
Rs.Close
Cn.Close
Je fais des enregistrements avec un classeur partagé dans un classeur fermé (réussi avec l'aide du forum).
Mais comment vérifier si ces enregistrement existent déjà dans ce classeur (fermé)
ci dessous le code pour enregistrer
Merci de votre aide
@hualpa
Dim Cn As ADODB.Connection
Dim Rs As ADODB.Recordset
Dim Fichier As String, Cible As String, feuille As String
Dim i As Byte
Fichier = ThisWorkbook.Path & "\Enregistrements.xls"
feuille = "Enregistrements$" 'attention a ne pas oublier le "$"
Set Cn = New ADODB.Connection
Cn.Open "Provider = Microsoft.Jet.OLEDB.4.0;" & _
"data source=" & Fichier & ";" & _
"extended properties=""Excel 8.0;"""
Cible = "SELECT * FROM [" & feuille & "];"
Set Rs = New Recordset
Rs.Open Cible, Cn, adOpenKeyset, adLockOptimistic
With Rs
.AddNew
.Fields(0) = TextBox1 'Référence
.Fields(1) = TextBox2 N°de serie, Valeur à vérifier avant l'enregistrement
.Fields(2) = TextBox3 'Code
.Fields(3) = Textbox4 'Date
.Update
End With
Rs.Close
Cn.Close