Discussion :

[obelixjcc]

Bonjour,

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

voici le code utilisé :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Daniel.C]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

objAccess.CloseCurrentDatabase

ferme la base;

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

objAccess.Quit acQuitSaveNone

ferme Access.

[kiki29]

Salut, à consulter ?

[Invité]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[obelixjcc]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[SfJ5Rpw8]

Bonjour,

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