Connexion Access et Excel, Lecture d'un champ à valeur multiple dans Access à partir de Excel

Bonjour je debute avec les connexions ACCESS et EXCEL, aujourd'hui j'arrive à lire les champs avec un recordset, mais il existe dans mon projet des champs avec des valeurs multiples je n'arrive à lire ses champs qu'à l'aide d'un recordset FILS (on ne peut utiliser une clause where dans un champ à valeur multiple, car il faut considérer le champs à valeur multiple comme un recordset).

Ma préoccupation c'est de pourvoir trouver des données spécifiques dans un jeu d'enregistrement qui provient d'un champ à valeur multiple. je veux faire un findfirst dans mon recordset fils : ChmpMltVlu

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

Dim Condition As String Dim chemin_bdREV As String: Dim Enregistrmt As Integer Dim Chmp As Integer: Dim Enregistrmt2 As Integer Dim DnnBsRV5 As Recordset: Dim Enregistrmt3 As Integer Dim ChmpMltVlu As Recordset     Set DnnBsRV5 = base.OpenRecordset("SELECT * FROM SOUTIEN WHERE Code_benef='" & Range("B" & Enregistrmt).Value & "' AND Date_soutien >= #" & Format(CStr(Range("B3").Value), "mm/dd/yyyy") & "# AND Date_soutien <= #" & Format(CStr(Range("D3").Value), "mm/dd/yyyy") & "# ORDER BY Code_benef ASC", dbOpenDynaset)   Set ChmpMltVlu = DnnBsRV5!Alimentation.Fields   If ChmpMltVlu.RecordCount > 0 Then Cells(Enregistrmt, 9).Value = 1 End If   ChmpMltVlu.FindFirst; Alimentation = "A11" DnnBsRV5.FindFirst CStr(Alimentation = "A11")   If Not ChmpMltVlu.NoMatch Then MsgBox "merci" End If   If ChmpMltVlu.RecordCount > 0 Then   Cells(Enregistrmt, 8).Value = 1 End If

---

Je vous remercie de bien vouloir m'aider

Je cherche toujours comment lire les information d'un champ à valeur multiple dans access!

Bonjour

Ce n'est pas une bonne idée d'utiliser ce type de champ dans Access... qui lui-même peine à le sexploiter

Salut.

C'est une très mauvaise invention, les champs multivalués d'Access.

Il ne faut jamais utiliser ce truc et rester dans une configuration classique Deux tables (1:N) ou trois tables (M:N). On sait alors exploiter les données sans le moindre problème.

Peut-être splitter la colonne qui contient le champ multi-valué?

[EDIT] :oops: Grillé par Chris... Bah, autant enfoncer le clou. Comme il le dit, même Access gère mal ce brol

Je suis très reconnaissant de vos interventions merci, mais il faut le dire dans ce cas là je n'ai pas trop le choix parce que je travaille actuellement sur une base de données héritée d'un supérieur, je sais que l'approche n'est pas appropriée mais il a fourni la base dans cet état avec les données déjà renseignées et moi je suis obligé de faire avec donc je cherche un moyen en fait.

Si une solution existe je serai très content

Perso, j'extrairais les données en créant une ligne par donnée du champ multivalué, de manière à reconstituer une structure habituelle de requêtes sur des tables 1:N.

En exemple, voici un code qui va générer le tableau dans Excel sur base d'une table contenant un champ multivalué. Après, avec Excel, tu traites les données en Excel comme d'habitude, via tcd ou fonctions comme NB.SI.ENS, filtres automatiques ou avancés, etc...

Le code:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Sub ExtractionMutivalues() Dim cn As ADODB.Connection Dim rs As ADODB.Recordset Dim cm As ADODB.Command Dim mv Dim Row As ListRow Dim Counter As Long   Set cn = New ADODB.Connection cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;User ID=Admin;Data Source=D:\Documents\Database11.accdb;Mode=Share Deny Write;" Set rs = cn.Execute("select * from contacts") Do While Not rs.EOF mv = Split(rs.Fields("categories"), ";") For Counter = 0 To UBound(mv) Set Row = Range("t_Extraction").ListObject.ListRows.Add() Row.Range(1).Value = rs.Fields("id").Value Row.Range(2).Value = rs.Fields("Nom").Value Row.Range(3).Value = mv(Counter) Next rs.MoveNext Loop cn.Close End Sub

---

La table de départ en Access
Pièce jointe 397225

Le résultat dans le tableau structuré Excel
Pièce jointe 397226

Bonjour

My 2 cents...

Fidèle au modèle classique de données, je n'avais jamais testé dans Access les champs multivalués (avec lesquels j'avais déjà eu des problèmes sur une base Oracle construite par un stagiaire)

Par curiosité j'ai regardé ce que PowerQuery pouvait faire, sachant qu'il est enfantin d'éclater un champ contenant des séparateurs : en 4 clics on normalise les données...

Mais pour PQ ces champs n'existent tout simplement pas : il en fait totale abstraction lorsqu'il analyse la table Access... alors que PowerPivot les restitue sans souci de même qu'une simple liaison Excel...

On peut donc lier la table Access et la normaliser dans PowerQuery sans VBA (ou avec si on veut) pour l'exploiter ensuite, y compris, si nécessaire, avec des tables en relation...

Mais cela suppose d'importer toute la table ce qui n'est pas optimum si la volumétrie est importante.

Je conseillerais donc de réaliser une requête en amont dans Access présentant les données de manière normalisée et d'exploiter la requête...

L'idée du split m'a permis de trouver la solution en fait je ne voulais pas avoir à passer par des fichiers EXCEL intermédiaire et j'ai trouver qu'en utilisant les recordset fils ça marche pour lire les informations enregistrée dans le champs multivalue.

Code:

---

1 2 3 4 5 6 7 8

Set DnnBsRV5 = base.OpenRecordset("SELECT * FROM SOUTIEN WHERE Code_benef='" & Range("B" & Enregistrmt).Value & "' AND Date_soutien >= #" & Format(CStr(Range("B3").Value), "mm/dd/yyyy") & "# AND Date_soutien <= #" & Format(CStr(Range("D3").Value), "mm/dd/yyyy") & "# ORDER BY Code_benef ASC", dbOpenDynaset) Set ChmpMltVlu = DnnBsRV5.Fields("Alimentation").Value 'Set ChmpMltVlu = DnnBsRV5!Alimentation.Value ChmpMltVlu.MoveFirst Do MsgBox ChmpMltVlu!Value.Value ChmpMltVlu.MoveNext Loop Until ChmpMltVlu.EOF = True

---