Discussion :

[Sebastien_INR59]

Bonjour,

Afin d'exporter des données Access vers Excel, j'utilise cette ligne de code :

Code :

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

1
2
 
DoCmd.OutputTo acOutputQuery, "RSynthese", acFormatXLS, CurrentProject.Path & "\Requete.XLS", True

Cependant j'aimerais ajouter des conditions à ma requête (via la ligne de code car ces conditions sont en fonction de plusieurs variables)

Est-ce possible ?
Si oui, est-ce que je pourrais avoir la syntaxe à suivre ?

Cordialement.
Séb

[kemasse]

Salut

Je ne sais pas si ma réponse va beaucoup t'aider mais je pense avoir une solution à ton problème:

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
Sql = "Tapes ici ta requête Sql avec les variables que tu souhaites"
      '********************************
      'si ta requête existe déjà, cette commande permet de l'effacer
      'afin de pouvoir la remplir avec de nouvelles variables
      '********************************
      On Error Resume Next
      db.QueryDefs.Delete "le nom de ta requête"
      db.QueryDefs.Refresh
      '********************************
      'Cette comande va créer une nouvelle requête dans 
      'l'onglet des requêtes dans Access
      '********************************
      On Error GoTo 0
      Set MR = db.CreateQueryDef("le nom de ta requête", Sql)
      db.QueryDefs.Refresh
      '*******************************
      'Cette ligne est facultative puisque tu lance 
      'ta requête d'une autre manière
      '*******************************                     
      DoCmd.OpenQuery "le nom de ta requête"

Voila j'espère avoir pu t'aider un peu.

Bonne journée!

[Dolphy35]

Salut,

kemasse => Je ne comprend pas pourquoi tu efface la requête ?

Il est posssible de modifier la source de la requête :

Code :

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

1
2
3
4
5
6
chsql = "SELECT ...."
Set req = CurrentDb.QueryDefs("RSynthese")
            req.sql = chsql
 
DoCmd.OutputTo acOutputQuery, "RSynthese", acFormatXLS, _
CurrentProject.Path & "\Requete.XLS", True

[kemasse]

Oui c'est aussi une solution, je ne vais pas te contredire!

Je ne connais pas encore toutes les ficelles du VB, ça ne fait que 3 mois que he pratique ce langage.lol