Recherchev dans Excel vers Access

Version imprimable

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:

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

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Function RecherchevAccess(ChampRecherche, valeurRecherche, champRetour, tbl, base)
    Dim GenereCSTRING as string
    Dim rs
dim Connexion
 Fichier = "F:" & "\" & base
GenereCSTRING = "Provider=Microsoft.Jet.OLEDB.4.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

15/04/2015, 17h16
Lune1

Merci beaucoup de votre aide. Malheureusement, il doit y avoir encore quelque chose qui m'échappe parce que ça ne fonctionne pas sur mon ordinateur. J'ai placé la formule:

=RecherchevAccess("Champ1","Test 2","Champ2","Table1","DatabaseTest.accdb")
où le champ1 est le champs où je recherche la valeur Test2 et la valeur retournée est le champ2. C'est bien ce qu'il fallait faire?

Aussi, l'icône d'Access sur mon ordinateur indique 2010, mais quand je crée une base de données Access, il indique entre parathèse 2007 dans la barre de titre, alors j'ai aussi essayé de changer la ligne:

Code:

GenereCSTRING = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Fichier & ";Persist Security Info=False"

par

Code:

GenereCSTRING = "Provider=Microsoft.Jet.OLEDB.12.0;Data Source=" & Fichier & ";Persist Security Info=False"

mais ça n'a pas fonctionné.
15/04/2015, 17h21
Invité

Si tu peux ziper ton Excel et un Access en bidonnant les données!
15/04/2015, 18h25
Lune1

2 pièce(s) jointe(s)

Il semble que le format .accdb ne soit pas accepté, alors je n'ai pas pu mettre mon fichier Access, mais je t'envoie quand même mon fichier Excel et une image de ma table Access que j'utilise pour faire un test.
15/04/2015, 18h47
Lune1

Je viens de trouver mon erreur, il fallait que j'écrive la ligne comme suit:

Code:

GenereCSTRING = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Fichier & ";Persist Security Info=False"

Donc que je remplace le Jet par ACE pour utiliser 12.0 au lieu 4.0.

Merci encore. :D Je n'y serais pas arrivé sans votre aide.
15/04/2015, 18h51
Invité

En réalité tu as trouvé notre erreur!