Recherche données Excel <-> Access

Version imprimable

22/07/2010, 19h06
hugues03

Recherche données Excel <-> Access

Bonjour à tous,

Je cherche à vérifier par le biais d'une macro, la présence dans ma base de données Access, d'une donnée qui est dans un tableau croisé dynamique sous excel.

Je sais lire les données 1 à 1 aussi bien dans mon champs de tableau croisé dynamique que dans ma base de données Access mais je n'arrive pas à trouver le code pour me dire:

J'ai trouvé une donnée dans ton tableau croisé dynamique que tu n'as pas dans ta table de données Access, il faut mettre à jour votre base de données...

Merci par avance.
23/07/2010, 07h45
mayekeul

bonjour,

avant de te répondre.

comment fait tu pour lire les données access?

Salut, pour faire une recherche avec une inpubox dans ma base de données Access je fais:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
Sub recherche()
 
Dim Var1 As String
Var1 = InputBox("Titre", "Texte")
 
Dim db As Database
Dim rs As Recordset
 
Set db = DBEngine.OpenDatabase("C:\mabasededonnées.mdb")
var_requete = "select * from MaTable where Champs1;"
 
Set rs = db.OpenRecordset(var_requete)
Do While Not rs.EOF
    If Var1 = rs.Fields("Champs1") Then
    MsgBox "Var1 dans la base de données"
    Exit Sub
    Else
    End If
    rs.MoveNext
Loop
MsgBox "Var1 pas dans la base de données", vbCritical, "Information sur la recherche..."
rs.Close
end sub

Merci.

ben donc je pense que tu devrais faire simplement

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Set db = DBEngine.OpenDatabase("C:\mabasededonnées.mdb")
var_requete = "select * from MaTable where Champs1;"
 
Set rs = db.OpenRecordset(var_requete)
ok=false
Do While Not rs.EOF
    If Var1 = rs.Fields("Champs1") Then
     ok =true
    MsgBox "Var1 dans la base de données"
    Exit Sub
    End If
    rs.MoveNext
Loop
if not ok then MsgBox "Var1 pas dans la base de données", vbCritical, "Information sur la recherche..."
rs.Close
end sub

sorry, je viens de voir, que je n'avais pas bien compris ta demande

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
Sub recherche()
 
Dim Var1 As String
 
Dim db As Database
Dim rs As Recordset
dim C as range
 
Set db = DBEngine.OpenDatabase("C:\mabasededonnées.mdb")
var_requete = "select * from MaTable where Champs1;"
 
Set rs = db.OpenRecordset(var_requete)
for each C in range("A1:A10").cells 'range est donné a titre d'exemple, il faut adapter selon ton cas
Do While Not rs.EOF
    If Var1 = rs.Fields("Champs1") Then
         MsgBox "Var1 dans la base de données"
         Exit Sub
    End If
    rs.MoveNext
Loop
rs.movefirst
next c
MsgBox "Var1 pas dans la base de données", vbCritical, "Information sur la recherche..."
rs.Close
end sub

23/07/2010, 15h00
hugues03

Merci pour ta réponse, mais ca ne fonctionne pas...

J'ai beau y mettre dans tout les sens ca ne veut pas...

Soit ca me met tout les valeurs de mon tableau croisé ou soit ca me met uniquement la dernière valeur...

Je ne comprend pas pourtant quand on lit le code ca devrait fonctionner...:cry::cry::cry::cry:
23/07/2010, 15h26
hugues03

En faite je me demande si je ne me trompe pas dans ma manière de chercher...

Je devrais vérifier l'absence, plutôt que la présence... non?
23/07/2010, 16h31
hugues03

Non c'est bon, finalement j'y suis arrivé... :aie: J'ai utilisé ta première méthodes.

Impéccable et merci beaucoup pour ton aide!!! :ccool::ccool::ccool::ccool:

Sujet résolu!