Access : Export Excel depuis formulaire Résolu/Fermé

Question

Bonjour,
Je suis vraiment nul en programmation, mais pour la gestion de ma collection de timbres, je me suis fait une petite application sous Access en reprenant des idées à droite et à gauche
Je me suis entre autres inspiré de l'excellent tutoriel de Charles.A sur Cafeine "recherche multi critéres" que j'ai adapté à mon besoin
J'aimerais simplement y ajouter un bouton lançant un export Excel du résultat de la recherche
Comment faire (merci d'être précis vu mon niveau) ?
Merci d'avance
Bertrand

phil232 · Answer

RTFM

105RN · Answer

RTFM ????? C'est quoi ???
J'avais prévenu, je suis vraiment nul !

phil232 · Answer

http://www.zmey.1977.ru/Access_To_Excel.htm

Function OTXLOut(sql As String)

DoCmd.OutputTo acOutputQuery, "MyQuery", acFormatXLS, "C:\Test.xls"

End Function

Read
The
Fucking
Manual

105RN · Answer

Merci, j'ai au moins appris la signification de RTFM (ça se devine pas :-)
Je comprends le sens de cette fonction, mais je ne sais comment l'implanter :
Je voudrais lancer l'export via un bouton sur le formulaire
Dans mon formulaire, dans un "Private Sub" nommé RefreshQuery ma requete se construit dynamiquement et se présente sous la forme d'un texte appelé SQL
Si j'ai bien compris je dois créer un autre "paragraphe" à la suite des autres commençant par "function"
Sur clic sur le bouton, dans le "private sub" associé j'appelle la fonction OTXLOut, mais comment lui transférer la valeur de SQL ? (soit MyQuery)
Je sais que je ne suis pas clair, mais j'avais prévenu
en tout cas , merci de votre patience
Bertrand

phil232 · Answer

myform.datasource.sql
MyQuery.sql
etc.

http://www.zmey.1977.ru/Access_To_Excel.htm 

suffit de lire et d'une minute de google

105RN · Answer

Désolé, mais je suis vraiment trop nul .. mon précédent message n'est même pas passé
J'ai des pb avec la syntaxe
Encore une fois, merci de votre patience
Pourriez vous SVP compléter/corriger


Private Sub RefreshQuery()
Dim sql As String
…
Rem j'obtiens alors ma requête nommée SQL sous forme de texte
End Sub


Private Sub Clicdemonbouton_Click()
OTXLOut 
End Sub


Function OTXLOut (sql As String) 
DoCmd.OutputTo acOutputQuery, "SQL", acFormatXLS, "C:\Test.xls" 
End Function

phil232 · Answer

t'as raison
"Désolé, mais je suis vraiment trop nul "

au lieu de suivre ce que tu trouves dans ce manuel tu voudrais que l'on t'écrive le programme tout fait
MAIS TU L'AURAS PAS
fait tes devoir et après on t'aidera

105RN · Answer

Bonne pédagogie, que je ne peux qu'aprouver car l'appliquant à mes gosses !
Je vais ré-essayer mes devoirs, mais je ne trouve pas le rapport avec les 
"myform.datasource.sql 
MyQuery.sql "
Je cherche ..
Merci

105RN · Answer

Bonjour,
J'ai bien galéré er cherché, mais ça ne marche toujours pas !
Pour simplifier les choses, j'ai mis l'instruction directement dans la function créant la sql
J'ai toujours l'erreur 3265 "Element non trouvé dans cette collection" sur la ligne
CurrentDb.QueryDefs("Bolvanka").sql = SQL sachant que SQL a la bonne valeur (ma requéte)
Dans l'explorateur d'objets la fonction QueryDefs n'existait pas, 
J'ai donc ajouté dans outil/références Microsoft DAO 3.6 et ADO ext 2.8
Dans l'explorateur d'objets, j'ai donc bien maintenant
Bibliothéque DAO, class Querydef (sans s) avec comme membre possible SQL
Bibliothéque DAO, class Querydefs (avec s) avec comme membre Append, count, .. mais sans SQL
J'ai essayé d'enlever le s à Querydef
Toujours le même résultat et la même erreur
Là j'avoue sécher !!!
Merci de votre aide
Bertrand

phil232 · Answer

"J'ai bien galéré er cherché"
je ne crois pas

attention !

1. Querydefs : toutes les requets dans la bdd. On peut les compter (Count), effacer (Delete), ajouter (Append), etc.
2. Querydef : une de ces requetes. Elle a un lien vers une base (ConnectionString), un texte SQL qui represente la requete (SQL), etc.


Private Sub Clicdemonbouton_Click() 
DoCmd.OutputTo acOutputQuery, "Bolvanka", acFormatXLS, "C:\Test.xls" 
End Function

juste pour les bonnes habitudes "Bolvanka" devrait etre nommé "qryBolvanka"

105RN · Answer

Bonjour,
je trouve le "je en crois pas" inutilement blessant ..

1) Merci pour les précisions sur Querydefs/Querydef : à force de chercher j'avais compris qu'il y avait un problème
Cependant la ligne "CurrentDb.QueryDefs("Bolvanka").sql = SQL " qui m'a posé probléme était tirée de l'article que vous mentionniez au début de ce post
Alors, débuter avec comme référence ... une ligne erronée ... ça ne facilite pas les choses !!!!!!!

