Discussion :

[kedmard]

Bonjour,
j'utilise le code suivant pour afficher le dernier jour du mois précédent sous la forme 01/02/2012 11:20:02 , malheureusement
il ne m'affiche que l'avant dernier jour (exemple le 28 pour le mois de février 2012)
Quelqu'un a une de détails manquant?

Voici le fameux code:

Code :

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

Fin = Format(DateAdd("d", -1, CDate("1/" & Format(Date, "mm/yyyy"))), "yyyy\-mm\-dd 00:00:00")

merci par avance ,

Cordialement,


Kedmard

[LedZeppII]

Bonsoir,

Je ferai

Code :

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

Fin = Format(DateSerial(Year(Date), Month(Date), 1) - 1, "yyyy\-mm\-dd 00:00:00")

A+

[kedmard]

Bonjour LedZeppII,

ça n'a rien changé ça affiche toujours les données jusqu'à l'avant dernier jour du mois dernier .

Voici l'ensemble de mon code:

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
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
Function TBQS_ACTIVITE_ARS_V7()
Const TABLE_RESULTAT = "TB_ACTIVITE"
Dim cn As ADODB.Connection
Dim cmd As ADODB.Command
Dim MonRs As ADODB.Recordset
Dim oField As ADODB.Field
Dim out_rst As Recordset
Dim Début As Date
Dim Fin As Date


'Initialisations
Début = Format(CDate("1/" & Format(DateAdd("m", -1, Date), "mm/yyyy")), "yyyy\-mm\-dd 00:00:00")
'Fin = Format(DateAdd("d", -1, CDate("1/" & Format(Date, "mm/yyyy"))), "yyyy\-mm\-dd 00:00:00")
Fin = Format(DateSerial(Year(Date), Month(Date), 1) - 1, "yyyy\-mm\-dd 00:00:00")Set out_rst = CurrentDb.OpenRecordset(TABLE_RESULTAT)

Set cn = New ADODB.Connection
cn.ConnectionString = Connexion_ARS_V7
cn.Open
Set cmd = New ADODB.Command
SQL = "SELECT Submit_Date, Product_Categorization_Tier_1, Product_Categorization_Tier_2, Product_Categorization_Tier_3, Incident_Number, Status, Assigned_Group, Assignee, Description, Contact_Company, Organization, Department, Submitter, Last_Name, Connexion, Direct_Contact_Last_Name, Priority, NbreAppels, Last_Resolved_Date, GCE_Environnement, GCE_Instance_de_production, Detailed_Decription, Last__Assigned_Date, " _
    & "TicketType, Resolution, Resolution_Method, Last_Modified_Date, Owner_Support_Organization,  Owner_Group " _
    & "FROM HPD_Help_Desk " _
    & "WHERE TicketType = 'Incident' " _
      & "and Owner_Support_Organization = 'STAU' " _
      & "and Product_Categorization_Tier_1 like 'Technique-%' " _
      & "and Submit_Date >= {ts'" & Début & "'} " _
      & "and Submit_Date <= {ts'" & Fin & "'} " _
    & "ORDER BY Submit_Date"
'    & "Status<>'Resolved' and Status <> 'Closed' "
Debug.Print SQL
With cmd
    .ActiveConnection = cn
    .CommandText = SQL
    Set MonRs = cmd.Execute
End With

MonRs.Close
Set MonRs = Nothing
Set MonRs = New ADODB.Recordset
MonRs.Open cmd, , adOpenKeyset, adLockOptimistic, adCmdText

MonRs.MoveFirst
     SQL = "DELETE * FROM " & TABLE_RESULTAT
     CurrentDb.Execute SQL


Do While Not MonRs.EOF
  out_rst.AddNew

  For Each oField In MonRs.Fields
      out_rst.Fields(oField.Name).Value = oField.Value
  Next oField

  out_rst.Update
MonRs.MoveNext
Loop

Set cn = Nothing
Set cmd = Nothing
Set out_rst = Nothing
Set MonRs = Nothing
End Function

Le but de ce code est de créer remplir la TB_ACTIVITE des données sur la plage de dates renseignées (1 er et dernier jour du mois précédent)


Lorsque j'écris

Code :

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

Dim Début As Date

Code :

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

Dim Fin As Date

j'ai un message d'érreur :

Expected element not Found


Lorsqu'ils mis en string le programme s'exécute mais jusqu'à l'avant dernier jour du mois précédent.


Merci encore

[Jean-Philippe André]

Salut,

la fonction format retourne une chaine de caractêre c'est normal

Inutile d'initialiser ta date avec un format quelconque, simple

Code :

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

Fin = DateSerial(Year(Date), Month(Date), 1) - 1

fera l'affaire

[kedmard]

Toujours le même message d'erreur,

Je me dis, puisque dans la table d'origine la variable submit_Date est sous la forme 01/02/2012 11:20:02 il serait judicieux que

Fin soit du même format ?


Ps:ce code est celui d'un collègue,

[Jean-Philippe André]

"toujours la même erreur", à quelle ligne exactement stp ?

je suppose que le set Rs en bout d eligne est une erreur de recopie dans le forum

[kedmard]

Ligne 35

Code :

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

Set MonRs = cmd.Execute

[Jean-Philippe André]

bon, alors juste un peu de lecture
http://drq.developpez.com/vb/tutoriels/ADO/
http://vb.developpez.com/bidou/recordset-ado/

soit tu exécutes une requete action, soit tu récupères le jeu d'enregistrement dans un recordset, mais pas de combo

[kedmard]

ouf j'ai fini par trouver quelque chose qui marche,

Code :

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

Fin = Format(CDate("1/" & Format(Date, "mm/yyyy")), "yyyy\-mm\-dd 00:00:00")

les données s'affiche maintenant jusqu'au dernier jour du mois précédent.

Merci quand même à vous Messieurs pour vos réponses,