Discussion :

[Koala toulousain]

Hello tout le monde !
Graaaaaande débutante en vba , je suis actuellement en train de créer une interface en vba sur Excel 2007 d'un moteur de recherche dont la base de donnée serait sur Access 2007 ( je ne sais pas si c'est une bonne idée ou non, mais c'est une contrainte de mon maître de stage).

Mais il y a qqchose que je ne comprends pas :
dans mon xslm, qq part dans le code de click, je fais appel à une requete (toute simple pour démarrer qui s'appelle "Recherche_nom") :
code :

Code :

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

1
2
3
4
5
6
7
  Dim Ac_App As Object
        Set Ac_App = CreateObject("Access.Application")
        Ac_App.OpenCurrentDatabase ("D:\Mes Documents\Test_Access\BDDessai.accdb")
 
        Ac_App.Run "Export_Recherche_nom"
        Ac_App.Quit
        Set Ac_App = Nothing

dans access, dans un module standard :
code :

Code :

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

1
2
3
4
5
Public Sub Export_Recherche_nom()
 
DoCmd.TransferSpreadsheet acExport, , "Recherche_nom", cible, False, ""
 
End Sub

mais j'ai une erreur :
erreur d'execution '40351'
Erreur définie par l'application ou par l'objet.

Qqn aurait une piste ?
Merci à tous !

[marot_r]

Je n'ai pas de solution mais des pistes que j'explorerai.

Tester les morceaux indépendament, c-à-d :

1. Tester le code Excel SANS l'appel du Run. Juste pour voir si tu peux ouvrir Access
2. Tester le code Access dans Access. Pour être sur qu'il est correct.
3. Comme il est possible qu'on ne puisse pas faire de TransfertSpreadSheet quand Excel est en train d'éxcuter du code.
   Remplacer le DoCmd.TransferSpreadsheet acExport, , "Recherche_nom", cible, False, "" par un simple MsgBox "Test" dans Access.
   Si tu as le message alors c'est le TransfretSpreadSheet qui pose un problème.
4. Aussi tester en arrétant le code Excel juste après le Run, pour voir si ce n'est pas une histoire de temps d'éxécution. Excel passant à l'instruction .Quit avant que Access ai fini son export.

A+

[Invité]

Bonjour

Une autre piste est de ne pas ouvrir Access, mais de ce connecté à celui-ci et d'utiliser un recordset avec une requête en SQL (donc ta requête) pour les copier dans Excel.

Une exemple dans le chapitre adéquate de ce tuto : http://cafeine.developpez.com/access...el/excel/#LVII

Philippe

[Koala toulousain]

Bonjour a vous deux, merci pour ces réponses !
Effectivements, c'est bien le transfertspreadsheetqqchose qui bug (pour une raison qui m'est encore inconnue), mais ça fonctionne nickel avec un MsgBox.

Merci pour le lien. A vrai dire, je l'avais déjà vu, mais étant basé sur un office 2007 et l'article datant de 2005, je ne me suis pas attardée dessus. Je vais le faire !

Bonne journée !

[marot_r]

As-tu essayer cela :

Arréter le code Excel juste après le Run, pour voir si ce n'est pas une histoire de temps d'éxécution. Excel passant à l'instruction .Quit avant que Access ai fini son export.

A+