RechercheV dans Access depuis Excel dans requête

Bonjour,
J'ai la fonction suivante qui me permet de récupérer des données d'Access depuis Excel.

Code:

---

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

Function RecherchevAccess(ChampRecherche, valeurRecherche, champRetour, tbl, base) Dim GenereCSTRING As String Dim RS   If Connexion.State = 0 Then Fichier = "F: " & "\" & base GenereCSTRING = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Fichier & ";" Connexion.Open GenereCSTRING End If   SQL = "Select " & champRetour & " FROM " & tbl & " Where " & _ ChampRecherche & "='" & valeurRecherche & "'"   Set RS = CreateObject("ADODB.Recordset") RS.Open SQL, Connexion, 1, 3 If RS.EOF = False Then RecherchevAccess = RS(champRetour) RS.Close   End Function

---

J'aimerais l'adapter pour faire la recherche dans une requête que j'ai déjà enregistré dans Access au lieu de rechercher dans une table Access.

Comme je ne savais pas comment l'écrire et que je n'ai pas pu trouver l'information que je cherchais dans Internet, j'ai essayé de créer une requête à partir de ma requête dans Access. Je n'ai pas pu recréer exactement la même chose que j'ai besoin dans ma fonction, mais ça m'a donné le code SQL suivant:

Code:

---

1 2	SELECT Requête22.Champ1 FROM Requête22;

---

J'ai donc essayé d'utiliser la même syntaxe (Requête22.Champ1) pour modifier ma fonction, mais ça ne fonctionne pas et je n'ai plus d'idée quoi faire. Voici la fonction modifiée:

Code:

---

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

Function RecherchevAccess(ChampRecherche, valeurRecherche, champRetour, tbl, base) Dim GenereCSTRING As String Dim RS   If Connexion.State = 0 Then Fichier = "F: " & "\" & base GenereCSTRING = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Fichier & ";" Connexion.Open GenereCSTRING End If   SQL = "Select " & tbl & "." & champRetour & " FROM " & tbl & " Where " & _ "((" & tbl & "." & ChampRecherche & ")='" & valeurRecherche & "');"   Set RS = CreateObject("ADODB.Recordset") RS.Open SQL, Connexion, 1, 3 If RS.EOF = False Then RecherchevAccess = RS(tbl & "." & champRetour) RS.Close   End Function

---

Bonjour,
tu n'a rien à modifier ,juste changer ta formule dans Excel!

Code:

---

= RecherchevAccess(ChampRecherche; valeurRecherche; champRetour;"MaReqête";base)

---

Bonjour

Access ne différencie pas table et requête sous réserve qu'il ne s'agisse pas d'une requête paramétrée.

Le FROM se limitant à une table ou requête unique le préfixe n'est pas obligatoire devant le champ.

Tbl correspond bien au nom de la requête enregistrée dans Access ?

Merci. J'y avais pensé aussi et pourtant ça ne semble pas fonctionner. Je viens juste de le tester de nouveau et j'ai toujours le résultat "#valeur". Je vais continuer à chercher. C'est peut-être juste un petit détail qui m'échappe. Pourtant, j'ai vérifié la syntaxe...:roll:

toujours dans ta formule, fais attention à tous les élément que tu fournis à ta fonction champRetour="Champ1" par exemple!

@78chris
Pas sûre ce qu'est une requête paramétrée. J'ai fait une requête avec deux champs.

Champ: Champ1
Table: Table 1
Total : Groupé par

Champ: SommeDeChamp28: Champ28
Table: Table 1
Total: Somme

Le premier champ contient des numéros de département et regroupe les numéros de département identiques. Le deuxième champ additionnne les données du 2e champ pour chaque numéro de department.

Merci pour la réponse. Ça m'aide à voir un peu plus clair et me rassure que je ne dois pas être loin de la solution.

Code:

---

select Cp,Sum(Valeur) as Addition group by cp

---

Code:

---

1 2 3

'= RecherchevAccess(ChampRecherche, valeurRecherche, champRetour, tbl, base) = RecherchevAccess("cp"; "75013"; "Addition";"MaRequête";base)

---

Ah, super! Ça fonctionne. :D

J'ai tout recommencé en prenant mon fichier initial et ça a fonctionné. Peut-être qu'une connexion s'était brisée en court de route à force de manipulations. Merci à tous.:ccool: