Function RecherchevAccess(ChampRecherche, valeurRecherche, champRetour, tbl, base)
'Cocher Microsoft Office 14.0 Access Database Engine dans Outils/Référence
Dim bd As Database
Dim rs As Recordset
rep_appli = ActiveWorkbook.Path
fichier = rep_appli & "\" & base
Set bd = OpenDatabase(fichier)
Sql = "Select " & champRetour & " FROM " & tbl & " Where " & _
ChampRecherche & "='" & valeurRecherche & "'"
Set rs = bd.OpenRecordset(Sql)
RecherchevAccess = rs(champRetour)
rs.Close
bd.Close
End Function