Odbc

[phaum]

Bonjour
j'ai recupéré un code sur le site mais il ne fonctionne pas. Je suis en Windows 7 - Access et EXCEL 2010
J'ai déclaré les bibliotheques suivantes: VB for applications - Office 14.0 Object library, ActiveX Data Object Library, DAO 3.6 Object library

J'ai une erreur "Erreur d'execution '-2147467259 (80004005)' Erreur Automation Erreur non specifiée sur la ligne : " source.Open chemin & "C:\Users\Philippe.haumesser\Desktop\Database1.accdb"



Sub Recuperation_Requete_Access()

Dim source As ADODB.Connection
Dim t_list As ADODB.Recordset
Dim chemin As String, texte_SQL As String

chemin = ActiveWorkbook.Path
' ouvre la base de données Access (microsoft jet)
Set source = New ADODB.Connection
source.Provider = "Microsoft.Jet.OLEDB.4.0;"
source.Open chemin & "C:\Users\Philippe.haumesser\Desktop\Database1.accdb"

Set t_list = New ADODB.Recordset
'requete SQL dans t_demo de tous les champs
texte_SQL = "SELECT [2 X1 Reunion CA et Temps].mois1, [2 X1 Reunion CA et Temps].Trigramme, [2 X1 Reunion CA et Temps].Entite_operationnelle, [2 X1 Reunion CA et Temps]![CA]/[2 X1 Reunion CA et Temps]![SommeDeTemps passé réalisé] AS TJM1 FROM [2 X1 Reunion CA et Temps];"
Set t_list = source.Execute(texte_SQL)

'reporte dans home.xls
Application.ScreenUpdating = False
Range("A2").CopyFromRecordset t_list

'ferme la requête
t_list.Close
source.Close

End Sub

Merci pour votre aide

 

[Compte Supprimé 979]

Re : Odbc

Bonjour phaum

Dis tu n'es pas nouveau sur le forum !?
Merci de mettre ton code entre balises STP ... après on verra

A+

 

[phaum]

Re : Odbc

Salut
Suis pas nouveau mais pas tres assidu.....tu peux me dire comment je fais pour mettre les balises...?
Désolé: novice....
A+

 

[Compte Supprimé 979]

Re : Odbc

Re,

Pas très assidu, je vois ça

Tu édites ton 1er post et tu mets ton code entre

[/COLOR][/B] et [B][COLOR=#0000ff][/ code][/COLOR][/B] sans espace après [/

A+

 

[phaum]

Re : Odbc

Re bonjour
suite à la remarque de Bruno je m'essaye dans le balisage

Sub Recuperation_Requete_Access()

Dim source As ADODB.Connection
Dim t_list As ADODB.Recordset
Dim chemin As String, texte_SQL As String

chemin = ActiveWorkbook.Path
' ouvre la base de données Access (microsoft jet)
Set source = New ADODB.Connection
source.Provider = "Microsoft.Jet.OLEDB.4.0;"
source.Open chemin & "C:\Users\Philippe.haumesser\Desktop\Database1.acc db"

Set t_list = New ADODB.Recordset
'requete SQL dans t_demo de tous les champs
texte_SQL = "SELECT [2 X1 Reunion CA et Temps].mois1, [2 X1 Reunion CA et Temps].Trigramme, [2 X1 Reunion CA et Temps].Entite_operationnelle, [2 X1 Reunion CA et Temps]![CA]/[2 X1 Reunion CA et Temps]![SommeDeTemps passé réalisé] AS TJM1 FROM [2 X1 Reunion CA et Temps];"
Set t_list = source.Execute(texte_SQL)

'reporte dans home.xls
Application.ScreenUpdating = False
Range("A2").CopyFromRecordset t_list

'ferme la requête
t_list.Close
source.Close

End Sub

 

[Compte Supprimé 979]

Re : Odbc

Re,

Ohhhhh que c "beau" et plus facile à lire

Essaye avec :

Chemin = "C:\Users\Philippe.haumesser\Desktop\"
source.Open chemin & "Database1.accdb"

sans espace entre "acc" et "db"

A+

 

[tototiti2008]

Re : Odbc

Bonjour phaum, Bonjour Bruno ,

ou alors, peut-être

source.Open "C:\Users\XXXXXXX\Desktop\Database1.accdb"

 

[Compte Supprimé 979]

Re : Odbc

Salut Toti²2008

Avait pas vue la monstruosité bien vue oeil de faucon

 

[phaum]

Re : Odbc

Re bonjour
Merci pour votre aide...
Helas les deux solutions proposées donnent le meme message d'erreur. Cela n'a donc rien changé.
Est ce que le probleme ne vient pas du fait que ma base soit .accdb ?
Merci pour votre aide car je suis bloqué...SNIF

 

[tototiti2008]

Re : Odbc

Re,

en effet, avait pas vu, va voir par là (en anglais)
Edit : pas tellement oeil de faucon que ça, finalement

sql - ADODB connection to ACCDB file? - Stack Overflow

 

[phaum]

Re : Odbc

Re coucou
C'est bon ca passe....


comme j'ai appris à faire des balises je vous remets le code complet modifié pour quelqu'un qui en aurait besoin

Merci pour votre aide à tous les deux Bonne fin de journée....

Sub Recuperation_Requete_Access()

Dim source As ADODB.Connection
Dim t_list As ADODB.Recordset
Dim chemin As String, texte_SQL As String

chemin = ActiveWorkbook.Path
' ouvre la base de données Access (microsoft jet)
Set source = New ADODB.Connection
source.Provider = "Microsoft.ACE.OLEDB.12.0;"
chemin = "C:\Users\Philippe.haumesser\Desktop\"
source.Open chemin & "Database1.accdb"
Set t_list = New ADODB.Recordset
'requete SQL dans t_demo de tous les champs
texte_SQL = "SELECT [2 X1  Reunion CA et Temps].mois1, [2 X1  Reunion CA et Temps].Trigramme, [2 X1  Reunion CA et Temps].Entite_operationnelle, [2 X1  Reunion CA et Temps]![CA]/[2 X1  Reunion CA et Temps]![SommeDeTemps passé réalisé] AS TJM1 FROM [2 X1  Reunion CA et Temps];"
Set t_list = source.Execute(texte_SQL)

'reporte dans home.xls
Application.ScreenUpdating = False
Range("A2").CopyFromRecordset t_list
 
'ferme la requête
t_list.Close
source.Close

End Sub

 

[Staple1600]

Re : Odbc

Bonsoir

Personnellement j’aurai mis un coup anonymisation ici
Philippe.haumesser
mais bon il est trop tard désormais

PS: un truc du style:
source.Open chemin & "C:\Users\XXX\Desktop\Database1.acc db"