Ouvrir Acces à partir d'Excel

Bonjour,

je cherche a ouvrir une application Access à partir d'une macro Excel

voici le code utilisé :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Public Sub lancer_access() Dim objAccess As New Access.Application Dim Chemin As String Chemin = "C:\Users\jeanclaude.chastanet\Documents\ACCES BIDOUILLE SCHAFFNER\commandes schaffner.accdb"   objAccess.OpenCurrentDatabase Chemin objAccess.DoCmd.OpenForm "FM_principal", acNormal objAccess.Visible = True objAccess.CloseCurrentDatabase objAccess.Quit acQuitSaveNone     End Sub

---

ça semble fonctionner sauf qu'Access s'ouvre et se referme aussitôt et je me retrouve sur la page Excel

comment y remédier !!

please help !!

merci jean claude

Bonjour,

Code:

---

objAccess.CloseCurrentDatabase

---

ferme la base;

Code:

---

objAccess.Quit acQuitSaveNone

---

ferme Access.

Salut, à consulter ?

Code:

---

1 2	objAccess.Visible = True objAccess.DoCmd.OpenForm "FM_principal", acNormal, "", "", , acDialog

---

J'ai modifié comme suit mais le probleme est le même la base Access s'ouvre une fraction de seconde et referme :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Public Sub lancer_access() Dim objAccess As New Access.Application Dim Chemin As String Chemin = "C:\Users\jeanclaude.chastanet\Documents\ACCES BIDOUILLE SCHAFFNER\commandes schaffner.accdb"   objAccess.OpenCurrentDatabase Chemin objAccess.DoCmd.OpenForm "FM_principal", acNormal, "", "", acDialog objAccess.Visible = True     End Sub

---

que puis-je faire de plus ?

merci

Bonjour,

déplace la déclaration de ton objet access en dehors de ta procédure.

je 'ai pas bien compris ou dois je mettre

Code:

---

Dim objAccess As New Access.Application

---

si je retire de ma procédure

merci

jc

bonjour,

ben tu met la ligne tout en haut de ta page de code juste après la première ligne qui doit être Option Explicit :

Code:

---

1 2 3

Option Explicit Dim objAccess As New Access.Application

---