Bonjour,
Avec la fonction suivante, j'importe des données qui se trouvent dans une base de données Access vers Excel. Le fichier Excel pourra être partagé à tous les usagers, mais ce n'est pas tous les usagers qui ont accès au dossier partagé où se trouve la base de données Access. Est-ce possible de leur permettre d'y avoir accès en ajoutant mon nom d'utilisateur et mot de passe dans le code?


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
20
21
22
23
24
25
Public Connexion
 
Function RecherchevAccess(ChampRecherche, valeurRecherche, champRetour, tbl, base)
    Dim GenereCSTRING As String
    Dim rs
    Application.EnableEvents = False
    Application.ScreenUpdating = False
 
 
    If Connexion.State = 0 Then
        Fichier = "G:" & "\" & 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
    Application.EnableEvents = True
    Application.ScreenUpdating = True
 
End Function