Problème de lenteur pour importer des données dans Excel à partir un fichier Access dans SharePoint

Version imprimable

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:

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

1 pièce(s) jointe(s)

tu te connecte et te déconnecte quand tu rentre et sort de ta fonction?

chaque cellule tape dans une base différente?

Code:

1
2
3
4
5
6
7
8
Private Sub Workbook_BeforeClose(Cancel As Boolean)
  Connexion.Close
  Set Connexion = Nothing
End Sub
 
Private Sub Workbook_Open()
 Set Connexion = CreateObject("ADODB.Connection")
End Sub

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
public     Connexion
 
Function RecherchevAccess(ChampRecherche, valeurRecherche, champRetour, tbl, base)
    Dim GenereCSTRING As String
    Dim rs
 
If Connexion.State = 0 Then 
     Fichier = "\\sharepoint.rr.ca\Shared Documents" & "\" & base
    GenereCSTRING = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Fichier & ";Persist Security Info=False"
     Connexion.Open GenereCSTRING
end if
     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
 
End Function

16/04/2015, 18h08
Lune1

Merci. En effet, je n'avais pas mis la partie dans "This Workbook". Ça l'améliore un peu: ça prend maintenant 12 secondes. Les formules de chaque cellule vont toujours pointer vers la même base de données Access. Est-ce que je comprends bien qu'on pourrait faire la connexion un seule fois au lieu de le faire à chaque fois qu'on utilise la fonction?
16/04/2015, 18h44
Invité

Oui et c'est bien la solution que je te propose dans le poste précédant.
16/04/2015, 19h41
Lune1

Merci, c'est super! J'ai fait d'autres tests en changeant la valeur recherchée dans la formule pour un grand nombre de cellules en utilisant rechercher et remplacer. Une fois la première connexion établie, les suivantes sont quasi instantanées.
16/04/2015, 22h18
Invité

Oui en effet une fois que tu as ouvert le tuyau c'est l'autoroute!

C'est au péage que ce forme les bouchons!

Avant tu multipliais les accès réseau!