Bonjour à tout le monde, j'ai un nouveau problème à résoudre...

J'ai un fichier excel avec beaucoup de colonnes et un fichier access avec ma base donnée. Quand je lance ma macro, je veux comparer certaines colonnes de mon fichier excel avec ma base donnée et si c'est les mêmes je veux mettre les données correspondantes de ma base donnée dans un autre fichier excel dans une certaine colonne...

Un exemple sera plus compréhensible ^^. Par exemple dans le fichier que je reçois, y a différents produits en ligne avec des spécificité en colonnes. Une colonne par exemple c'est région, et c'est codé sur ce fichier excel par exemple A4582, qui correspond à une région spécifique dans ma base de donnée. donc j'aimerai comparer les colonnes nécessaire avec ma base, et si ça correspond envoyé la région correspondant au produit dans un autre fichier excel avec son produit correspondant... Je vous écris le code que j'ai écris pour linstant peut être vous comprendriez mieux...

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
Function insertion_donné()
 
' type des produit
 
 xls.Workbooks.Open FichierPath & "HISINVtest.xls"
    xls.Visible = True
xls.Windows("HISINVtest.xls").Activate
 
Set HISIN = xls.Windows("HISINVtest.xls")
 
code_majeure = HISIN.Cells(i, O).Value
code_mineure = HISIN.Cells(i, N).Value
 
srequete3 = "SELECT*FROM code_produit"
rs3("code majeur") = majeur
rs3("code mineur") = mineur
rs3("description") = Description
 
For i = 1 To 5000
    If code_majeure = majeur And code_mineure = mineur Then
        xls.test.FONDS.TYPE_INSTRUMENT = Description
    End If
Next i
 
' précision type produit
 
prdt_precis = HISIN.Cells(i, AR).Value
libel = HISIN.Cells(i, AL).Value
 
srequete3 = "SELECT*FROM code_actif"
rs3("code") = code
rs3("actif") = actif
 
 
For i = 1 To 5000
    If prdt_precis = code Or libel = code Then
        xls.test.FONDS.SECURITY_TIP = actif
    End If
Next i
 
' zone géo
 
GEO = HISIN.Cells(i, AP).Value
geoeco = HISIN.Cells(i, AQ).Value
 
srequete3 = "SELECT*FROM code_zone"
rs3("code") = code
rs3("zone") = zone
 
For i = 1 To 5000
    If GEO = code Or geoeco = code Then
        xls.test.FONDS.GEO = zone
    End If
Next i
 
' type d'OPC
 
typ_OPC = HISIN.Cells(i, AM).Value
 
srequete3 = "SELECT*FROM code_OPC"
rs3("code") = code
rs3("OPC") = OPC
 
For i = 1 To 5000
    If typ_OPC = code Then
        xls.test.FONDS.FUND_TYP = OPC
    End If
Next i
 
 
End Function


les majuscules après le nom du feuillet comme là FUND_TYP pour le dernier ça correspond à certaines colonnes...



Voilà si vous pouvez m'éclairer sur comment je peux faire...

Merci