Discussion :

[Blado_sap]

Bonjour à tous,

voici mon problème

j'exporte une requête dans un fichier Excel depuis Access
tout ceci fonctionne très bien

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
22
23
 
 
Private Sub Export_suivi_excel_Click()
Dim qd As QueryDef
Dim sql_chemin
Dim rs_chemin As DAO.Recordset
Dim chemin As String
 
'DoCmd.DeleteObject acQuery, "Requete_Temporaire"
 
'id_chemin = 4 --> Feuille suivi
sql_chemin = "SELECT * FROM T_chemin WHERE id_chemin =4 ;"
Set rs_chemin = CurrentDb.OpenRecordset(sql_chemin)
If Not rs_chemin.EOF Then
chemin = rs_chemin("nom_chemin")
Set qd = CurrentDb.CreateQueryDef("Requete_Temporaire", "Select R_Feuille_Suivi_1.numero_bordereau AS N°_BORDEREAU,numero_OT AS N°_OT ,Nom_tech_sly AS DEMANDEUR,Nom_batiment AS BATIMENT,Description AS DESCRIPTIONS,Numero_chantier AS CHANTIER,Avenant AS N°_AVENANT,Date_demande_pose AS DEMANDE_POSE,Date_pose AS POSE,Date_demande_depose AS DEMANDE_DEPOSE,Date_depose AS DEPOSE,Date_facture AS FACTURATION,Somme_cout_total AS MONTANT_INITIAL,Nouveau_montant AS NOUV_MONTANT,Date_rapp_compt AS MOIS_FACTURE_IMAGE,Commentaire AS COMMENTAIRES From R_Feuille_Suivi_2 ORDER BY R_Feuille_Suivi_1.numero_bordereau, avenant ASC")
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel97, "Requete_Temporaire", chemin & "\Feuille_suivi_" & Format(Date, "dd.mm.yyyy") & ".xls"
DoCmd.DeleteObject acQuery, "Requete_Temporaire"
End If
rs_chemin.Close
Set rs_chemin = Nothing
 
End Sub

mon champ nouveau_montant est une case à cocher

dans mon fichier Excel je récupère les valeurs VRAI/FAUx suivant si la case est cochée ou non

au lieu de récupérer ces valeurs je voudrais que si c'est vrai je récupère X et sinon rien

donc j'avais pensé à ceci:

Code :

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

1
2
3
 
 
Set qd = CurrentDb.CreateQueryDef("Requete_Temporaire", "Select R_Feuille_Suivi_1.numero_bordereau AS N°_BORDEREAU,numero_OT AS N°_OT ,Nom_tech_sly AS DEMANDEUR,Nom_batiment AS BATIMENT,Description AS DESCRIPTIONS,Numero_chantier AS CHANTIER,Avenant AS N°_AVENANT,Date_demande_pose AS DEMANDE_POSE,Date_pose AS POSE,Date_demande_depose AS DEMANDE_DEPOSE,Date_depose AS DEPOSE,Date_facture AS FACTURATION,Somme_cout_total AS MONTANT_INITIAL, IIF(Nouveau_montant = -1; X; nouveau_montant) AS NOUV_MONTANT,Date_rapp_compt AS MOIS_FACTURE_IMAGE,Commentaire AS COMMENTAIRES From R_Feuille_Suivi_2 ORDER BY R_Feuille_Suivi_1.numero_bordereau, avenant ASC")

mais ça ne fonctionne pas

Merci de votre aide
Blado_sap

[madefemere]

Bonjour,
Et avec :

Code :

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

IIF(Nouveau_montant = -1; "X";Null) AS NOUV_MONTANT

Cordialement,

[Blado_sap]

bonjour,

j'ai une erreur de syntaxe qui a l'air de venir des "" autour du X
et si je les mets pas c'est erreur de syntaxe aussi

Blado_sap

[madefemere]

Et en remplaçant les ";" par des "," ?

[Blado_sap]

j'ai testé:

Code :

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

1
2
3
 
 
IIF(Nouveau_montant = -1, "X", NULL) AS NOUV_MONTANT

--> Erreur de syntaxe

et:

Code :

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

1
2
3
 
 
IIF(Nouveau_montant = -1, X, NULL) AS NOUV_MONTANT

--> me demande de rentrer le paramètre X


une autre idée ?

Blado_sap

[madefemere]

,

Procédons par élimination.
Est-ce que ce sont les valeurs X et Null qui ne sont pas acceptées ou c'est le test : Nouveau_montant = -1 qui ne marche pas.

1- Essaie :

Code :

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

IIF(Nouveau_montant = -1, 100, 0) AS NOUV_MONTANT

Si ça lève une erreur, il faudrait revoir le test Nouveau_montant = -1

2- Change par Nouveau_montant = True ou Nouveau_montant tout court.

Bon courage

[Blado_sap]

Super comme-ci ça fonctionne

Code :

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

1
2
3
 
 
IIF(Nouveau_montant = -1, 'X', ) AS NOUV_MONTANT

Si ma case est cochée (valeur = -1)
alors je reçois X
sinon je reçois vide

Merci
Blado_sap

[madefemere]

OK, donc tu n'as plus qu'à mettre la discussion en RESOLU.

Bonne continuation,