Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Odbc

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion phaum
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
P

phaum

XLDnaute Junior
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
 
Trier par date Trier par votes
Re : Odbc

Re,

Pas très assidu, je vois ça 😉

Tu édites ton 1er post et tu mets ton code entre
Code: 
[/COLOR][/B] et [B][COLOR=#0000ff][/ code][/COLOR][/B] sans espace après [/

A+
 
Vote positif 0 Vote négatif
Re : Odbc

Re bonjour
suite à la remarque de Bruno je m'essaye dans le balisage
Code: 
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
 
Vote positif 0 Vote négatif
Re : Odbc

Re,

Ohhhhh que c "beau" et plus facile à lire 😉

Essaye avec :
Code: 
Chemin = "C:\Users\Philippe.haumesser\Desktop\"
source.Open chemin & "Database1.accdb"
sans espace entre "acc" et "db"

A+
 
Dernière modification par un modérateur:
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
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....

Code: 
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
 
Vote positif 0 Vote négatif
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"
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

N
  • Question Question
Microsoft 365 connexion ado vers access office 2024 64 bits
Réponses
2
Affichages
267
nabilexcel2007
N
F
  • Question Question
XL 2019 erreur 1004
Réponses
8
Affichages
537
florian50470
F
  • Résolu(e)
XL 2013 compilation ZIP gestion d'attente
Réponses
5
Affichages
759
cp4
J
  • Question Question
XL 2013 [RESOLU] MAJ Office 2016 KB5002160 avec Microsoft.ACE.OLEDB.12.0
Réponses
1
Affichages
1 K
JLE
J
I
  • Question Question
XL 2016 Mon code VBA me renvoi une erreur
Réponses
6
Affichages
777
INFINITY100
I
  • Question Question
XL 2019 Ouverture fichier xlsx dans dossier nom variable.
2
Réponses
16
Affichages
1 K
steph59940
I
  • Question Question
XL 2016 Copier coller entre deux classeurs
Réponses
13
Affichages
905
INFINITY100
I
  • Question Question
XL 2010 Insertion image / Word à partir d’Excel à lire texte d’explication
Réponses
2
Affichages
2 K
jeanmi
B
  • Résolu(e)
XL 2013 Recupérer données dans un classeur fermé bilan horaire annuel.
Réponses
3
Affichages
3 K
micheldu52
B
  • Question Question
XL 2019 bug dans l'enregistrement (VBA)
Réponses
9
Affichages
2 K
bluesky12000
B
N
  • Question Question
XL 2016 Copie feuille de plusieurs classeurs fermés vers classeur actif
Réponses
0
Affichages
1 K
Nestor
N
Z
  • Question Question
copier une feuille d'un classeur fermé dans un classeur ouvert
Réponses
1
Affichages
3 K
herve62
  • Question Question
Petit prob d'envoie de courriels
Réponses
2
Affichages
1 K
Valtrase
J
  • Question Question
XL 2013 Récupération d'une plage d'une feuille de chaque classeur d'un dossier
Réponses
2
Affichages
1 K
JLE
J
  • Question Question
XL 2013 Automatisation publipostage avec word depuis excel
Réponses
3
Affichages
3 K
escouger
Y
  • Question Question
XL 2016 Macro calcul complexe
Réponses
8
Affichages
2 K
youpi457032
Y
C
  • Question Question
XL 2013 VBA erreur d'exécution export vers Access
Réponses
4
Affichages
2 K
chacal33
C
C
  • Question Question
Macro qui plante... pour extraire des données d'un classeur fermé...
2 3
Réponses
40
Affichages
5 K
Christian0258
C
A
  • Question Question
Export de données - Condition compteur
Réponses
0
Affichages
739
Asuki
A
A
  • Question Question
VBA EXCEL: Message d'erreur lors de l'extraction des fichiers
Réponses
2
Affichages
1 K
Aragon10
A
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…