Connexion a ma base access protégé par mot de pass [Résolu/Fermé]

Signaler
Messages postés
151
Date d'inscription
lundi 3 juillet 2017
Statut
Membre
Dernière intervention
25 août 2020
-
Messages postés
151
Date d'inscription
lundi 3 juillet 2017
Statut
Membre
Dernière intervention
25 août 2020
-
Bonjour,
Depuis un userform dans un fichier excel j'utilise cette macro (Connecte_base_Access) pour la connexion a ma base access
je souhait protégé ma base access
Sub Connecte_base_Access()
Dim rs As Object
Dim Nom_Base, Chemin_Base, SQL, connstring

Set conn = CreateObject("ADODB.Connection")
Nom_Base = "pyrus2047_ListView-table-access.accdb"
Chemin_Base = ThisWorkbook.Path & "\" & Nom_Base
connstring = "DRIVER={Microsoft Access Driver (*.mdb, *.accdb)}; DBQ=" & Chemin_Base
conn.Open connstring
End Sub

J'ai trouver ceci mais je ne parviens pas a l'adapter
 connstring = "DRIVER={Microsoft Access Driver (*.mdb, *.accdb)}; DBQ=" & Chemin_Base;
Uid=Admin;Pwd="mot de passe";ExtendedAnsiSQL=1;

si vous avez une solution merci
Cordialement

1 réponse

Messages postés
29781
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
20 octobre 2020
2 859
Bonjour,
Un truc du genre
connstring = "DRIVER={Microsoft Access Driver (*.mdb, *.accdb)}; DBQ=" & Chemin_Base & ";Uid=Admin;Pwd=mot de passe;ExtendedAnsiSQL=1;"


Cordialement, 
Jordane                                                                 
Messages postés
151
Date d'inscription
lundi 3 juillet 2017
Statut
Membre
Dernière intervention
25 août 2020

Re merci beaucoup
Une histoire de guillemets enfin mon problème est résolu merci