Bonjour,
Je tente d'améliorer la vitesse pour la fonction ci-dessous qui permet de faire une recherchev dans Access à partir d'un fichier Excel. Lorsque je place le fichier Access dans un dossier de mon ordinateur, c'est très rapide, mais lorsque je change le chemin d'accès de la variable Fichier pour le chemin vers Sharepoint, il prend environ 20 secondes à afficher la valeur. Compte tenu que j'ai plusieurs données à aller chercher dans Access, c'est très long. De plus, je ne peux pas laisser mon fichier Access dans un dossier de mon ordinateur. Je dois le mettre dans Sharepoint pour que les autres utilisateurs puisse y avoir accès. Est-ce qu'il y a une méthode pour améliorer la vitesse?


Code : Sélectionner tout - Visualiser dans une fenêtre à part
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 = "\\sharepoint.rr.ca\Shared Documents" & "\" & 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