requete vba excel access

requete vba excel access - VB/VBA/VBS - Programmation

Marsh Posté le 24-03-2006 à 19:25:49    

Bonsoir a tous,
 
j'essaye de me connecter à une base access avec vba depuis excel
 
en fait mon objectif est de stocker dans un tableau les résultats de la requete un peu comme en php puis ensuite de les manipuler en vba pour les afficher un peu ou je veux dans excel une fois elle sont stocké dans mon tableau.. :)
 
Mais j'ai vraiment du mal à me mettre dedans,
 
je ne sais pas trop ou cherché la doc et surtout quoi chercher ...
 
mon code pour le moment est celui ci :
 
Sub base()
 
Dim db As DAO.Database, rst As DAO.Recordset, fld As DAO.Field
Dim sSQL As String
'Ouverture de la base de données
Set db = DBEngine.OpenDatabase(".\test.mdb" )
sSQL = "SELECT * From test"
'Ouverture du recordset
Set rst = db.OpenRecordset(sSQL, dbOpenForwardOnly, dbReadOnly)
 
Range("A1" ) = rst
 
'Fermeture du Recordset
rst.Close
End Sub
 
je pense que j'ai réussi à me connecté mais en fait pour manipuler un tableau la j'ai vraiment du mal..
 
Quelqu'un pourrait il m'aider svp  
 
m'ci beaucoup :sweat:

Reply

Marsh Posté le 24-03-2006 à 19:25:49   

Reply

Marsh Posté le 28-04-2006 à 11:53:44    

Bonjour
je viens juste de tomber sur ça : http://www.rci-informatique.fr/DT/ [...] xemple.pdf
Je pense que ça devrait t aider

Reply

Marsh Posté le 28-04-2006 à 14:56:23    

Il n'y a pas besoin de programmation pour faire ce que tu dis.
Excel et son interface sont suffisants.
Menu « Données externes/Créer une requête... » te permet de stocker dans une feuille de calcul les données (réactualisées si nécessaire) que tu veux traiter.
Dans une autre feuille (autre onglet) tu peux créer tous les tableaux croisés dynamiques que tu veux en les basant sur la première feuille.
Je ne vois pas l'intérêt de s'embêter avec VBA pour ça.
 
Si tu veux vraiment, fais les manipulations avec l'enregistreur de macros activé et tu vas regarder le code ainsi créé.


Message édité par tegu le 28-04-2006 à 14:57:42
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed