Hello le forum,
J'ai une fonction qui me permet d'aller chercher une valeur dans une table/requête Access en fonction de la valeur d'une cellule d'un tableau Excel. Donc en gros j'ai un code produit dans Excel et Access me donne son prix.
J'ai chopé cette fonction et je l'ai un peu adaptée pour mon probleme : https://www.developpez.net/forums/d1...vaccess-lune1/
En local ça marche tres bien mais une fois que j'ai uploadé Access et Excel sur Sharepoint la liaison ne se fait plus. Pourtant j'ai bien renseigné le chemin d'acces avec des \
Code fonction :
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
| Function RecherchevAccess(ChampRecherche, valeurRecherche, champRetour, tbl, base)
Dim GenereCSTRING As String
Dim rs
Dim Connexion
Fichier = base
GenereCSTRING = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Fichier & ";Persist Security Info=False"
Set Connexion = CreateObject("ADODB.Connection")
Connexion.Open GenereCSTRING
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
Connexion.Close
End Function |
Formule dans Excel :
=RecherchevAccess("Key";$AX$3&BP9;"t_pric";"PricesByCustomers";"\\DOMAINE\Quotations\Master.accdb")
Quelqu'un sait si il y a quelque chose de spécifique à faire ?
Merci d'avance et bonne semaine !
Partager