Bonjour,
J'essaie d'adapter ce code à Excel 2010. J'ai bien coché la référence Microsoft Office 15.0 Access engine Object comme suggéré dans certains sites, mais ça ne fonctionne toujours pas. Je n'ai pas réussi à trouver d'autre information à ce sujet et je suis bloquée. Est-ce que quelqu'un a une idée?
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 RecherchevAccess(ChampRecherche, valeurRecherche, champRetour, tbl, base) Dim bd As DAO.Database Dim rs As DAO.Recordset fichier = "F:" & "\" & base Set bd = DBEngine(0).OpenDatabase(fichier) Sql = "Select " & champRetour & " FROM " & tbl & " Where " & _ ChampRecherche & "='" & valeurRecherche & "'" Set rs = bd.OpenRecordset(Sql) RecherchevAccess = rs(champRetour) rs.Close bd.Close End Function
Partager