Bonjour,
Voila j'ai un projet informatique compliqué à réaliser. Il faut à partir d'EXCEL pouvoir modifier et ajouter des enregistrements dans ACCESS. Je m'occupe de la partie modification et c'est compliqué, je souhaite au départ en sélectionnant un numero, nom et prenom d'un individu obtenir toutes les infos le concernant (client, personne qui traite le dossier, chef de projet, lieux de suivi etc.. Puis je souhaite pouvoir modifier les données mais c'est la galère, voici mon code( dès que les lignes de code sont en commentaire ça ne fonctionne pas):

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
Sub affichage_modification()
Dim requete_suivis As String
Dim requete_candidat As String
Dim requete_bu As String
Dim requete_client As String
Dim requete_consultant As String
Dim requete_presta As String
Dim requete_region As String
Dim requete_cdp As String
Dim Db, db1 As Database
Dim rs_suivis As Recordset
Dim rs_candidat, rs_client, rs_bu, rs_consultant, rs_presta, rs_region, rs_cdp As Recordset
Dim num_ville, num_region, num_client, num_bu, num_consultant, num_presta, num_cdp As Integer
Set Db = OpenDatabase(chemin)
 
 
 
 
requete_candidat = "select * from [CANDIDATS] where CANDIDATS.no_candidat= " & num_cible
Set rs_candidat = Db.OpenRecordset(requete_candidat, dbOpenDynaset)
 
num_ville = rs_candidat(4)
num_region = rs_candidat(5)
num_client = rs_candidat(3)
 
requete_region = "select * from [LIEUX SUIVI REGION] where [LIEUX SUIVI REGION].code_suivi_region=" & num_region
 Set rs_region = Db.OpenRecordset(requete_region, dbOpenDynaset)
 User_modification_client.zt_region = rs_region(1)
 num_cdp = rs_region(2)
 
 
 'requete_cdp = "select * from [CHEFS PROJET] where [CHEFS PROJET].code_chef=" & num_cdp
 ' requete_cdp = "select * from [CHEFS PROJET], [CANDIDATS] where CANDIDATS.no_candidat= " & num_cible
'Set rs_cdp = Db.OpenRecordset(requete_cdp, dbOpenDynaset)
 
 'User_modification_client.zt_chef = rs_cdp(1)
 'User_modification_client.E_mail_cdp = rs_cdp(3)
 'User_modification_client.tel_cdp = rs_cdp(4)
 
'requete_client = "select * from [CLIENTS] where [CLIENTS].nocli=" & num_client
'Set rs_client = Db.OpenRecordset(requete_client, dbOpenDynaset)
'User_modification_client.zt_nom_dossier = rs_client(1)
 
 
'rs_client.Close
'rs_candidat.Close
 
 
 
 
 
'requete_suivis = "select * from [SUIVIS] where SUIVIS.no_candidat=" & Str(num_cible) & ""
 
'Set rs_suivis = Db.OpenRecordset(requete_suivis, dbOpenDynaset)
 
'User_modification_client.zl_dem = rs_suivis(3)
'User_modification_client.zt_date_fin_reelle = rs_suivis(4)
'User_modification_client.zl_presta = rs_suivis(5)
'num_consultant = rs_suivis(1)
'num_presta = rs_suivis(6)
'rs_suivis.Close
 
'requete_presta = "select * from[PRESTATIONS] where PRESTATIONS.code_presta=num_presta"
'Set rs_presta = Db.OpenRecordset(requete_presta, dbOpenDynaset)
'User_modification_client.zl_presta = rs_presta(1)
 
 
'requete_consultant = "select * from [CONSULTANTS] where CONSULTANTS.no_consultant=" & num_consultant
'Set rs_consultant = Db.OpenRecordset(requete_consultant, dbOpenDynaset)
'User_modification_client.zt_consultant = rs_consultant(1)
'User_modification_client.zt_prenom_consultant = rs_consultant(2)
'num_bu = rs_consultant(4)
 
 
'requete_bu = "select * from [BU] where BU.code_bu= " & num_bu
'Set rs_bu = Db.OpenRecordset(requete_bu, dbOpenDynaset)
'User_modification_client.zl_bu = rs_bu(1)
 
'Db.Close
End Sub
Help c'est super compliqué! Merci!!!