Bonjour,
Voilà, j'ai un code dans Excel qui fonctionne. Mon code permet de lire dans un fichier Access (placé dans SharePoint) en utilisant une fonction comme montré dans le code ci-dessous.

Dans la section ThisWorkbook :
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
Dans un module :
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.sa.ca\10\199\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
J'ai besoin que les usagers puissent utiliser mon fichier Excel pour lire à leur tour dans Access. J'ai testé mon fichier Excel sur un autre poste de travail qui avait Excel, mais qui n'avait pas Access installé. Quelle déception de constater que ça fonctionne pas sur les stations qui n'ont pas Access. Notre organisation ne veut pas installer Access sur toutes les stations en raison du coût des licences. Y a-t-il un moyen d'ajouter du code qui permettrait aux usagers d'avoir accès aux informations enregistrées dans Access?

J'utilise Excel et Access 2010.