Discussion :

[constalp]

Bonjour,

J'ai une table :

realisation
--------------
num_realisation
type_realisation
valeur_realisee

Ma requête est celle ci :

Code :

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

1
2
3
4
SELECT R1.valeur_realisee as [XXXX], R2.valeur_realisee as [YYYY] 
FROM realisation as R1, realisation as R2 
WHERE ((R1.type_realisation = 'consommation' and R2.type_realisation = 'température') OR (R1.type_realisation = 'température' and R2.type_realisation ='consommation')) 
AND R1.num_realisation > R2.num_realisation ;

Je souhaite que XXXX prenne la valeur de R1.type_realisation ('température' ou 'consommation' selon la condition R1.num_realisation > R2.num_realisation) et YYYY prenne la valeur de R2.type_realisation.

Savez vous si c'est possible?

J'ai déjà essayé en remplaçant XXXX par
R1.type_realisation
ou par
(select R.type_realisation from realisation R where R.num_realisation = R1.num_realisation)
ou par
IIF(R1.type_realisation='température','température','consommation')
mais ni l'un ni l'autre ne fonctionne...

Merci d'avance pour votre aide !

[Merryvor]

ben ça a l'ai bizarre ce que tu veux faire.

Comment feras-tu si ta requête sors plusieurs type de réalisation??
tu auras plusieurs noms de colonnes, et ça SQL il connaît pas.

Dans ce cas c'est de la mise en page que tu veux faire?

[constalp]

Oui en gros c'est de la mise en page ! Je veux juste que le nom de la colonne soit le type de réalisation correspondant

[Merryvor]

Pour de la mise en page, les états sont tout indiqués, avec des options toutes faites, pour des fichier à imprimer.

[constalp]

Bon en fait c'est pas vraiment ce genre de mise en page :

je vais avoir un formulaire dans lequel je rentrerai "température" et "consommation" (ou d'autres trucs)
ensuite, j'exporterai la requete SQL en EXCEL, donc j'ai besoin d'avoir les bons noms pour les colonnes, d'où les bons alias

[Merryvor]

Ah, donc il s'agit d'un export.

ok. j'ai fait quelque chose du même style.
1) créer une requête paramétrée

Code SQL :

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

1
2
3
4
5
 
PARAMETERS PARAM_DATE DateTime;
SELECT Insee.NomCommune, Abonné.NomAbonné, Abonné.DateRDV 
FROM Insee INNER JOIN Abonné ON Insee.N°Commune = Abonné.N°Commune
WHERE (((Abonné.DateRDV)>=[PARAM_DATE]);

2) créer une fonction pour exporter en fonction de ce qui sera entré en paramètre, par exemple, se baser sur une liste déroulante:

Code vb :

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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
 
Sub RapportLudo()
'Déclaration des variables
    Dim xlApp
    Dim xlSheet
    Dim xlBook
    Dim db As database
    Dim qry1 As QueryDef
    Dim i As Long, j As Long
    Dim t0 As Long, t1 As Long
    Dim rec1 As DAO.Recordset
 
'Implémentation des variables
    t0 = Timer
    Set db = Application.CurrentDb
    Set qry1 = db.QueryDefs("RequêteParamétrée")
    qry1.Parameters("PARAM_DATE").Value = Forms!Rapport!Modifiable27
    Set rec1 = qry1.OpenRecordset
 
    'Initialisation d'Excel
    Set xlApp = CreateObject("Excel.Application")
    Set xlBook = xlApp.Workbooks.Add
 
    'Ajouter une feuille de calcul
    Set xlSheet = xlBook.Worksheets.Add
    xlSheet.Name = Replace(Date, "/", "-")
 
    xlApp.Visible = True
 
    ' les entetes
    '  .Fields(Index).Name renvoie le nom du champ
    For j = 0 To rec1.Fields.Count - 1
        xlSheet.Cells(1, j + 1) = rec1.Fields(j).Name
        ' Nous appliquons des enrichissements de format aux cellules
        With xlSheet.Cells(1, j + 1)
            .Interior.ColorIndex = 15
            .Interior.Pattern = xlSolid
        End With
    Next j
 
    ' recopie des données à partir de la ligne 2
    i = 2
    Do While Not rec1.EOF
        For j = 0 To rec1.Fields.Count - 1
            ' .Fields(Index).Type renvoie le type du champ
            '   si c'est un Texte (dbText) nous insérons "'" pour
            '   qu'il soit reconnu par Excel comme du Texte
            If rec1.Fields(j).Type = dbText Then
                xlSheet.Cells(i, j + 1) = "'" & rec1.Fields(j)
            Else
                xlSheet.Cells(i, j + 1) = rec1.Fields(j)
            End If
            With xlSheet.Cells(i, j + 1)
                .Borders(xlEdgeBottom).Weight = xlThin
                .Borders(xlEdgeLeft).Weight = xlThin
            End With
        Next j
        i = i + 1
        rec1.MoveNext
    Loop
 
    ' code de fermeture et libération des objets
    xlBook.SaveAs "\\RaccordementsAbonnés\RapportAbonnésDu" & Replace(Date, "/", "-") & ".xlsx"
    xlApp.Visible = True
    rec1.Close
    Set rec1 = Nothing
    Set xlSheet = Nothing
    Set xlBook = Nothing
    Set xlApp = Nothing
 
    t1 = Timer
    Debug.Print i & " enregistrements", Format(t1 - t0, "0") & " secondes"
End Sub

avec ça je pense que tu as de bonnes bases pour bidouiller ce à quoi tu veux arriver.

[constalp]

Merci beaucoup pour ton aide...!
Malheuresement ça ne va pas marcher

Code :

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

        xlSheet.Cells(1, j + 1) = rec1.Fields(j).Name

Justement le nom que je veux n'est pas le Fields.Name...

Le problème c'est que je ne sélectionne pas le champ type_realisation dans la requête donc je ne peux pas remplir les cases de la 1ere ligne...
Je pourrais le sélectionner et le remplacer mais je pense pas que ce soit une bonne solution...

Je pensais qu'il était possible d'évaluer la valeur du champs dans la première ligne du select mais apparement non

[constalp]

Si quelqu'un a une autre idée je suis preneuse!

[constalp]

Finalement j'ai utilisé ton code et il m'a vraiment beaucoup aidé !!!
Merci !