Discussion :

[AndréPe]

Bonjour,
Mon pb :
Je sais lister les tables de la base active (CurrentDb), mais comment faire pour la même opération pour une base externe ?

Merci del'aide
Amitiés

[argyronet]

Bonjour,

Avec un objet Workspace où tu attaques la BDD externe...

Argy

[AndréPe]

Merci Argy de ta suggestion : mais comment créer à partir du workspaces(0)un nouveau Workspaces qui contiendrait la base externe ?

[Heureux-oli]

DAO

Jette un oeil au tuto DAO

[AndréPe]

Le tuto DAO donne beaucoup de renseignements.
J'ai essayé pour commencer

Dim oWks As DAO.Workspace
Set oWks = DBEngine.CreateWorkspace(Format(Now(), "yyyymmddhhnnss"), "Utilisateur1", "mpd#ç#", dbUseJet)

Mais Msg "Compte ou mot de passe non valide"
j'ai supprimé le mdp (mais est-ce bien la solution ?) et remplacé la date et heure par un simple "1"

Set oWks = DBEngine.CreateWorkspace("1", "utilisateur1", "", dbUseJet)

Même msg d'erreur

[AndréPe]

Je viens de reprendre mon code.
avec

Dim oWks As DAO.Workspace

Set oWks = DBEngine.CreateWorkspace("1", "admin", "", "dbusejet")
Set db = oWks.OpenDatabase("bd1.mdb", False, False, _
"MS Access;PWD=")

pas de pb, tout se passe bien.
J'avais des difficultés avec le mdp et le connect.

Merci de votre aide, une fois de plus ça a bien fonctionné.

Amitiés