Recuperer des données d'une base ACCESS avec Excel VBA

Version imprimable

Bonjour,

Je m'excuse d'abord pour m'être trompé de forum au tout départ.

J'essaie de créer un outil qui permet de remplir une base de données access à partir de Excel sur VBA. J'ai pu gérer cette première étape.

J'essaie maintenant de faire en sorte que lorsque l'utilisateur rentre un champ dans une cellule Excel et en appuie sur le bouton MATH, le fichier excel propose dans la colonne H les différentes valeurs possibles qu'il aura importé du champ REF HEADER de la table HEADER de la base de données ACCESS (Dico).

Mon problème se trouve au niveau de l'affichage je pense, je ne sais pas trop comment afficher les valeurs trouvées. Pourrais-je avoir des indications svp ?
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 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 Public Sub matchREFs() Dim refsource As String refsource = "" & Sheets(1).Range("F6").Value MsgBox (refsource) 'sql = "INSERT INTO REF_HEADERS ( HEADER ) VALUES (" & refsource & ");" Dim SQLstring As String Dim db As DataBase Set db = New DataBase Dim isOpen As Boolean Dim filePath As String filePath = ActiveWorkbook.Path & "\Dictionary.accdb" db.Fichier = filePath If db.openConnection(DBType.ACCESS_2012) = False Then Exit Sub End If Dim sql As String Dim rs As Recordset sql = "SELECT HEADER FROM REF_HEADERS WHERE HEADER Like (" & refsource & ");" Set rs = db.OpenRecordSet(sql) If rs Is Nothing Then Exit Sub End If Dim ResSQL As String Do While rs.EOF = False For i = 0 To rs.Fields.Count - 1 ResSQL = ResSQL & rs.Fields.Item(i).Name & ";" & rs.Fields.Item(i).Value & Chr(13) & Chr(10) Next rs.MoveNext Loop MsgBox ResSQL If db.executeSQL(sql) = False Then db.closeConnection Exit Sub End If db.closeConnection End Sub
Merci par avance.

Cordialement

01/03/2018, 19h58
Jean-Philippe André
Salut,

si tu souhaites par exemple afficher le contenu de ton recordset, utilise directement CopyFromRecordset
Code:

1 2 3 Set rs = db.OpenRecordSet(sql) Range("A1)".CopyFromRecordset rs
a noter que dans ton SQL tu fais un

Code:

HEADER Like (" & refsource & ");"

pense bien à ajouter les apostrophes avant et apres pour bien considérer la valeur passée comme du texte.

Merci pour ta réponse.

Je n'arrive toujours pas à afficher correctement :(.

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
 
 
refsource = "" & Sheets(1).Range("F6").Value
 
'sql = "INSERT INTO REF_HEADERS ( HEADER ) VALUES (" & refsource & ");"
 
 
Dim SQLstring As String
 
Dim db As DataBase
Set db = New DataBase
 
Dim isOpen As Boolean
Dim filePath As String
 
filePath = ActiveWorkbook.Path & "\Dictionary.accdb"
 
db.Fichier = filePath
If db.openConnection(DBType.ACCESS_2012) = False Then
    Exit Sub
End If
 
Dim sql As String
Dim rs As Recordset
Dim V As Variant
Dim fld As Field
 
sql = "SELECT HEADER FROM REF_HEADERS WHERE HEADER Like ('*" & refsource & "*');"
 
MsgBox sql
'sql = "SELECT * FROM REF_HEADERS WHERE HEADER LIKE ('*" & refsource & "*');"
 
 
Set rs = db.OpenRecordSet(sql)
 
Worksheets("HEADERS").Range("G7:G50").CopyFromRecordset rs
 
If db.executeSQL(sql) = False Then
    db.closeConnection
    Exit Sub
End If
 
db.closeConnection

Que dois-je corriger ?

Merci

02/03/2018, 07h28
Invité

Bonjour,

@aziz1015 :
Pour ma part je comprends pas exactement quel est la question!

Arrête de nous fournir du code incohérent et explique nous ce que tu demande a Access et comment tu veux l'afficher?

Dans ton premier poste tu balayes tous les champs du recordset alors que ta requête ne comporte que HEADER!
Pour concatène le nom du champ qui est forcément HEADER ; avec la valeur??????

Dans le poste 2 tu fais un copyfromrecordset sur un plage????

Pour écrire ta requête, va dans le requêteur d'access et dessin la en mode graphique. Ensuite en bas à droite click sir l'icone SQL et copies colle le script sql dans vba!

@Maxime91327:
Je ne suis pas sur que aziz1015 soit le mieux placé pour t'aider et je ne penses pas que deux discussions pour le prix d'une l'aidera lui!

Citation:

Envoyé par dysorthographie

Bonjour,

@aziz1015 :
Pour ma part je comprends pas exactement quel est la question!

Merci pour ta réponse.

Ma question était de savoir comment afficher le résultat de ma requête sur une feuille excel. Le copyFromrecordset était donc pour ça.

J'avait fait une erreur dans l'écriture de la requête en mettant * au lieu de % pour le Like.

Finalement, j'ai trouvé quelque chose qui m'a permis de récupérer correctement le résultat de ma requête.
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 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 Dim filePath As String filePath = ActiveWorkbook.Path & "\Dictionary.accdb" db.Fichier = filePath If db.openConnection(DBType.ACCESS_2012) = False Then Exit Sub End If Dim sql As String Dim rs As Recordset Dim refsource As String refsource = Sheets(1).Range("F6").Value sql = "SELECT REF_HEADERS.HEADER, REF_HEADERS.ID FROM REF_HEADERS WHERE (REF_HEADERS.HEADER) Like '%" & refsource & "%'" Set rs = db.OpenRecordSet(sql) Dim F As Range Dim I As Integer, t As Long Worksheets("HEADERS").Range("G9:H1000").Clear Set F = Worksheets("HEADERS").Range("G9") For I = 0 To rs.Fields.Count - 1 F.Offset(0, I) = rs.Fields.Item(I).Value Next Do Until rs.EOF I = 0 For I = 0 To rs.Fields.Count - 1 F.Offset(t, I) = rs(I) Next t = t + 1 rs.MoveNext Loop 'Worksheets("HEADERS").Range("H8").CopyFromRecordset rs If db.executeSQL(sql) = False Then db.closeConnection Exit Sub End If db.closeConnection
Merci à tous pour vos réponses