Discussion :

[monsurf]

Bonjour,
j'aimerai exporter le resultat d'une requete existante dans un fichier excel...
en cherchant, j'ai trouvé ça dans la FAQ

On passe ici par une requête temporaire, mais on peut également exporter une requête existante bien évidemment.

Code :

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

1
2
3
4
5
6
 
Dim qd As QueryDef
Set qd = CurrentDb.CreateQueryDef("Requete_Temporaire", "Select * From MATABLE")
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel97, _
"Requete_Temporaire", "c:\fichier.xls"
DoCmd.DeleteObject acQuery,"Requete_Temporaire"

ça à l'air bien, mais ça fonctionne pas quand je veux utiliser une requete existante...
j'ai le message d'erreur: objet inexistant... alors que ma requete est bel et bien là...
quelqu'un peut il m'aider ?!

Merci

[loufab]

Bonjour,

Peut-on voir le nom de la requête et ton code quand cela ne fonctionne pas. Le code qui fonctionne ne nous ait d'aucune utilité

Cordialement,

[monsurf]

Bonjour et merci de votre reponse,

j'ai oublié de mettre la ligne où il ya l'erreur, la voici:

Code :

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

1
2
3
4
 
 
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel97, _
 "ma_requete_existante", "c:\fichier.xls"

c'est tout ce que j'ai dans mon code, est ce que je dois declarer la requete avant ?... si oui comment puis je le faire...

Merci encore

[loufab]

Non normalement la requête spécifier est consulter en tache de fond lors de l'éxécution de la commande.

Ce qui est étrange dans cette affaire c'est qu'il n'accepte pas une requete existante alors qu'une créée précédemment il n'y a pas de problème.

Lorsque tu ouvres cette requete, y-t-il un problème ?

[monsurf]

Non, la requete fonctionne parfaitement, je sais l'ouvrire par un formulaire la modifier et tout...

je comprends pas...

je precise qd meme que ma base de donnée est une SQL Server, et j'utilise access juste pour interface utilisateur... je ne sais pas si ca doit faire une difference...
en fait il y a moyen de faire l'exportation sous excel avec un pack DTS dans sql server et l'executer par un bouton dans access, mais je voulais utiliser la solution offerte par vba

[loufab]

Arf SQL Server... je ne connais pas suffisament pour te dire si il y a une relation, mais ce n'est pas à écarter.

Tu peux peut-être poser ta question sur le forum SQL SErver qq'un à peut-être eu ce pb ?

[climz]

Bonjour
j'ai le meme problème que toi
essai de spécifié 1 champ et 1 seul dans ta requete
ex: ("Requete_Temporaire", "Select id From MATABLE")
Et la peut etre que ca marche moi ca me fait ça c'est vraiment bizare, mais je pense qu'il y a une solution enfin j'espere !

[climz]

Je vien de reussir a faire marcher mon code je te le donne si cela peut t'aider :

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
19
20
21
22
23
24
25
26
27
28
Private Sub Commande0_Click()
 
On Error GoTo Err_Commande0_Click
Dim sql As String
Dim qd As QueryDef
sql = "SELECT * FROM T_TOTAL Where  "
sql = sql & "T_TOTAL.U_Chrono = " & Me.cmbRechNom & " ;"
 
Set qd = CurrentDb.CreateQueryDef("U_Chrono", sql)
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel97, "U_Chrono", "u:\test_bd\traitement.xls"
DoCmd.DeleteObject acQuery, "U_Chrono"
 
    Set oApp = CreateObject("Excel.Application")
    oApp.Visible = True
    'Only XL 97 supports UserControl Property
    On Error Resume Next
    oApp.UserControl = True
 
Exit_Commande0_Click:
    Exit Sub
Err_Commande0_Click:
    On Error Resume Next
    DoCmd.DeleteObject acQuery, "U_Chrono"
    'DoCmd.DeleteObject acQuery, "T_TOTAL"
    MsgBox Err.Description
    Resume Exit_Commande0_Click
 
End Sub

Voila

[monsurf]

Merci pour vos reponses !!

climz, je vais essayer de faire le meme que toi et voir ce que ca donne.

Merci