recherche dans 1 autre classeur

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
8
Affichages
725
Réponses
9
Affichages
366
Réponses
15
Affichages
3 K
Réponses
8
Affichages
11 K
Retour