code export excel

Version imprimable

code export excel

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:

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

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

Code:

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

22/12/2010, 12h14
Deustalos

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

Code:

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

@+

Alex
23/12/2010, 12h34
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 8O

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
27/12/2010, 16h39
Deustalos

Citation:

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 :lol:

bon courrage

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

@+

Alex
28/12/2010, 21h54
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

Hello,

Normalement tu n'as aucun probléme pour mettre ton code dans un formulaire.

Voila un exemple.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Private Sub Références_Actives_Click() On Error GoTo Err_Références_Actives_Click chemin = "C:............" DoCmd.TransferSpreadsheet acExport, , "REF ACTIVE SANS BW", chemin, False, "" MsgBox ("Fichier Références Actives Créé") Exit_Références_Actives_Click: Exit Sub Err_Références_Actives_Click: MsgBox Err.Description Resume Exit_Références_Actives_Click End Sub
Ton erreur doit provenir du fait que ton fichier est ouvert par quelqu'un en mode exclusif.

Le fait de mettre ton code dans un module permet d'y avoir access (de l'appeller) à partir de tout les formulaires.

Je ne pense pas pas qu'il y ai besoin de références supplémentaires.

essay en adaptant le code dans ton formulaire.

29/12/2010, 14h39
bernards111

Re

merci de ton aide, en fait mon erreur venait de Windows 7, le chemin d'enregistrement du fichier n'était pas autorisé ,je l'ai juste changé et ai obtenu mon export:ccool:,
Par contre j'aimerais savoir à quoi sert "false" ou "True" dans cette fonction car les deux fonctionnent??

sinon j'ai essayé de mettre ce code dans un module mais je n'ai pas l'impression que cela suffise pour relier mon bouton a ce code, j'ai regardé dans les propriétés du bouton (évènement notamment) mais je ne vois pas comment?
si tu as le temps pourrais tu me donner quelques explications?? ou des liens.
sinon je continu à chercher

merci encore

Il s'agit aprés d'un autre post (passe en résolut pour celui-ci).

Voici un exemple: Pour importer un fichier Excel.

- Un code sur mon bouton (formulaire)
Code:

1 2 3 4 5 6 7 Private Sub Commande102_Click() IMPORT_MCBZ 'Nom de la fonction appellé dans les modules MsgBox ("Mise à Jour des données Besoins Usine effectuée") End Sub
Et le code du Module
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 Public Function IMPORT_MCBZ() On Error GoTo IMPORT_MCBZ_Err Chemin = ....... '//////////////////////////////////// Transfér du fichier (import) DoCmd.OpenQuery "SUP_BASE_MCBZ" 'exécution d'une requête DoCmd.TransferSpreadsheet acImport, 8, "BASE_MCBZ", Chemin, True, faux DoCmd.SetWarnings True IMPORT_MCBZ_Exit: Exit Function IMPORT_MCBZ_Err: MsgBox Error$ Resume IMPORT_MCBZ_Exit End Function
J'ai simplifier le code du module pour faire Simple ;)

Pour ce qui est du faux je ne sias plus trop pourquois désolé mais il y a pas mal de tuto la dessu.

@+

Et bonne continuation

Alex

29/12/2010, 18h40
bernards111

merci Deustalos:ccool: