[Excel] - QueryTable dans Excel Piloté par Access

Bonjour

Dans un fichier excel, j'ai une feuille avec une requête crée à partir de microsoft query qui va se connecter à une vue dans une base oracle.

J'utilise la fonction suivante

Code:

---

1 2 3 4 5

Dim wks As Excel.Worksheet Set wks = BaseDorsal.Worksheets("Extract_Octale") wks.Select wks.QueryTables(1).Refresh BackgroundQuery:=False

---

qui marche dans Excel

Je veuw maintenant piloter ceci par Access à l'aide d'automation.

J'ai le message suivant : erreur 7 mémoire insuffisante

Quelqu'un a-t-il une idée

Starec

Bonjour,

Pour bien comprendre le problème, c'est bien à l'exécution de la requête et non au démarrage d'ACCESS que cette erreur apparaît ?

Parce que si c'est à l'exécution c'est que le système n'alloue pas assez de mémoire à la transaction. C'est le paramètre MaxLocksPerFile du Registre de Windows qui est trop bas.

Pour résoudre le problème il faut augmenter le paramètre MaxLocksPerFile du Registre de Windows.

Bonjour

C'est bien au lancement de la requête

Malheureusement je ne peux changer MaxLocksPerFile, c'est sur un serveur Citrix, avec Excel 2003 version serveur.

D'autres idées ?

Starec

Citation:

---

Envoyé par Starec

Malheureusement je ne peux changer MaxLocksPerFile, c'est sur un serveur Citrix, avec Excel 2003 version serveur.

---

Et de façon temporaire ?

http://support.microsoft.com/?scid=k...86153&x=8&y=11

Citation:

---

Method 2: Using SetOption to change MaxLocksPerFile Temporarily
NOTE: The sample code in this article uses Microsoft Data Access Objects. For this code to run properly, you must reference the Microsoft DAO 3.6 Object Library. To do so, click References on the Tools menu in the Visual Basic Editor, and make sure that the Microsoft DAO 3.6 Object Library check box is selected.

Note Changes made to the MaxLocksPerFile setting by using the SetOption method will only be available through the current session of Data Access Objects (DAO). Queries that are run through the Microsoft Access user interface will still use the settings in the registry.

The following code sample sets MaxLocksPerFile to 200,000 before executing an update operation inside a transaction:

---

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

Sub LargeUpdate() On Error GoTo LargeUpdate_Error Dim db As DAO.Database, ws As DAO.Workspace   ' Set MaxLocksPerFile. DBEngine.SetOption dbMaxLocksPerFile, 200000   Set db = CurrentDb Set ws = Workspaces(0)   ' Perform the update. ws.BeginTrans db.Execute "UPDATE BigTable SET Field1 = 'Updated Field'", _ dbFailOnError   ws.CommitTrans   db.Close MsgBox "Done!" Exit Sub   LargeUpdate_Error: MsgBox Err & " " & Error ws.Rollback MsgBox "Operation Failed - Update Canceled" End Sub

---

Je pense qu'il doit y avoir un version française de cette page

essaye outil options avancé et décoche ouvrir avec enregistrement verrouillé

Re

Désolé Random, t'as solution ne fonctionne pas.

Désolé chouks, ta solution fonctionne sur une table Access, hors c'est une feuille Excel que je mets à jour par l'intermédiaire d'Access par automation.

Starec

tu peux lire çahttp://www.developpez.net/forums/sho...d.php?t=162207

Re

J'ai bien vu le truc, mais je pense que vous n'avez pas tout saisie, les posts parle de traitement sous Access, hors le traitement ce fait sous Excel piloter par Access, c'est une fois le traitement fini que j'importe ma feuille Excel dans une table Access (cette partie marche)

Starec

Donc en gros si j'ai bien compris

les données devraient suivre le chemin : Oracle->Excel->Access

Si Excel exécute la requête tout seul comme un grand il n'y a pas de bug.

Si excel est chapeauté par Access là il y a bug.

Bizzard !!! :koi: Car par automation, une instance d'excel est créée comme à l'ouverture classique d'un classeur.

Re

D'accord avec toi, je fais d'autre traitement avec Excel récupération de données, etc. à partir d'Access, pas de soucis, par contre pour cette mise à jour ?

En effet par automation je récupére le nombre de ligne par une feuille, et ensuite je fais un TransferSpreadsheet sans problème.

C'est uniquement cette remise à jour des données

Starec

Re

Sinon, mon code fonctionne bien sous Excel, mais peut-être qu'il n'est pas bon et que Excel me gére une erreur, qui sais, quelqu'un a-t-il un autre code similaire.

De plus pour compliquer les choses, je ne sais pas si cela à un rapport, mais voilà :

La base Access est en 2000 sur mon poste, sur le serveur runtime 2003 (celui-ci fonctionne avec 2000, je l'ai testé sur d'autres bases, mais pas avec cette fonction). Sous Access j'ai référencé la bibliothèque Excel 9.0 donc 2000, et sur serveur Excel 2003

Merci

Starec