Discussion :

[samchich]

Bonjour a tous
depuis 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
13
'connection base 
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

[Invité]

Bonsoir,

https://www.developpez.net/forums/d1...e/#post9900727

[samchich]

Bonsoir,

https://www.developpez.net/forums/d1...e/#post9900727

Bonjour
sincèrement je suis débutant je n'ai rien compris en cherchant une solution j'ai trouver cette syntaxe mais je ne parviens pas a l'adapter

Code :

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

1
2
Driver={Microsoft Access Driver (*.mdb, *.accdb)};Dbq=C:\mydatabase.accdb;
Uid=Admin;Pwd=;ExtendedAnsiSQL=1;

Cordialement