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

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:

---

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

Citation:

---

"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

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...

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.

Bonjour

Code:

---

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:

---

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:

---

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

---

late binding
[CODE]

Code:

---

1 2 3

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

---

Au plaisr

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

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

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

Aurais tu la solution?

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

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

Code:

---

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

---

Bonjour le fil, bonjour le forum,

Pfff ! Heureusement que j'étais là moi ! Mais quelle honte...

Citation:

---

Envoyé par rdurupt

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

Code:

---

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

---

---

Bonjour
J'ai essayé votre code mais lorsque je lance la procédure l'erreur est toujours la même soit "Erreur 429 un composant ActiveX ne peut pas créer d'objet"...

Faut il créer une connexion au préalable de ma bdd access vers mon document excel pour permettre à votre procédure de bien pouvoir afficher le résultat de la requête contenu dans cette bdd?
Si Oui je ne connais pas la manière de faire. Je suis désolé j'ai quelques connaissances en VBA, mais c'est la première fois que j'utilise le transfert de données DAO.

Bonjour
En DAO je ne connais pas trop, mais en ADO, c'est sûr qu'il faut une connexion, donc ...
J'utilise ce code pour importer les données d'une table Access dans ma feuille excel

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Set cn = CreateObject("ADODB.Connection") 'La fameuse connexion pour XL2007, A faire évoluer pour les autres versions (le "12.0") With cn .ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Password="""";User ID=Admin;Data Source=" & _ "//Serveur/.../....accdb" & ";" .Open End With   '---- RecordSet --- Set Rst = CreateObject("ADODB.Recordset") strSQL = "SELECT * FROM " & t_access 't_access = Nom de la table Access. Une requête est aussi une table au final Set Rst = cn.Execute(strSQL) 'Ecrit le résultat de la requête à partir de la cellule sélectionnée Selection.CopyFromRecordset Rst '--- Fermetures --- cn.Close 'set ...=nothing etc

---

J'ai choisi du ADO parce que j'ai trouvé la formule(presque magique) de connexion qui fonctionnait avant de chercher dans DAO, mais les deux se ressemble pas mal (pour Excel).
Tout est issu de devellopez.com:wink:
Cordialement

Bonjour piotr76,
Est ce que ce code me permettra, à partir d'excel et par l’intermédiaire d'un bouton, d'afficher une requête SQL déjà existante sur ma bdd sur mon classeur ?

Bonjour,
là on est en pleine confusion entre la technologie Ado qui est une connexion universelle de base de données et Dao qui est le moteur de base de données développé par Microsoft pour son usage personnel.

Code:

---

Set Db = DAO.OpenDatabase(ActiveWorkbook.Path & "\Test-ADODBRD.mdb")

---

ton problème est un manque de vocabulaire!

Code:

---

1 2 3

Set Qry = Db.QueryDefs("Requete_NomPrenomAge") 'requête de sélection Set Rs = Qry.OpenRecordSet ActiveSheet.Range("A1").CopyFromRecordset Rs

---

Code:

---

1 2	Set Rs = Db.OpenRecordSet("SELECT NomPrenomAge.* FROM NomPrenomAge;") ActiveSheet.Range("A1").CopyFromRecordset Rs

---

Code:

---

1 2 3

Set Qrt = Db.TableDefs("NomPrenomAge") Set Rs = Qrt.OpenRecordSet ActiveSheet.Range("A1").CopyFromRecordset Rs

---

Code:

---

1 2 3

Set Qry = Db.QueryDefs("Maj_NomPrenomAge") 'requête Action à exécution direct Qry.Execute Db.Execute "UPDATE NomPrenomAge SET NomPrenomAge.Age = [Age]+1;"

---

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Sub test() Dim Db As DAO.Database Dim Qry As DAO.QueryDef Dim Qrt As TableDef Dim Rs As DAO.Recordset Set Db = DAO.OpenDatabase(ActiveWorkbook.Path & "\Test-ADODBRD.mdb") Set Qry = Db.QueryDefs("Requete_NomPrenomAge") 'requête de sélection Set Rs = Qry.OpenRecordSet ActiveSheet.Range("A1").CopyFromRecordset Rs Set Rs = Db.OpenRecordSet("SELECT NomPrenomAge.* FROM NomPrenomAge;") ActiveSheet.Range("A1").CopyFromRecordset Rs Set Qrt = Db.TableDefs("NomPrenomAge") Set Rs = Qrt.OpenRecordSet ActiveSheet.Range("A1").CopyFromRecordset Rs Set Qry = Db.QueryDefs("Maj_NomPrenomAge") ' Qry.Execute Db.Execute "UPDATE NomPrenomAge SET NomPrenomAge.Age = [Age]+1;" End Sub

---

Citation:

---

Envoyé par esimo

Bonjour
J'ai essayé votre code mais lorsque je lance la procédure l'erreur est toujours la même soit "Erreur 429 un composant ActiveX ne peut pas créer d'objet"...

Faut il créer une connexion au préalable de ma bdd access vers mon document excel pour permettre à votre procédure de bien pouvoir afficher le résultat de la requête contenu dans cette bdd?
Si Oui je ne connais pas la manière de faire. Je suis désolé j'ai quelques connaissances en VBA, mais c'est la première fois que j'utilise le transfert de données DAO.

---

Re...

Pour ADO vs DAO c'est là :
https://www.google.com/url?q=http://...tVu_AJ2JBxmWtA
Et après, on prend ce qu'on préfère!
Pour le code, je n'ai pas eu à utiliser de requête existante. Les utilisateurs n'ayant pas ACCESS sur leurs postes la MCO est plus facile avec EXCEL.
Mais si elle est existante, soit elle est fixe et elle peut être mise en fixe dans la chaine "strSQL"

Code:

---

Set Rst = cn.Execute(strSQL)

---

soit elle peut-être élaborée avec Excel.
Exemple pour ajouter un enregistrement à la table BDD, le SQL donne :

Code:

---

INSERT INTO BDD ( truc_1 ,truc_2 ) VALUES ('valeur1',0)

---

.
On sait bien qu'on peut élaborer n'importe quoi comme chaine de caractères avec Excel, à condition d'être patient et très (très) rigoureux.
Après c'est pareil pour DAO ou ADO;),pour afficher le résultat dans Excel :

Code:

---

ActiveSheet.Range("A1").CopyFromRecordset Rs

---

Et pour ADO et/ou DAO, c'est là http://access.developpez.com/cours/"]http://access.developpez.com/cours/"]http://access.developpez.com/cours/:ouin:

Je précise que je suis dans un environnement professionnel, avec une version spécifique d'Office 2007 et pas mal de verrouillages réseaux :mur:
Et que tout ce qui est marqué sur developpez.com ne fonctionne pas obligatoirement comme il est dit dans le scénario:ouin:
Le mieux est d'essayer les deux (si le temps ou le chef est d'accord):scarymov:.

Cordialement