Discussion :

[esimo]

Bonsoir,
J'ai créer une macro permettant de récupérer le résultat d'une requête Access, et de l'insérer dans une feuille de calcul Excel par l'intermédiaire d'un bouton de commande.

Code :

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

1
2
3
4
5
6
7
Sub Bouton1_Cliquer()
Dim Db As DAO.Database
Dim Q As QueryDef
Set Db = DAO.OpenDatabase(srcPathBdd & "C:\Users\esimo\Desktop\projet\nba1.accdb", False, False)
Set Q = Db.QueryDefs("Atlanta_domicile")
Db.Execute Q.Sql
End Sub

Je ne vois pas ou est l'erreur

"Erreur 429 un composant ActiveX ne peut pas créer d'objet"

J'aimerai aussi pouvoir contrôler l'emplacement de l'affichage (feuille est cellule)
Merci d'avance

[Thautheme]

Bonsoir Esimo, bonsoir le forum,

Mes connaissances ne me permettent pas de te répondre, toutefois je te conseille de bien vérifier la syntaxe (ou l'orthographe) des deux lignes contenant Set car j'ai eu exactement le même message quand j'écrivais par exemple dans un code :
Set D = CreateObject("Scriting.Dictionary") au lieu de Set D = CreateObject("Scripting.Dictionary"). Il manquait le p...

[patricktoulon]

Bonjour

Code :

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

1
2
3
4
5
6

Dim Db As DAO.Database
Dim Q As QueryDef

Set Db = DAO.OpenDatabase(srcPathBdd & "C:\Users\esimo\Desktop\projet\nba1.accdb", False, False)
Set Q = Db.QueryDefs("Atlanta_domicile")

je ne connais pas ce composant

mais quand tu déclare un set avec un composant déclaré en hearly binding prend bien soin d'en avoir activé la référence

d'autant plus que tu change la definition d'un d'entre eux

Code :

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

1
2
Dim Q As QueryDef                                          'Q devient querydef
Set Q = Db.QueryDefs("Atlanta_domicile")        'maintenant Q devient DB.quelquechose  tu n'a pas l'impression de te tromper quelque part ????

early binding

Code :

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

1
2
dim letruc as chose
machin=letruc ....blablabla

late binding
[CODE]

Code :

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

1
2
3
dim letruc as object
set letruc=createobject(" ton truc ")
machin=letruc...balablabla

Au plaisr

[esimo]

Non je n'ai rien fait de tout ca quelle sont les procédures?

J'avoue être un peu dépassé..

[clementmarcotte]

Bonjour,

As-tu mis une chaîne de connexion à quelque part ailleurs ?
As-tu ouvert ta connexion à quelque part ailleurs ?

Parce que sans chaîne de connexion et sans connexion active, tu ne peux pas accéder à une base de données.

[patricktoulon]

de toute façon ton code est faux et ne peut pas marcher comme tel

et pour les références c'est l'onglet (outil)puis l'item références

[esimo]

Aurais tu la solution?

[patricktoulon]

regarde ici
mais change un de tes "Q" si early binding

[Invité]

Bonjour,
Regarde ce lien :http://warin.developpez.com/access/dao/?page=partie_4

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub test()
Dim Db As DAO.Database
Dim Qry As DAO.QueryDef
Dim Rs As DAO.Recordset
Set Db = DAO.OpenDatabase(srcPathBdd & "C:\Users\esimo\Desktop\projet\nba1.accdb")
Set Qry = Db.QueryDefs("Atlanta_domicile")
'Pour une requête d’exécution direct!
Qry.Execute
'Pour retourner le résultat d'une requête!
Set Rs = Qry.OpenRecordset
End Sub