Discussion :

[bernards111]

Bonjour,

j'ai trouver ce code pour pouvoir réaliser un export excel du résultat dans formulaire basé sur une requête.
Quand j'appuyais sur le bouton, j'avais bien la fenêtre d'enregistrement qui s'ouvrait mais aucun fichier ne s'enregistrait et maintenant j'ai une erreur d'exécution '3012'

Quelqu'un peut m'aider, je débute

merci

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
29
Private Sub Btn_export_Click()
 
Dim db As Database
Dim qd As QueryDef
 
Set db = CurrentDb()
Set qd = db.CreateQueryDef("Resultat_req", strSQL)
 
qd.Close
 
On Error GoTo Export_excel_Err
 
 
    DoCmd.OutputTo acQuery, "Resultat_req", "MicrosoftExcelBiff8(*.xls)", "", True, "", 0
 
 
    DoCmd.DeleteObject acQuery, "Resultat_req"
 
Export_excel_Exit:
 
Exit Sub
 
Export_excel_Err:
    DoCmd.DeleteObject acQuery, "Resultat_req"
    Resume Export_excel_Exit
 
 
 
End Sub

[helas]

Bonsoir,
je verrai plutôt
un strSQL renseigné et un nom de fichier dans la commande OutputTo

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
 
Dim db As Database
Dim qd As QueryDef
Dim strSQL As String
strSQL = "SELECT * FROM NomTable;"
Set db = CurrentDb()
Set qd = db.CreateQueryDef("Resultat_req", strSQL)
 
qd.Close
 
On Error GoTo Export_excel_Err
 
    DoCmd.OutputTo acOutputQuery, "Resultat_req", "MicrosoftExcelBiff8(*.xls)", "c:\test.xls"
    DoCmd.DeleteObject acQuery, "Resultat_req"
 
Export_excel_Exit:
 
Exit Sub
 
Export_excel_Err:
    DoCmd.DeleteObject acQuery, "Resultat_req"
    Resume Export_excel_Exit

[Deustalos]

Bonjour je ne comprend pas bien ce que tu veux faire, exporter une requéte au format excel? Pourquoi ne pas utiliser :

Code :

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

DoCmd.TransferSpreadsheet acExport, , "Table/Requète", Chemin, True, "Onglet"

@+

Alex

[bernards111]

Oui je crois que je me complique la vie, suis débutant en vba et en circulant sur le forum j'ai pu voir que une seule ligne pouvait suffire

par contre mon export est basé sur le résultat d'un formulaire et pour "onglet" je ne vois pas très bien ce que je peux mettre???

DoCmd.TransferSpreadsheet acExport, , "Table/Requète", "c:\resultat_req.xls", True, "Onglet"

Pour cette ligne, j'ai juste à l'insérer à l'intérieur de :

Private Sub Btn_export_Click()

ou y at il autre chose à faire?

merci de ton aide

[Deustalos]

par contre mon export est basé sur le résultat d'un formulaire

Le résultat d'un formulaire?????

Le plus souvent un Formulaire est basé sur une requéte (ou une table), dans cette requète tu peux avoir des champs calculés (sans doute tu fait cette manip dans tes champs de formulaire??) et c'est cette requéte qui est le reflet de ton formulaire d'un point de vue données. C'est cette derniére qu'il faut exporter (Si j'ai bien compri )

La partie Onglet désigne l'onglet dans le quel tu va exporter tes donner, si il n'existe pas Access va le créer. (C'est utile pour mettre à jours un fichier excel déja existant avec des calcules dériére TCd Graph et autres...)

Normalement ce code suffit

Je préfére Mettre ce bout de code le plus souvent dans un module mais aprés cela ne regarde que moi


bon courrage

N'hésite pas à revenir vers moi si tu as besoin.

@+

Alex

[bernards111]

Bonjour,

j'ai inséré cette ligne pour l'export

Private Sub Btn_export_Click()

DoCmd.TransferSpreadsheet acExport, , "Tbl_Globale", "c:\resultat.xls", True, "Onglet"

et Access me donne une erreur d'exécution "3051"

il y a t il une référence à cocher dans les outils Access ?


alex >>>quand tu parles de module c'est dans une autre fenêtre VBA en dehors du code source de mon formulaire? quels sont les avantages?


merci