[VBA Excel] Erreur 424 sur une requete sql Access dans excel [Resolu]

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [VBA Excel] Erreur 424 sur une requete sql Access dans excel [Resolu]

karoli

Bonjour,
J'ai une erreur 424 "objet recquis" sur cette requete...

Code :

Dim connexion As New ADODB.Connection
Dim Resultat As New ADODB.Recordset
Dim Annee As String
' Connexion à la base
connexion.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=C:\Pilotage\Pilot_Rcvt.mdb;"
Annee = Right(Edition.CBDateUT.Value, 4)
Resultat.Open "Select [ObjAffil].[DelAff] As un,[ObjAffil].[TauxAmexa] As deux,[ObjAffil].[TauxAtexa] As trois,[ObjAffil].[UT] As quatre From [ObjAffil] WHERE [ObjAffil].[Annee] = '" & Annee & "'", connexion, adLockOptimistic, adOpenKeyset

Ca fait une heure que je galère
Le pire c'est qu'elle a fonctionné...un jour !
Je suis sur du nom de mes champs et de ma table (qui est en fait une requête dans Access)

Si vous voyez ce qui peut coincer...
Merci d'avance

Message édité par karoli le 24-06-2004 à 14:41:02

Publicité

JihemAir

Je sais pas

Tu declares Connection et Recordset dans la bibliotheque ADODB. Est-elle chargée ? Avant de la charger, essaie seulement de remplacer ADODB par DAO. La bibli DAO est celle qui se charge nativement sous Access et elle est dédiée à Jet.

---------------
J'ai un message.."Cliquez OK pour continuer."...Qu'est ce que je fais ?

karoli

JihemAir a écrit :

Toutes les connexions et requetes fonctionnaient donx je suppose qu'elle est chargée (ce sont les references que l'on coche dans outils/references ?), et la depuis hier, la macro plante sur cette requete, je ne comprends pas pourquoi

Je vais essayer de vous poster une caps des references utilisées...

karoli

bon j'ai pas la possibilité d'uploader sur mon ftp !
alors en gros :
Visual Basic for applications
MS Excel 8.0 Object Library
OLE automation
MS Forms 2.0 Object library
MS Office 8.0 Object library
Microsoft ActiveX Data Object 2.5 Library
Microsoft Office Web Componants 9.0
Microsoft ActiveX Data Object Recordset 2.5 Library

Ouala...Il me manque quelque chose d'apres vous ?

JihemAir

Je sais pas

Désolé, j'avais pas vu que tu étais sous Excel ! Oublie la bibli DAO.
A voir les références, ça parait correct.

---------------
J'ai un message.."Cliquez OK pour continuer."...Qu'est ce que je fais ?

karoli

trouvé !
Je déclare trois ADODB.recordset (un seul dans la partie de code fournie) sur une seule ligne et c'est ca qui coince :
Dim resultatA, resultatB, resultatC As New.ADOdb.Recordset ca marche pas !!!
Dim resultatA As ...
Dim ResultatB As ...
Dim resultatC As... ca marche !

je savais pas ! maintenant oui

Merci a toi JihemAir.

A+

JihemAir

Je sais pas

Effectivement, quand on déclare les variables sur une meme ligne sans donner le type, elles sont de type Variant par défaut:
Dim toto, tata, titi as String --> toto et tata sont variant, titi est string.

Dim toto as String, tata as String, titi as String --> OK.

---------------
J'ai un message.."Cliquez OK pour continuer."...Qu'est ce que je fais ?

karoli

JihemAir a écrit :

merci de la precision
A+

FORUM HardWare.fr

Programmation

VB/VBA/VBS

[VBA Excel] Erreur 424 sur une requete sql Access dans excel [Resolu]

Sujets relatifs
Comment Faire pour lire un fichier en format excel	[Résolu] Votre avis SVP + need conseil/aide scrollbarre
[ASP] moteur de recherche pour une base access	[resolu] compter les lignes d'un fichier .csv
Une erreur à cause de dba_open() !	requete sql mise à jour dans code vb
clic sur un noeud d'un TreeView [résolu]	Operateur difference en vba!
[PHP] test upload de fichier (resolu)	[access](RESOLU) savoir si une requête sort un résultat ou non ??
Plus de sujets relatifs à : [VBA Excel] Erreur 424 sur une requete sql Access dans excel [Resolu]

Page générée en 0.047 secondes