Discussion :

[ostrich95]

Bonjour,

J'ai un probleme en essayant de sommer des valeurs de 4 semaines consécutives au passage d'une année à l'autre.

Je dispose d'une table Tonnages où les champs Client, Volume, numéro de semaine, numéro d'année sont remplis automatiquement à partir d'un fichier excel.

Je traite ensuite les numéros de semaine et d'année afin de générer une date correspondant au premier jour de la semaine avec un module.

J'aimerais ensuite sommer les volumes sur 4 semaines consécutives (en demandant pour l'instant à l'utilisateur d'entrer le numéro de semaine) de l'année N et N-1 (afin de comparer).
Par exemple si l'utilisateur entre "5", la requete va calculer la somme des volumes de la semaine 1 à 4 pour chaque année.

Cela fonctionne pour moi mais je rencontre un problème lorsque la "fenetre" de 4 semaines est sur 2 années.
Ex: si l'utilisateur entre "2", la requete doit calculer la somme des volumes 50/année prec., 51/année prec., 52/année prec et 01/année.
Dans mon cas la requete ne franchit pas la "barrière" entre les 2 années, ne conservant que le volume 01/année.

Quelqu'un peut m'aider?

Voici mon module pour générer la date:

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
Function convDate( _
  ByVal intAnnee As Long, _
  Optional ByVal intSemaine As Long = 1)
 
  Dim dt As Date
 
  ' Trouver le 1er jour de la semaine 1 de l'année
  ' (pas forcément le 1/1/aaaa en France !)
  dt = DateSerial(intAnnee, 1, 1)
  While DatePart("ww", dt, vbMonday, vbFirstFourDays) <> 1
    dt = dt + 1
  Wend
 
  ' Calculer le 1er jour de la semaine demandée
  dt = dt - DatePart("w", dt, vbMonday) + 1
  dt = dt + 7 * (intSemaine - 1)
 
  convDate = dt
End Function

Et voici ma requête:

Code :

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

1
2
3
4
SELECT Tonnages.Client, Sum(Tonnages.Volume) AS SommeDeVolume, Tonnages.numAnnee
FROM Tonnages
WHERE Tonnages.tDate>=DateAdd("ww",-4,convDate(Tonnages.numAnnee,[SemaineACalculer])) And Tonnages.tDate<convDate(Tonnages.numAnnee,[SemaineACalculer])
GROUP BY Tonnages.Client, Tonnages.tDate, Tonnages.numAnnee;

En vous remerciant d'avance de vos réponses,

Ostrich95

[Robert1957]

Bonjour ostrich95,

La solution est de convertir en date avant le Where clause. Supposons un champ nommé Date_Conv qui reprend ta fonction tu auras ainsi des dates exploitables avec la fonction DateAdd.

Bonne journée

[ostrich95]

Bonjour Robert1957,

merci de ta réponse mais j'ai un problème : j'ai créé un champ dateconvertie dans ma requête mais, à l'exécution, il m'est demandé de renseigner [SemaineACalculer] (ce qui est normal) mais aussi dateconvertie (ce qui n'est pas normal!).

Voici le SQL de ma requête:

Code :

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

1
2
3
4
SELECT Tonnages.Client, Sum(Tonnages.Volume) AS SommeDeVolume, Tonnages.numAnnee,convDate(Tonnages.numAnnee,[SemaineACalculer]) AS dateconvertie
FROM Tonnages
WHERE Tonnages.tDate>=DateAdd("ww",-4,dateconvertie) And ( Tonnages.tDate<dateconvertie)
GROUP BY Tonnages.Client, Tonnages.tDate, Tonnages.numAnnee;

Ostrich95