[XL-2003] VBA Excel/Access: lecture seule après macro [Résolu]

[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 :

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 :

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

[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?

[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:

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 :

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.

[Sclarckone]

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

[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.

[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?

[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...

[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" ?

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 ?

[lahila]

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

[Sclarckone]

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

[tototiti2008]

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

[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.

[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

peux-tu nous expliquer les traitements lancés par ta macro "Exécuter les macros" ?

[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.

[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.

[tototiti2008]

Bonjour lahila,

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

Merci

[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 !