exporter des données en fonction du choix de l'utilisateurRésolu

Question

Bonjour,


Je suis en train de cr&#233;er un base de donn&#233;e et je bloque sur 2 probl&#232;mes. Je ne pense pas que la solution soit tr&#232;s compliqu&#233;e mais je ne maitrise pas Visual Basic....


1) Tout d'abord j'aimerais exporter mes donn&#233;es vers un fichier excel. Je souhaite selectionner mes donn&#233;s &#224; exporter avec une requete.J'ai donc &#233;crit le code suivant :
Dim requete As String
requete = "SELECT * FROM echantillon"
DoCmd.TransferSpreadsheet acExport, 8, "requete",  "C:\Mes Documents\echantilon.xls", True, ""
J'ai mis comme exemple une requete simple mais j'envisage de mettre aussi des requetes plus compliqu&#233;es. C'est pour cela que je pr&#233;f&#232;re les programmer '&#224; la main' sous VBA plut&#244;t que de les cr&#233;er sous ACCESS.
La o&#249; je ne sais pas quoi &#233;crire c'est au niveau de "requete". J'ai essay&#233; avec et sans les " " mais j'ai le message d'erreur suivant : Le moteur de base de donn&#233;es Microsoft Jet n'a pu trouv&#233; requete. Assurez-vous que l'objet existe et que vous avez correctement saisi son nom et son chemin d'acces.


2) Toujours &#224; propos des requetes SQL je voudrais savoir s'il est possible de mettre le r&#233;sultat d'une requ&#234;te dans une variable. Je m'explique : j'aimerais pouvoir par exemple compter des &#233;l&#233;ments dans une table et mettre ce nombre dans une variable dans mon programme afin de pouvoir l'utiliser dans des formules math&#233;matiques. Mon probl&#232;me n'est pas au niveau de la syntaxe SQL mais juste un niveau de la syntaxe Basic pour mettre le r&#233;sultat dans la variable.


Merci pour vos r&#233;ponses.
Seb.

cs_shaoni · Accepted Answer

1)

'Supprime les avertissements 

DoCmd.SetWarnings off

'Cree une nouvelle table avec le contenu &#224; exporter 

DoCmd.RunSQL "select * into temp from echantillon"

'exporte le contenu de la table 

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel8, "temp", "C:\Mes Documents\echantilon.xls"



2)

'declare les variables

Dim VariableCompteur

Dim Sql As String

Dim Rs1 As Recordset

'Lance la requete sql

Sql = "select max(code_analytique) from analytique"

Set Rs1 = CurrentDb.OpenRecordset(Sql)



'attribue la valeur &#224; la variable

If Not Rs1.EOF Then

    VariableCompteur=val(rs1.field(0))

End If

Rs1.Close


font=Tahoma]a+  
Shaoni ..[/font=Tahoma

Exporter des données en fonction du choix de l'utilisateur

1 réponse

Discussions similaires