Discussion :

[Lune1]

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

[Invité]

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

chaque cellule tape dans une base différente?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

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
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

[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?

[Invité]

Oui et c'est bien la solution que je te propose dans le poste précédant.

[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.

[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!