Appeler un autre MDE depuis un MDE

bonjour,

j'ai créé la 1ère application A.MDB qui appelle la 2è B.MDB. Tout fonctionne sur mon PC. je les compile en MDE. Tout fonctionne avec le code ci-dessous.
Cependant ils fonctionne seulement sur un PC avec la version full Access. sur un PC avec runtime, il ne fonctionne pas.

Avez-vs déjà travaillé sur ce point ? merci pour votre aide.


ci-dessous le sub dans la A.MDE.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Sub test()   On Error GoTo Error_Handler   Dim AppMSAccess As Access.Application Set AppMSAccess = New Access.Application   AppMSAccess.Visible = True AppMSAccess.OpenCurrentDatabase ("C:\IT_EF\B.mde")   Error_Handler:   If Err.Number = 7866 Then AppMSAccess.Visible = False MsgBox "Le chemin de l'application n'est pas correct." End If Exit Sub   End Sub

---

Bonjour,

Regarde si tu peux t'inspirer du code se trouvant ici.

A+

Merci LedZepp II,

j'ai déjà essayé Shell mais il n'a pas fonctionné. voici le code :

Ceci pour appeler Excel avec le fichier

Code:

---

1 2	STRtemp = "P:\00 Lam\mon_emploi_du_tempsNT.xls" Call Shell("excel.exe " & STRtemp)

---

'- Il fonctionne coorectement :P

Ceci pour appeler Access avec le fichier MDE

Code:

---

1 2	STRtemp = "C:\Program Files\Office2003\OFFICE11\MSACCESS.exe p:\B.mde" Call Shell(STRtemp)

---

'- Erreur :cry:

En regardant ton code, j'ai constaté que le nombre de guillemmets est différent.

Code:

---

strCmde = """" & strAccExe & """ """ & strDb & """"

---

peux-tu m'expliquer la signication des 4 guillemmets avant strAccExe.

merci.:ccool:

Code:

---

1 2 3 4 5 6 7 8

' Chemin complet vers Base de données à ouvrir strDb = "C:\Mes Documents\Access\La Base A Ouvrir.mdb"   ' Chemin complet vers exécutable Access strAccExe = Application.SysCmd(acSysCmdAccessDir) & "MSACCESS.EXE"   ' Ligne de commande avec groupe de travail strCmde = """" & strAccExe & """ """ & strDb & """"

---

Bonsoir,

Quand le chemin vers un fichier comporte des espaces, le shell a besoin que l'on encadre ce chemin avec des guillemets doubles.
C'est à ça que servent (en VBA) les quatre guillemets.

Code:

---

1 2	STRtemp = "C:\Program Files\Office2003\OFFICE11\MSACCESS.exe p:\B.mde" Call Shell(STRtemp)

---

Ce code ne fonctionne pas, car il y a des espaces dans le chemin vers MSACCESS.EXE, et il n'y a pas de guillemets doubles.

Comme ça il devrait fonctionner:

Code:

---

1 2	STRtemp = """C:\Program Files\Office2003\OFFICE11\MSACCESS.exe"" p:\B.mde" Call Shell(STRtemp)

---

A+