recherche dans 1 autre classeur

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
 

Discussions similaires

Réponses
9
Affichages
248

Statistiques des forums

Discussions
314 060
Messages
2 105 198
Membres
109 287
dernier inscrit
Pistol