Discussion :

[legillou]

Bonjour
Je doit modifier un fichier access et j'ai un petit pb
Le gars qui l'avait fait avant avait créé une requete avec l'assistant et ouvrait son fichier excel avec cette dernière
moi je souhaiterais pouvoir envoyer une requete que je construit moi même (parce que j'ai besoin d'une boucle pour la faire) et ouvrir le fichier excel avec la mienne...
pour le moment ca donne ca :

Code :

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

1
2
3
Dim fichier As String
    fichier = InputBox$("Nom du fichier excel", "SPEC CLIENT", "fil.xls")
    DoCmd.OutputTo acOutputQuery, "doc_par_client", acFormatXLS, fichier, True

et moi je voudrais, à la place de "doc_par_client" mettre ma propre requete
merci d'avance

[mcdotta]

Ben elle s'appelle comment ta requête...


Ah, c'est peut être parce que c'est une ligne SQL du style SELECT....

Alors ce que tu peux faire, c'est créer une requête bidon (ici appelée NomdeTaRequête) dans Access
et ensuite utiliser le code

Code :

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

CurrendDb.QueryDefs("NomdeTaRequête").SQL = "SELECT....."

Après, ta ligne est :

Code :

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

DoCmd.OutputTo acOutputQuery, "NomdeTaRequête", acFormatXLS, fichier, True

[legillou]

C'est exactement ce que je veux mais il me fait une erreur d'execution 424 : "objet requis" sur la ligne

Code :

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

CurrendDb.QueryDefs("essai").SQL = "SELECT * FROM Table1 WHERE " & requete

[mcdotta]

Est-ce que ta requête Essai existe ?

Si non, tu en crées une bidon...

[legillou]

ouioui elle existe (merci beaucoup de répondre aussi vite parce que je suis bien bloqué avec ca)
j'ai même testé ca :

Code :

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

MsgBox CurrendDb.QueryDefs("doc_par_client").SQL

parce que je suis sur que cette requete la existe et ca me met la même erreur
faut pas activer un truc dans les options?

[mcdotta]

Alors, vérifie, dans un module, avec OUTILS - REFERENCE (dans le visual basic editor) que ta référence a Microsoft DAO X.X object Library est cochée. Il te la faut pour utiliser l'objet currentdb

[legillou]

oué j'ai la 3.6 de cochée déjà

[legillou]

ahahhhh j'ai trouvé merci mcdotta c'était juste que tu avais fait une faute de frappe pour le curren"T"Db.QueryDefs et moi j'ai fait du copié coller comme un neuneu
Merci merci merci beaucoup ca marche niquel maintenant!!! 8)

[mcdotta]

Ahhh tu peux me maudire....

Désolée, je tape le code de tête, alors,.....


Ferai mieux la prochaine fois..

Contente de savoir que tu es débloqué et que tu peux bosser maintenant...

ALORS AU BOULOT....

[legillou]

olala ne t'inquiète pas je suis tres loin de te maudire bien au contraire
merci encore