Bonjour a tous
depuis un userform dans excel je me connecte a une base access avec le bout de code qui fonctionne tres bien
je voudrai proteger mon fichier access avec un mot de passe "PAPA"
donc comment adapter ce code pour que excel se connecte
si vous aviez une solution merci

Cordialement
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Sub Connecte_base_Access()
    Dim rs As Object
    Dim Nom_Base, Chemin_Base, SQL      ', connstring
 
    Set conn = CreateObject("ADODB.Connection")
    Nom_Base = "les-dons-aux association-table-access.accdb"
    Chemin_Base = ThisWorkbook.Path & "\" & Nom_Base
    'chaine de connexion
    connstring = "DRIVER={Microsoft Access Driver (*.mdb, *.accdb)}; DBQ=" & Chemin_Base
    'Connexion a la base
    conn.Open connstring
End Sub