Connexion a ma base access protégé

Bonjour

Depuis un fichier excel j'utilise cette macro (Connecte_base_Access) pour la connexion a ma base access

je shouhait 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

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

Merci d'avance

Cordialement

Bonjour Gouloom le forum

bah je ne sais pas mais vu de loin tu peux tester mais c'est juste une idée, je ne connais pas la syntaxe, et je vais suivre le post de tout près

a+

Papou

 connstring = "DRIVER={Microsoft Access Driver (*.mdb, *.accdb)}; DBQ=" & Chemin_Base;
Uid=Admin;Pwd="ton mot de passe";ExtendedAnsiSQL=1;

Bonjour Gouloom le forum

bah je ne sais pas mais vu de loin tu peux tester mais c'est juste une idée, je ne connais pas la syntaxe, et je vais suivre le post de tout près

a+

Papou

 connstring = "DRIVER={Microsoft Access Driver (*.mdb, *.accdb)}; DBQ=" & Chemin_Base;
Uid=Admin;Pwd="ton mot de passe";ExtendedAnsiSQL=1;

Bonjour a tous

et merci

je vein de tester mais sans succes si quelqu’un a une solution

merci d'avence

Bonjour Jmd le forum

Merci pour ton lien mais en français tu n'as pas?

Du très peu que j'ai compris, il faut tout de même créer d'abord la connexion en vba??

alors?????

a+

Papou

re

il ne semble pas y avoir de VBA, mais quelques lignes de script de connexion OLE

note que sur ces sujets pointus, les Américains et pays d'Asie sont bien plus pointus que nous autre Français

(les Français pointus vont travailler aux USA ! )

Bonne journée

Rechercher des sujets similaires à "connexion base access protege"