Discussion :

[Lune1]

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.

[clementmarcotte]

Bonjour,

Tu peux essayer de télécharger les runtimes d'Access sur le site de MS.

https://www.microsoft.com/en-us/sear...ntime&form=DLC

[Invité]

Bonjour,

Code :

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

1
2
 
        GenereCSTRING = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Fichier & ";"

[Lune1]

Merci à tous les deux pour vos réponses.

J'essaie d'éviter d'avoir à télécharger les runtimes d'Access étant donné le grand volume d'ordinateurs que ça impliquerait.

Encore une fois, rdurupt, tu m'as sortie du pétrin. J'ai testé et ta solution fonctionne très bien. Je vais pouvoir continuer à developer une solutions pour les usagers.

[patricktoulon]

bonsoir
juste en passant la methode workbooks.open ouvre aussi les fichier access