2) Je pensais que ce qui commençait par "Private Sub ...' devait se terminer par "end sub"

3) En piochant dans les différents posts trouvés sur internet, j'ai trouvé une solution

Dans le module mGeneral j'ai ajouté
Public SQLExportExcel As String

Dans l'instruction construisant ma requete, j'ai ajouté 
SQLExportExcel = sql

J'ai ajouté une fonction
Function ExportSQLExcel(sql As String)
Dim qd As QueryDef
DoCmd.DeleteObject acQuery, "essai"
Set qd = CurrentDb.CreateQueryDef("essai", sql)
DoCmd.OutputTo acOutputQuery, "essai", acFormatXLS, "c:\Export_Excel_Achat.xls"
DoCmd.DeleteObject acQuery, "essai"
End Function

J'ai mis 2 fois l'instruction delete car sinon j'avais l'erreur "objet déja existant.."

Et enfin
Private Sub ExportExcel_Click()
On Error GoTo Err_ExportExcel_Click

    ExportSQLExcel (SQLExportExcel)

Exit_ExportExcel_Click:
    Exit Sub

Err_ExportExcel_Click:
    MsgBox Err.Description
    Resume Exit_ExportExcel_Click
    
End Sub


C'est peut être lourd (?) mais ça marche 
Il me reste à trouver l'instruction pour que l'export se fasse au même niveau que le fichier de la BBD (car variant selon les PC) et non plus à la racine de c:

Merci encore de votre aide
Bertrand

phil232 · Answer

et moi je suis content. je croyais que cette chose ne marcherais plus :

donne un poisson à qqun qui a faim et il mangera un jour, montre lui comment pecher et il mangera pour toujours

tu a progressé de la programmation des macros vers la programmation VBA. c'est un grand pas qui vaut la peine. tu represent le 1% des gens de ce forum qui veulent vraiement faire des efforts. je leve le gobelet et dis "Bienvenu"

105rn · Answer

N'en jetez plus ! j'en rougis :-)
Merci pour tout, j'aurais encore bcp  de questions à poser et reviendrai donc prochainement à la charge !
Question subsidiaire : existe t il un site de "visual basic" pour les nuls qui soit bien fait ?
J'en ai parcouru plusieurs, mais sans vraiment en trouver de "clair" et basique (difficile pour qqun connaissant le VB d'expliquer à un ignare ..)
Encore une fois merci
Bertrand

diabolo · Answer

c'est en anglais, mais c'est top !

http://www.databasedev.co.uk/export-macro.html

Access : Export Excel depuis formulaire

14 réponses

Discussions similaires