Discussion :

[lahila]

Bonjour, voila je suis debutante en VBA, j'ai trouvé un code sur internet qui permet de lancer une macro access depuis un fichier excel. Tout fonctionne la premiere fois, c'est genial. Mais en relançant une fois la macro, il y a un hic... ça ne marche plus:

Message Erreur d'execution '3027'
mise à jour impossible. La base de données ou l'objet est en lecture seule.

Donc j'ai été voir la base access en question, et tant que je ne ferme pas mon fichier excel, il reste en lecture seule. Il faudrait qu'après la macro, le fichier access se ferme completement, pour que je puisse relancer d'autres macro dans cette base.

Code :

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

1
2
3
4
5
6
7
Sub ExécuterMacroAccess()
 Dim MonAccess As New Access.Application
 MonAccess.OpenCurrentDatabase "Q:\Documents\lahila\base de donnees.mdb" 
MonAccess.DoCmd.RunMacro "Executer les macros"
 MonAccess.Quit acQuitSaveNone
 Set MonAccess = Nothing
End Sub

Si vous avez la solution je prends . Merci d'avance

[tototiti2008]

Bonjour lahila,

Ton code fonctionne chez moi, à plusieurs reprises aussi...

ajoute peut-être un

Code :

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

MonAccess.Visible = True

au début du code, Access devrait apparaître et ça te permettra peut-être de vérifier si ta macro s'est exécutée correctement et s'il ferme bien la base et Access à la fin

Au pire, peut-être essayer d'ajouter la ligne

Code :

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

MonAccess.CurrentDb.Close

Avant de quitter Access

[lahila]

Merci pour votre reponse. C'est bizarre que ca bloque chez moi alors, au niveau d'executer la macro

Code :

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

MonAccess.DoCmd.RunMacro "Executer les macros"

. J'ai mis le visible = true, la fenetre access n'apparait qu'une seconde et se referme immediatement. Maintenant le deuxieme code, je dois le mettre ou exactement? si je le mets à la fin, il me met un message d'erreur bloc with ou objet, et si je le mets en avant dernier, j'ai une erreur serveur client. Que dois je faire?

[Sclarckone]

Le problème d'Access c'est que ça n'a pas vocation à être multi-utilisateur. Du coup lorsque tu travailles sur une bdd elle est verrouillée par Access pour empêcher que quelqu'un d'autre puisse la modifier en même temps.

Je plussoie donc la solution proposée par tototiti2008, à savoir fermer la bdd courante. Par contre je le ferai plutôt comme cela:

Code :

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

Application.CloseCurrentDatabase

Car la méthode:

Code :

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

Database.Close

s'applique à un objet DAO qui n'a pas été explicitement instancié dans notre cas (et qui n'existe donc pas forcément). D'ailleurs à ce sujet voici ce que dit l'aide VBA:

Ne confondez pas la méthode OpenCurrentDatabase avec la méthode Open des objets ADO (Objets de données ActiveX) ou la méthode OpenDatabase des objets DAO (Objets d'accès aux données). La méthode OpenCurrentDatabase ouvre une base de données dans la fenêtre Microsoft Access. La méthode Open des objets ADO renvoie une variable objet Connection, et la méthode OpenDatabase des objets DAO renvoie une variable objet Database ; elles représentent toutes les deux une base de données particulière, mais n'ouvrent pas en fait la base de données dans la fenêtre Microsoft Access.

Le mieux est encore d'essayer les deux pour voir lequel(s) fonctionne(nt) correctement.

[tototiti2008]

Bonjour Sclarckone,
Re,

Merci de ta précision, ça clarifie pourquoi la base ne se fermait pas dans ma fenêtre...

[lahila]

Je ne connais que très peu le vba, j'ai essayé vos deux codes, juste avant end sub
Pour le

Code :

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

Application.CloseCurrentDatabase

, en regardant les lignes du code une par une, il ya une erreur 438 proprieté non gérée par l'objet. La macro d'access s'execute à chaque fois et application.close.. fonctionne mais juste apres il ya le message d'erreur.

Pour

Code :

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

MonAccess.CurrentDb.Close

, la c'est la meme chose sauf qu'il ya un code d'erreur 91 variable objet ou variable de bloc with non définie.

Je ne sais pas trop quoi faire.

[Sclarckone]

Par rapport au code que tu as proposé au début remplace:

Code :

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

1
2
 MonAccess.Quit acQuitSaveNone
 Set MonAccess = Nothing

par:

Code :

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

1
2
MonAccess.CloseCurrentDatabase
MonAccess.Quit acQuitSaveNone