recherche dans 1 autre classeur

  • Initiateur de la discussion Initiateur de la discussion Ataahualpa
  • Date de début Date de début

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 !

A

Ataahualpa

Guest
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
894
Réponses
9
Affichages
824
J
Réponses
1
Affichages
1 K
H
Réponses
35
Affichages
4 K
H
G
  • Question Question
Réponses
2
Affichages
4 K
H
Réponses
2
Affichages
1 K
H
T
Réponses
14
Affichages
3 K
tibofo
T
A
Réponses
3
Affichages
911
B
  • Question Question
Réponses
6
Affichages
1 K
babubil
B
Réponses
15
Affichages
4 K
Retour