VBA Excel/Access: lecture seule après macro

Version imprimable

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:

Citation:

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:

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

21/09/2011, 10h13
tototiti2008

Bonjour lahila,

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

ajoute peut-être un

Code:

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:

MonAccess.CurrentDb.Close

Avant de quitter Access
21/09/2011, 10h44
lahila

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

Code:

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?
21/09/2011, 10h50
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:

Application.CloseCurrentDatabase

Car la méthode:

Code:

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:

Citation:

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.
21/09/2011, 11h00
tototiti2008

Bonjour Sclarckone,
Re,

Merci de ta précision, ça clarifie pourquoi la base ne se fermait pas dans ma fenêtre... ;)
21/09/2011, 11h33
lahila

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

Code:

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:

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.

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

1 2 MonAccess.Quit acQuitSaveNone Set MonAccess = Nothing
par:
Code:

1 2 MonAccess.CloseCurrentDatabase MonAccess.Quit acQuitSaveNone

21/09/2011, 11h55
lahila

merci de ton aide, j'ai fait comme tu m'as dit, helas, la deuxieme fois, ça fonctionne toujours pas, toujours cette erreur 3027;

Tant que je referme pas le fichier excel, le fichier access reste en lecture seule. Et pourtant en ouvrant le gestionnaire des taches, il n'ya pas d'application access ouverte.
21/09/2011, 12h43
Sclarckone

C'est bien de préciser quelle erreur se produit mais ça serait encore mieux si tu peux nous donner la ligne où elle se produit.

Peux-tu également nous reposter le code tel qu'il est actuellement après les modifications que tu lui a apportées?
21/09/2011, 14h25
lahila

L'erreur 91 et 438 c'etait juste après

Code:

MonAccess.CurrentDb.Close

et

Code:

Application.CloseCurrentDatabase

. Après j'ai remplacé comme tu m'as dis les deux derniere lignes, ca marche une fois, et quand je recommence la macro s'arrete ici:

Code:

MonAccess.DoCmd.RunMacro "Executer les macros"

Si j'arrivais a fermer cette lecture seule...
21/09/2011, 14h30
tototiti2008

Re,

Comme je n'arrive pas à reproduire ton soucis, peux-tu nous expliquer les traitements lancés par ta macro "Exécuter les macros" ?

Citation:

J'ai mis le visible = true, la fenetre access n'apparait qu'une seconde et se referme immediatement.

Est-ce normal, en prenant en compte le temps d'exécution de ta macro ?
Si tu la lances à la main, ça prend combien de temps ?

Je crois avoir trouvé le problème. En fait je vais t'expliquer ce que je fais reellement. Donc sur ma page excel, j'ai fait Données => données externes=> importer. Donc j'ai maintenant une plage de donnée en A3 qu'actualise en cliquant droit . Mon code entier est le suivant:
Code:

1 2 3 4 5 6 7 8 9 10 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 Range("A3").Select Selection.QueryTable.Refresh BackgroundQuery:=False End Sub
J'aurai du vous le dire avant pour les deux dernieres lignes (actualisation), j'en suis desolée, mais j'etais certaine que ca venait pas de cela, puisque sans c'est deux dernieres lignes, j'avais executer le code plusieurs fois et l'erreur 3047 apparaissait toujours. Hors j'ai reouvert le fichier sans actualiser dutout, meme manuellement, et le debut fonctionne à volonté, et des que j'actualise, ca fonctionne plus. Donc c'est les deux codes ensemble qui posent problemes... mais quel probleme? Pourquoi il est en lecture seule le fichier access jusqu'a la fermeture?

Encore desolé, j'espere que ca va plus vous eclairer

Normalement tu devrais plutôt avoir ça:

Code:

1
2
3
4
5
6
7
8
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.CloseCurrentDatabase
MonAccess.Quit acQuitSaveNone
Set MonAccess = Nothing
End Sub

Re,

essaye peut-être comme ça

Code:

1
2
3
4
5
6
7
8
9
10
11
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.CloseCurrentDatabase
MonAccess.Quit acQuitSaveNone
 Set MonAccess = Nothing
 
Range("A3").Select
  Selection.QueryTable.Refresh BackgroundQuery:=True
 End Sub

21/09/2011, 17h08
lahila

Si je fais ton code sclarkone, ca fonctionne tant que je ne fais pas de mise a jour. Si je rajoute le code, ca marche plus apres. Donc ton code tototiti ca marche une fois, tant qu'il a pas passé la mise à jour, puis apres, erreur 3027 et tant que je n'ai plus fermé le fichier excel.

Je comprends pas ce qui ne va pas avec la Mise a jour, cette lecture seule sur le fichier access.
21/09/2011, 17h38
tototiti2008

Re,

Edit : Oups, Erreur de saisie, désolé

