[AC-2003] Comment ouvrir une base Access à partir d'une autre en changeant le groupe de travail? [Résolu]

[david_1]

Bonjour,

Je suis connecté sur une base Access nommée (X) avec le groupe de travail (X), cette base est ouverte dans la fenêtre Access.

Je désirs à partir de cette base ouvrir en VBA une base Access nommée (Y) avec le groupe de travail (Y). Cette base doit être ouverte dans une nouvelle fenêtre Access.

Comment m'y prendre?

Merci d'avance pour votre aide.


Pour info :

En parcourant les forums et les tutoriels j'ai trouvé des explications concernant l'utilisation de la méthode "OpenDatabase" lié à la propriété "SystemDB" de l'objet "DBEngine" qui permet d'ouvrir une base access sécurisée à partir d'une autre, mais pas dans une fenêtre access.

J'ai trouvé des explications sur la méthode "OpenCurrentDatabase" qui permet d'ouvrir une base access dans une fenêtre access mais ne permet pas de changer de groupe de travail.

[LedZeppII]

Bonjour,

J'essaierai simplement en ligne de commande.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Dim strAccExe As String, strDb As String, strMdw As String
Dim strUser As String, strPwd As String
Dim strCmde As String
 
' Chemin complet vers l'exécutable Access
strAccExe = Application.SysCmd(acSysCmdAccessDir) & "MSACCESS.EXE"
' Chemin complet vers Bdd
strDb = "C:\Doss1\Doss2\LaBdd.mdb"
' Chemin complet vers Groupe de travail
strMdw = "C:\Doss1\Doss2\GpTravailLaBdd.mdw"
' Utilisateur
strUser = "Toto"
'Mot de passe
strPwd = "aBcD"
 
' Ligne de commande avec groupe de travail
strCmde = """" & strAccExe & """ """ & strDb & """ /WRKGRP """ & strMdw & """"
 
' Ajout utilisateur
If Len(strUser) > 0 Then
   strCmde = strCmde & " /User " & strUser
   ' Ajout Mot de passe
   strCmde = strCmde & " /Pwd " & strPwd
End If
 
' Soumet la ligne de commande
Shell strCmde, vbNormalFocus

A+

[david_1]

Bonjour,

LedZeppII ta solution répond parfaitement à ma demande

(quand je vois le temps que j'ai passé dessus et le temps que tu as mis à me répondre... chapeau bas!)

Merci bien!

David