Hello

J'ai une fonction sous Excel qui récupère une valeur dans une base Access en fonction d'une référence rentrée dans une autre cellule (en gros, depuis la cellule dans laquelle je veux récupérer la valeur, j'appelle la fonction ci-dessous (en gros hein) en mettant en variables des cellules du classeur) :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Function recupDB(vSource As String, vTable As String, vValeur As String, vType As String)
 
Dim vBDD As New ADODB.Connection
Dim vDonnées As New ADODB.Recordset
Dim vSQL As String
 
vBDD.Open "provider=microsoft.jet.oledb.4.0;" & "persist security info=false;" & "data source=" & vSource
vSQL = "select * from " & vTable & " where code='" & vValeur & "'"
vDonnées.Open vSQL, vBDD, adOpenDynamic, adLockReadOnly
recupDB = vDonnées(vType)
vBDD.Close
 
End Function
Tout ça fonctionne bien, je récupère ma valeur, le seul problème c'est que cette façon de faire empêche toute MAJ automatique, enfin en tous cas je n'ai aucune idée de comment procéder...

Vous sauriez ?

Merci

@+

[EDIT]
c'est là :
http://www.developpez.net/forums/sho...8&postcount=14