Bon, j'ai essayé de faire des données externes sur la même base (à la main, les données externes) et je n'ai toujours pas de soucis
La macro appelée dans la base ajoute un enregistrement à la table liée par les données externes et pourtant ça fonctionne chez moi, même à plusieurs reprises....
Plus vraiment d'idée en stock, sauf peut-être à répondre à la question

Citation:

peux-tu nous expliquer les traitements lancés par ta macro "Exécuter les macros" ?
21/09/2011, 17h42
Sclarckone

A tous les coups, c'est parce que ta QueryTable effectue une requête sur la même bdd (et l'a donc verrouillée).

Comment est effectuée l'import des données externes, à la main ou via du code VBA?
Il faut faire en sorte que l'ouverture de la bdd par la QueryTable se fasse en mode non exclusif.
23/09/2011, 12h08
lahila

je vais regarder avec un ami, et je vous redis. Compliquée cette histoire

Probleme resolu, dans la requete excel, j'ai remplacé Mode=Share Deny Write par Mode=Share Deny None. Et ca fonctionne. merci vous deux.
23/09/2011, 12h15
tototiti2008

Bonjour lahila,

Pour que je meure moins bête, peux-tu préciser à quel endroit tu changes ce mode de connexion ?

Merci
23/09/2011, 15h39
lahila

Salut, quand t'as importé tes données externes tu cliques droit sur une case de cette base de données, tu cliques sur requête, et il ya du code, et c'est ici que j'ai remplacé. Voila. Merci encore pr ton aide !
23/09/2011, 15h59
tototiti2008

Re,

Merci à toi d'avoir répondu, ça m'a permis de comprendre pourquoi ça marchait chez moi et pas chez toi....

Moi je faisait des données externes comme ça :
Menu Données- Données externes - Créer une requête

et toi tu as fait
Menu Données- Données externes - Importer

Les modes de connexion ont l'air différents (connexion OLE d'un côte, ODBC de l'autre ? jamais bien compris tout ça, mais bon) et avec "Créer une requête" tu n'aurais pas eu ton problème, je pense...
23/09/2011, 17h00
Sclarckone

Citation:

Envoyé par tototiti2008

Les modes de connexion ont l'air différents (connexion OLE d'un côte, ODBC de l'autre ? jamais bien compris tout ça, mais bon) et avec "Créer une requête" tu n'aurais pas eu ton problème, je pense...

Non, pour autant que je sache ODBC est un protocole de communication avec un SGBD capable d'exécuter une requête SQL et OLE (OLE DB, en fait, dans le cas qui nous intéresse) est en gros la même chose mais pour accéder à tout "contenant" de données en général et sans que celui-ci supporte nécessairement les requêtes SQL.

Pour lahila, il s'agit en fait d'un problème de verrouillage des données.

Imaginons que tu exécutes des requêtes sur une table donnée, puis tu mets à jour des enregistrements de cette même table en fonction du résultat de tes requêtes.
Si dans le même temps, quelqu'un d'autre modifie la table sur laquelle tu es en train de travailler alors la mise à jour de tes enregistrements va être fausse puisque les données sous-jacentes ont changé entretemps!
Pour éviter ce genre de situation, le plus simple est de verrouiller la table sur laquelle tu es en train de travailler pour être sûr que personne n'y touche.

C'est ce qui se passait ici. En fait elle avait une connexion 'QueryTable' d'ouverte en mode 'Share Deny Write'. Ça implique que tant que cette connexion est ouverte, "personne d'autre" ne peut écrire dans les tables cibles. Et du coup la macro qu'elle essayait de lancer derrière mettait à jour et/ou rajoutait probablement des données et se voyait donc refuser la permission d'écrire dans la table (puisqu'elle était verrouillée par la connexion de la 'QueryTable').

Il y a des moyens beaucoup plus sophistiqués de régler ce genre de problème. Une manière simple également mais plus efficace est d'utiliser un verrouillage mais de type "optimiste"...mais c'est une autre histoire!
30/09/2011, 12h44
tototiti2008

Bonjour Sclarckone,

Je suis sûr que les données que tu fournis sont correctes, cependant, dans les faits :

J'ai un fichier Excel et une base Access, le code de lahila qui exécute une macro Access depuis Excel
Si je fais des données Externes en faisant Importer, et que j'enregistre la macro, le code généré me donne une chaine de connexion comme ça

Code:

OLEDB;Provider=Microsoft.Jet.OLEDB.4.0;Password="";User ID=Admin;Data Source=C:\bd34.mdb;Mode=Share Deny Write;Extended Properties="";

Et à cause du Deny Write, le lancement de la macro Access plante

Si je fais des données externes avec Créer une requête et que j'enregistre la macro, le code généré me donne une chaine de conexion comme ça

Code:

ODBC;DSN=MS Access Database;DBQ=C:\bd34.mdb;DefaultDir=C:;DriverId=25;FIL=MS Access;MaxBufferSize=2048;PageTimeout=5;

Et cette fois-ci il n'y a pas de problème d'exécution de la macro Access, donc pas de verrouillage des données