Discussion :

[ft035580]

Salut,

En reprenant le code de la FAQ,il s'avère que rien ne se passe :

Code :

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

1
2
3
4
5
Dim MonAccess As New Access.Application
 MonAccess.OpenCurrentDatabase "C:\............MaBase.mdb"  
DoCmd.OpenForm "Formulaire1"
MonAccess.Quit acquitsaveNone
 Set MonAccess = Nothing

Pouvez vous me dire pourquoi ?

Merci.

[RGShoop]

Salut,

1/ Vérifie que dans excel la référence ACCESS soit cochée
2/ Vérifie que ton chemin tape bien sur ton application ACCESS
3/ Vérifie que ton formulaire existe dans ton appli ACCESS


Mais le code que tu utilises, ouvres et ferme ton appli,

Je viens de le tester, il fonctionne,

A+ RGShoop

[Lou Pitchoun]

Salut,

Quand tu dis rien ne se passe.. même pas l'ouverture de la base ??

Code :

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

1
2
3
4
5
6
7
Dim MonAccess As New Access.Application
With MonAccess
    .OpenCurrentDatabase "C:\............MaBase.mdb"  
    .DoCmd.OpenForm "Formulaire1"
    .Quit acquitsaveNone
End With
Set MonAccess = Nothing

Je pense que ça devrait marcher...

[ft035580]

1/ Vérifie que dans excel la référence ACCESS soit cochée
2/ Vérifie que ton chemin tape bien sur ton application ACCESS
3/ Vérifie que ton formulaire existe dans ton appli ACCESS

Tout y est.

Malgré la réécriture du code par "Kikof" , il ne se passe toujours rien.
A part,le "sablier" qui s'affiche le temps d'une fraction de seconde.

J'ai d'abord pensé que le problème provenait de la sécurité Macro qui désactivait ces dernières.Mais lorsque j'ai réessayé ce code dans un nouveau classeur le problème persiste.

Edit:Lorsque je vais dans le gestionnaire des tâches j'ai plusieurs "instances" nommées Msaccess.

[Lou Pitchoun]

Il manque une chose....

Code :

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

1
2
3
Dim MonAccess As New Access.Application
Set MonAccess = CreateObject("Access.Application.8")
....

Si ça ne fonctionne pas : je me pends : c'est tiré de l'aide access...
Précision: en ce qui concerne Access.Application.8 j'ai la version 97 d'access, le numéro lui correspond donc suivant ta version ce sera 9 ou 10 ou 11 ou 12 si tu est en béta 2007

Edit

Lorsque la variable pointant sur l'objet Application est hors de portée (quand l'exécution sort des limites de la variable), l'instance de Microsoft Access qu'elle représente se ferme également. Par conséquent, vous devez déclarer cette variable au niveau du module.

' Insérez ce qui suit dans la section Déclarations du module.
Dim appAccess As Access.Application

[ft035580]

Salut Kikof,

J'avais bien lu cette fameuse "Aide" et en essayant de copier l'exemple rien n'y faisait.

Actuellement,j'ai çà:

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim MonAccess As New Access.Application
Sub OuvertureBd()
Set MonAccess = CreateObject("Access.Application.10")
With MonAccess
    .OpenCurrentDatabase "C:\............MaBase.mdb"
    .DoCmd.OpenForm "Formulaire1"
    .Quit acquitsaveNone
End With
Set MonAccess = Nothing
End Sub

Mais rien , rien du tout.