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

[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]

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

[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

[Thautheme]

Bonjour le fil, bonjour le forum,

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

[esimo]

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

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.

[piotr76]

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 :

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

[esimo]

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 ?

[Invité]

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 Ta connexion à ta base de données :

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

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

ton problème est un manque de vocabulaire!

Code Affectation d'une requête existante dans ACCESS :

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

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

Code La même chose avec une chaine SQL :

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

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

Code la même chose mais à partir une table :

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

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

Code ces requête font la même chose une ACCESS l'autre SQL :

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

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 :

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

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.

[piotr76]

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 :

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

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 :

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

 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 :

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

 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/

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
Et que tout ce qui est marqué sur developpez.com ne fonctionne pas obligatoirement comme il est dit dans le scénario
Le mieux est d'essayer les deux (si le temps ou le chef est d'accord).

Cordialement