OVH Cloud OVH Cloud

Connexion a une base access protégé

1 réponse
Avatar
Gortex
Bonjour
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

1 réponse

Avatar
LSteph
Bonjour,
Si le but est de lire des informations dans la base et qu'elle reste prot égée en écriture pas besoin de macro.
Onglet données Connexion Ajouter rechercher (indiquer le chemin)
choisir le fichier source mdb
choisir la table voulue
Une fois la connexion ajoutée dans une feuille en A1
Menu données connexions existantes choisir celle créée
ok
cela va lire le contenu sans altérer la source
Par suite il suffira d'Actualiser pour mettre à jour la feuille excel connectée.
Tu peux aussi aller dans les propriétés de cette connexion pour a ffiner ce que tu souhaites.
Cordialement.
--
LSteph