rss
Rechercher : dans
Par : Pertinence Date Nom d'utilisateur
Statut :

Access : Export Excel depuis formulaire

Posté par 105RN, le mardi 18 décembre 2007 à 10:35:31
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
Configuration: Windows XP
Internet Explorer 7.0
Répondre à 105RN  Signaler ce message aux modérateurs Aller au dernier message

2


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
phil232, le mardi 18 décembre 2007 à 16:03:42
RTFM
Répondre à phil232

3


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
105RN, le mardi 18 décembre 2007 à 16:35:24
RTFM ????? C'est quoi ???
J'avais prévenu, je suis vraiment nul !
Répondre à 105RN

4


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
phil232, le mardi 18 décembre 2007 à 16:46:27
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
Répondre à phil232

5


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
105RN, le mardi 18 décembre 2007 à 17:14:13
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
Répondre à 105RN

6


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
phil232, le mardi 18 décembre 2007 à 17:19:36
myform.datasource.sql
MyQuery.sql
etc.

http://www.zmey.1977.ru/Access_To_Excel.htm

suffit de lire et d'une minute de google
Répondre à phil232

7


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
105RN, le jeudi 20 décembre 2007 à 13:43:03
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
Répondre à 105RN

8


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
phil232, le jeudi 20 décembre 2007 à 15:30:52
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
Répondre à phil232

9


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
105RN, le vendredi 21 décembre 2007 à 16:42:37
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
Répondre à 105RN

10


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
105RN, le mardi 8 janvier 2008 à 14:17:33
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
Répondre à 105RN

11


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
phil232, le mardi 8 janvier 2008 à 14:33:27
"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"
Répondre à phil232

12


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
105RN, le lundi 14 janvier 2008 à 18:02:38
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
Répondre à 105RN

13


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
phil232, le mardi 15 janvier 2008 à 14:55:59
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"
Répondre à phil232


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
 105rn, le vendredi 8 février 2008 à 08:42:19
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
Répondre à 105rn
Logiciels pertinents trouvés dans les téléchargements
Télécharger MP3List 2.2MP3List - MP3List permet de gérer une collection de MP3, il recherche automatiquement tous les fichiers MP3, lit les TAG et d’autres...Catégorie: Playlists
Licence: Freeware/gratuit
Télécharger Excel Viewer 2003Excel Viewer - Avec Microsoft Office Excel Viewer 2003, vous pouvez ouvrir, afficher et imprimer des classeurs Excel (fichiers XLS ), même...Catégorie: Tableur
Licence: Freeware/gratuit
Télécharger GANTT Project 2.0.7GANTT Project - GanttProject est un outil de gestion de projet libre, permettant de réaliser des diagrammes de GANTT afin de planifier un...Catégorie: Gestion de projet
Licence: Open Source
Télécharger OpenOffice.org 2.4.1OpenOffice.org - OpenOffice est une suite bureautique complète entièrement gratuite, compatible avec la suite Microsoft Office. Elle...Catégorie: Suite bureautique
Licence: Open Source
Plus de logiciels gratuits sur « Access : Export Excel depuis formulaire »