Discussion :

[Alex BI]

Bonjour le forum,

Je cherche à utiliser la fonction de Lune1 de ce sujet https://www.developpez.net/forums/d1...excel-requete/ mais je n'y arrive pas.

Je dois bien renseigner comme ça ?

ChampRecherche : Le nom du champ à lier dans ma requête Access.
ValeurRecherche : La valeur que doit avoir le ChampRecherche dans Access
ChampRetour : Le champ dont la valeur doit être retourné par Access.
Tbl : Nom de la requete de la base Access
Base : Adresse de la base sans le lecteur.

Non ?

J'ai essayé des variantes mais je n'y arrive pas.

Quelqu'un aurait il quelques instants pour m'aider ?

Merci 1K d'avance.

[Invité]

Bonjour,
il faut remettre dans le contexte!

https://www.developpez.net/forums/d1...s/#post8210814

Code Formule Excel :

Sélectionner tout - Visualiser dans une fenêtre à part

= RecherchevAccess("cp"; "75013"; "Addition";"MaRequête";base)

1. Connexion il faut déclarer un variable objet en public!
2. If TypeName(Connexion) = "Nothing" Then si l'objet Connexion n'existe pas
3. If Connexion.State = 0 Then si la connexion n'est pas établis
4. Fichier = "F: " & "\" & base on affect le chenin complet a la base
5. Sql = "Select " & champRetour & " FROM " & tbl & " Where " & ChampRecherche & "='" & valeurRecherche & "'" je sélectionnes le champ à retourner[champRetour ] de la table ou la requête [tbl] filtré sur un texte [ChampRecherche]=[']valeurRecherche[']

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
Public Connexion As Object
Function RecherchevAccess(ChampRecherche, valeurRecherche, champRetour, tbl, base)
    Dim GenereCSTRING As String
    Dim RS
If TypeName(Connexion) = "Nothing" Then Set Connexion = CreateObject("Adodb.Connection")
 
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

[Alex BI]

Bonjour dysorthographie,

Merci beaucoup pour ton aide, je n'avais pas trouvé l'autre fil de discussion sur le même sujet.

Bon j'ai essayé le code envoyé mais ça ne marche toujours pas. Il me retourne un #valeur.

En plaçant des Msgbox j'ai pu vérifier que connexion.state =0 et que GenereCSTRING =


Dans ma formule Excel j'ai ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=RecherchevAccess("Key";$AX$3&BP9;"t_pric";"RQ_PricesByCustomers";"Users\xxxxx\Desktop\NEW QUOT SYSTEM\Master.accdb")

-Le "key" est bien le nom du champ Access sur lequel je veux sélectionner mes data.

-Le "$AX$3&BP9" est bien la valeur que je souhaite trouver sur Access (jai essayé aussi en copiant/collant la valeur depuis Access pour être certain que le problème ne vienne pas de là).

-"t_pric" est bien le champ d'access que je veux retrouver dans excel.

-"RQ_PricesByCustomers" est bien la requête dans laquelle il y a ces infos.

-"Users\xxxxx\Desktop\NEW QUOT SYSTEM\Master.accdb" est bien le chemin d'acces de mon fichier (J'ai juste remplacé F par C dans le code).

Peut être que je dois activer des "Références" pour faire marcher cette fonction ?

Toute aide m'est très précieuse.

Merci beaucoup d'avance

[Alex BI]

CA MARCHE !

En fouillant dans le sujet que tu joins dans ta réponse j'ai vu qu'il y avait un ";Persist Security Info=False"

Je l'ai rajouté et ça marche.

vraiment merci beaucoup pour ton aide dysorthographie !

[Alex BI]

...En local c'est super mais je voudrais également que la feuille excel puisse choper des data de la base quand tout ce petit monde se retrouve sur Sharepoint

J'ai essayé en mettant l'adresse sharepoint de ma base mais ça ne marche pas. Il s’arrête à

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
  Set Connexion = CreateObject("ADODB.Connection")
 Connexion.Open GenereCSTRING

Si qqu a une idée je suis preneur.

Merci