Discussion :

[ted the Ors]

Bonsoir,

J'espere ne pas m'être planté de forum...

Voilà mon probleme:
j'ai une base access, qui contient un certains nombre de table, et dans laquelle j'ai créé une requete assez tordu (avec des bonnes grosses jointures de cochons).
Je cherche à appeler cette requete depuis une feuille Excel, via une macro (lancé depuis Excel) qui me remplirait mon classeur excel.
Comment faire?

J'ai chercher un peu sur le net, j'ai trouvé ce bout de code:

Ce programme permet de récupérer les données d'une table Access
par l'intermédiare d'une requête et de les copier dans une feuille Excel.

Définition des éléments utilisés :
Nom de la base de données --> Commandes.mdb
Table possédant les données à récupérer dans Excel --> Factures
Champs de la table Factures --> NoFacture, Client, Date et Solde
Nom de la requête --> Factures pour un client
Code SQL --> SELECT Factures.Nofacture, Factures.Client, Factures.Date, Factures.Solde FROM Factures
WHERE (((Factures.Client) Like "ALLEE DES VINS"));
Feuille de calcul Excel recevant les données de la table; --> DonnéesDataBase

Code :

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

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
 
Sub CopyFromRecordset_DAO()
 
     Dim Db1 As Database
 
     Dim Rs1 As Recordset
 
     ' Ouverture de la base de données
 
     Set Db1 = DBEngine.OpenDatabase(ThisWorkbook.Path & "\Commandes.mdb" )
 
     ' Ouverture de la table Factures
 
     ' Un objet Recordset représente les enregistrements d'une table
 
     Set Rs1 = Db1.OpenRecordset( Name := "Factures pour un client" , Type :=dbOpenSnapshot)
 
     ' Effacement des données existantes dans la WorkSheet (sauf les titres)
 
     ' et copie des enregistrements
 
     With Worksheets( "DonnéesDataBase" ).Range( "A2" )
 
          With Selection.CurrentRegion
 
               Intersect(.Cells, .Offset( 1 )).Select
 
          End With
 
          Selection.ClearContents
 
          .CopyFromRecordset Rs1
 
     End With
 
     'Fermeture de la Base de données
 
     Db1.Close
 
End Sub

Comme j'y connais rien en VBA (et oui désolé), j'ai copié, collé et adapté (quand même) ce code, mais j'ai un plantage à l'execution, "Type non défini par l'utilisateur"....

Merci d'avance d'éclairer ma (sombre) lanterne

[Abed_H]

Bonsoir
peut être que tu devrais cocher la référence
Microsoft DAO 3.6 Object Library
Outils > Référence - faire défiler la liste et coche la référence indiquée

Bonne soirée

Abed_H

[Invité]

Bonjour

Pour information, d'autres méthodes : http://cafeine.developpez.com/access/tutoriel/excel/

Starec

[ted the Ors]

ok...merci pour ces 1eres réponses...

J'ai néanmoins quelque soucis quand à l'appel de la base Access...Lors de l'execution de la macro, Excel dit ne pas trouver la base...

Je suppute que cela vient de la ligne

Code :

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

Set Db1 = DBEngine.OpenDatabase(ThisWorkbook.Path & "\Commandes.mdb" )

Comment faire si ma base à pour chemin:
C:\Dossier Contenant la Base\MaBase.mdb ???

D'avance merci

[ted the Ors]

Oh la la, quelle galère....J'y connais vraiment rien en VBA...

En fait, l'idée serait d'ouvrir une base de données, et d'y lancer une requete SQL....

[cafeine]

Hello,

le code est assez compact et ne gère pas les erreurs, mais ça donne une bonne trame

NB : IL FAUT AJOUTER LA REFERENCE MICROSOFT DAO 3.6

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub PasteAccessQuery(ByVal dbPath As String, ByVal qryName As String, ByVal r As Range)
 
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
 
    Set db = DAO.OpenDatabase(dbPath, False, False)
    Set rs = db.OpenRecordset(qryName, DAO.dbOpenSnapshot)
 
    r.CopyFromRecordset rs
 
    rs.Close
    db.Close
    Set rs = Nothing
    Set db = Nothing
 
End Sub

Utilisation

Code :

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

PasteAccessQuery "C:\Mabase.mdb", "marequete", range("A2")

[ted the Ors]

Merci Cafeine, j'essaie de suite!

[EDIT]

Euh il y a quelque chose que je n'ai pas du comprendre, la ligne INSTRUCTION va où? Dans le code VBA? Si oui, où par rapport au code que tu as ecris au dessus?

[cafeine]

la ligne utilisation est ce qui déclenche la macro (un exemple) ... mais tu ne dis nulle part comment tu veux déclencher l'import.

[ted the Ors]

la ligne utilisation est ce qui déclenche la macro (un exemple) ... mais tu ne dis nulle part comment tu veux déclencher l'import.

Ah oui certes! Désolé...Difficile d'être précis quand on y connait rien!

L'idée sera de déclencher l'import via une macro (donc depuis la feuille Excel, puis ALT+F8)

Petite précision: la requete sous access est conditionnée par 2 donnée demandées à l'utilisateur qui lance la requete...Cela ne va t il pas poser un probleme lors de son lancement depuis la macro Excel (si cela est seulement possible)?...

[cafeine]

Si, ça va poser de gros problèmes ...
il va falloir passer par des paramètres .Parameters en DAO

Regarde sur le forum Access pour plus d'infos.

[ted the Ors]

J'ai fait une recherche avec PARAMETERS dans la partie de forum que tu m'indiques...Il y a pleins de réponses...Va falloir faire le tri...Surtout que j'ai du mal à joindre tout les bouts de réponses que je lis...

Si quelqu'un a quelques liens particulierement interessant, je suis preneur...

[EDIT] Bon j'ai vu ca, je vais essayer

[ted the Ors]

Ok, petite question subsidiaire:

est il possible d'avoir 2 paramètres?
Dans mon cas, j'ai précédé le code SQL de ma requete par

Code :

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

PARAMETERS Semaine text;

ce qui fait que l'execution de la requete entraine une saisie de l'utilisateur pour "Semaine"...Et je souhaiterai avoir 2 parametres de saisies, et je ne vois pas comment faire (ni ne trouve :s)

[ted the Ors]

Bonsoir,

Mon problème a été resolu ici

Merci à ceux qui m'ont aidé...

@+

ted