[AC-2003] Numero de semaine dans TBC [Résolu]

[senseo]

Bonjour,

Dans un tableau croisé dynamique avec des numéro de semaine dépendantes d'une date commence à 1 pour le premier janvier.
Hors cette année le premier janvier est la semaine 0,
Existe-t-il une solution pour faire correspondre la semaine 1 comme dans outlook à la prmiere semaine de 4 jours.

Merci de votre aide.

[User]

Salut,

as-tu consulté cette discussion.

A+

[senseo]

User,
Bonjour,

Merci pour cette info, dans un tableau croisé dynamique les numéros de semaine, sont calculés automatiquement à partir d'une date, est il possible que le numéro soit calculé à partir de la première semaine de 4 jours ou faut-il le calculé dans la requête alimentant le taleau croisé dynamique.

Merci

[User]

Salut,

Peux-tu poster la requête ou un exemple de ce que tu veux faire ?

Merci

[senseo]

User
Re

En Pièce jointe un extrait du TCD,
Comme tu peux le voir pour cette annéee le numéro de la semaine pour le lundi 3 est la semaine N° 2.
Je souhaiterais qu ce soit la semaine 1.

Pour afficher ce champ je travaille sur une date qui me renvoi dans le TCD, l'année, le semestre, le trimestre, le mois et le numéro de semaine et le jour.

Merci de ton attention.

[User]

re,

si tu as 1 champ DateJour dans ta requête source par exemple le 1er jour de la semaine (lundi 3 janv 2011), tu peux faire:

Code :

NSem: NumSemaine(DateJour)

avec la fonction de LedZeppII donnée dans la discussion:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
Function NumSemaine(Dt As Date) As Long
Dim wk As Long, Annee As Long
 
wk = DatePart("ww", Dt, vbMonday, vbFirstFourDays)
 
' Correction Semaine 53
If wk = 53 Then
    ' Ont 53 semaines :
    '  * Les années dont le 1er janvier est un jeudi
    '  * Les années bissextiles dont le 1er janvier est un mercredi
    '  ==> année suivant une année à 53 semeaines
    '      commence un vendredi ou un samedi
    Annee = Year(Dt): If Month(Dt) = 12 Then Annee = Annee + 1
   'Si 1/1 est dim,lun,mar,mer,jeu alors année-1 n'a pas 53 semaines
   If Weekday(DateSerial(Annee, 1, 1), vbSunday) < 6 Then
      wk = 1
   End If
End If
 
NumSemaine = wk
 
End Function

A+

[senseo]

User,
Bonsoir.

J'ai mis en place suivant le code mis dans le post.

Le code fonctionne dans la requête, affichage du numéro de la semaine correct, mais impossible d'ouvrir le TCD associé à cette requête.

J'ai comme message "préparation des données en cours", et le TCD ne s'ouvre pas j'ai attendu quelque minutes et j'ai tué la tache pour reprendre la main.

La requête extraite du QBE:

Code sql :

1
2
SELECT tbl_extrait_INS.[N° Inter], tbl_extrait_INS.Statut, tbl_extrait_INS.[Motif statut CHANGE], tbl_extrait_INS.Région, tbl_extrait_INS.Agence, tbl_extrait_INS.Zone, tbl_extrait_INS.[Tech Principal], tbl_extrait_INS.[N° Contrat], tbl_extrait_INS.[Nom site], tbl_extrait_INS.[Date dispatch], tbl_extrait_INS.[Date Fin], Numsemaine([Date fin]) AS Nsem
FROM tbl_extrait_INS;

Si tu as d'autre orientation.

Merci.
Claude

[User]

Salut,

Tu n'aurais pas une valeur nulle pour le champ [Date fin],

Vérifie sur ta requête si tu n'as pas un "#Erreur" qui s'affiche dans ce champ

A+

[senseo]

User,

bsr

J'ai effectivement des valeurs nulles.

cdt
Claude

[User]

Re,

dans ce cas utilise la fonction iif avec 1 truc comme ca :

Code sql :

1
2
SELECT ...iif(IsNull([Date fin]),NULL,Numsemaine([Date fin])) AS Nsem
...

[senseo]

User,
re,

Un grand merci pour ton aide et en pièce jointe le résultat.
Je passe en résolu et continu pour les autres TCD, j'en ai pas mal à revoir.

Function à généraliser dans les TCD ayant des numéros de semaine.


cdt
Claude