Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access Pb Numéro de semaine

Pb Numéro de semaine

9 réponses
Avatar
Georges
Bonsoir,
J’ai crée une application dans laquelle je saisis une date et je souhaite
faire apparaître le numéro de la semaine.
J’utilise la formule : =PartDate("ee";[LT_Date])
Mon problème est cette formule me retourne un N° de semaine erronée, càd
lorsque je saisis
31/12/2004 > S =53
01/01/2005 > S =01
02/01/2005 > S =02
alores que la dernière date saisie est dans le semaine 01

Quelle est la formule a appliquer pour résoudre ce problème
D’avance merci pour votre aide
Georges
Signaler un problème avec ce contenu

9 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Raymond [mvp]
Bonsoir.

pour une fois, le vrai bug.

lire la fiche technique :
BOGUE : Les fonctions Format et DatePart peuvent renvoyer un numéro de
semaine erroné pour le Dernier lundi de l'année
http://support.microsoft.com/default.aspx?scid=kb;FR;q200299
toutes les fiches indispensables sur :
http://officesystem.access.free.fr/kb.htm
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Georges" a écrit dans le message de
news:
Bonsoir,
J'ai crée une application dans laquelle je saisis une date et je souhaite
faire apparaître le numéro de la semaine.
J'utilise la formule : =PartDate("ee";[LT_Date])
Mon problème est cette formule me retourne un N° de semaine erronée, càd
lorsque je saisis
31/12/2004 > S S
01/01/2005 > S 
02/01/2005 > S 
alores que la dernière date saisie est dans le semaine 01

Quelle est la formule a appliquer pour résoudre ce problème
D'avance merci pour votre aide
Georges



Avatar
Georges
Bonjour,
Merci pour ta réponse rapide.
Je débute avec Access et j'avoue que les solutions proposées sont complexes
pourmoi.
J'ai un champ (LT_Date) dans lequel je saisis la date et un autre "semaine"
avec la formule =PartDate("ee";[LT_Date])
J'ai essayé d'adapter le formule de contournement proposée mais je ne sais
pas comment la lancer et que faut-il écrire pour remplcer vbMonday,
vbFirstFourDays ???

Function WOY (LT_Date As Date) As Integer ' Semaine de l'année
WOY = Format(LT_Date, "ee", vbMonday, vbFirstFourDays)
If WOY > 52 Then
If Format(LT_Date + 7, "ee", vbMonday, vbFirstFourDays) = 2 Then WOY = 1
End If
End Function


Merci pour votre aide, il me reste plus qu'une semaine pour trouver la
solution
Bonne journée
Georges







Bonsoir.

pour une fois, le vrai bug.

lire la fiche technique :
BOGUE : Les fonctions Format et DatePart peuvent renvoyer un numéro de
semaine erroné pour le Dernier lundi de l'année
http://support.microsoft.com/default.aspx?scid=kb;FR;q200299
toutes les fiches indispensables sur :
http://officesystem.access.free.fr/kb.htm
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Georges" a écrit dans le message de
news:
Bonsoir,
J'ai crée une application dans laquelle je saisis une date et je souhaite
faire apparaître le numéro de la semaine.
J'utilise la formule : =PartDate("ee";[LT_Date])
Mon problème est cette formule me retourne un N° de semaine erronée, càd
lorsque je saisis
31/12/2004 > S S
01/01/2005 > S 
02/01/2005 > S 
alores que la dernière date saisie est dans le semaine 01

Quelle est la formule a appliquer pour résoudre ce problème
D'avance merci pour votre aide
Georges








Avatar
Didier
Bonjour

Je vais t'aider car tu viens de m'éviter un gros bug dans
mes applications car je n'avais pas conciences de ce bug
et donc je suis en train de corriger rapidement

Dans ton cas :
Sur l'évenement aprés Mise à jour de ton controle LT_Date
dim WOY as long
WOY = Format(LT_Date, "ee", vbMonday, vbFirstFourDays)
If WOY > 52 Then
If Format(LT_Date + 7, "ee", vbMonday,
vbFirstFourDays) = 2 Then WOY = 1
End If
Me!semaine=WOY

et voilà

Merci à toi et à Raymond
-----Message d'origine-----
Bonjour,
Merci pour ta réponse rapide.
Je débute avec Access et j'avoue que les solutions
proposées sont complexes

pourmoi.
J'ai un champ (LT_Date) dans lequel je saisis la date
et un autre "semaine"

avec la formule =PartDate("ee";[LT_Date])
J'ai essayé d'adapter le formule de contournement
proposée mais je ne sais

pas comment la lancer et que faut-il écrire pour
remplcer vbMonday,

vbFirstFourDays ???

Function WOY (LT_Date As Date) As Integer ' Semaine de
l'année

WOY = Format(LT_Date, "ee", vbMonday, vbFirstFourDays)
If WOY > 52 Then
If Format(LT_Date + 7, "ee", vbMonday,
vbFirstFourDays) = 2 Then WOY = 1

End If
End Function


Merci pour votre aide, il me reste plus qu'une semaine
pour trouver la

solution
Bonne journée
Georges







Bonsoir.

pour une fois, le vrai bug.

lire la fiche technique :
BOGUE : Les fonctions Format et DatePart peuvent
renvoyer un numéro de


semaine erroné pour le Dernier lundi de l'année
http://support.microsoft.com/default.aspx?
scid=kb;FR;q200299


toutes les fiches indispensables sur :
http://officesystem.access.free.fr/kb.htm
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Georges" a écrit
dans le message de


news: 92D1231C-EDFF-44AE-B973-



Bonsoir,
J'ai crée une application dans laquelle je saisis
une date et je souhaite



faire apparaître le numéro de la semaine.
J'utilise la formule : =PartDate("ee";[LT_Date])
Mon problème est cette formule me retourne un N°
de semaine erronée, cà d



lorsque je saisis
31/12/2004 > S S
01/01/2005 > S 
02/01/2005 > S 
alores que la dernière date saisie est dans le
semaine 01




Quelle est la formule a appliquer pour résoudre ce
problème



D'avance merci pour votre aide
Georges





.






Avatar
3stone
Salut,

"Didier"
Je vais t'aider car tu viens de m'éviter un gros bug dans
mes applications car je n'avais pas conciences de ce bug
et donc je suis en train de corriger rapidement



Voir ici:
http://users.skynet.be/accesshome/dates.htm#week_year



--
A+
Pierre (3stone) Access MVP
Perso: http://users.skynet.be/accesshome/
Conseils MPFA: http://users.skynet.be/mpfa/
Email : http://www.cerbermail.com/?Xfg61Z3IQw
Avatar
Georges
Bonsoir Didier et Raymond

Je suis heureux de savoir que mon problème a "mis la puce à l'oreille " à
certains d'entre vous.
Merci à vous 2 pour votre aide.
Compte tenu de mon niveau sur access j'ai bigrement bagarré pour avoir le
résultat souhaité.
Actuellement j'essaie de me mettre à access et je m'aperçois que c'est bcp
plus dur qu''excel. Il est trés difficile de trouver des sites sur lesquels
on peut trouver des exemples. Ou du moins je ne les connais pas. De plus ,
pour excel il existe plus de sites avec des FAQ dans lesquels on trouve des
PJ . Celles ci permettent de visualiser des exemples et de pouvoir les
appliquer plus facilement à nos applications.
Merci encore à vous 2.
Espérant que vous m'indiquiez des bonnes adresses.
Cordialement
Georges Lyon monplaisir



Bonjour

Je vais t'aider car tu viens de m'éviter un gros bug dans
mes applications car je n'avais pas conciences de ce bug
et donc je suis en train de corriger rapidement

Dans ton cas :
Sur l'évenement aprés Mise à jour de ton controle LT_Date
dim WOY as long
WOY = Format(LT_Date, "ee", vbMonday, vbFirstFourDays)
If WOY > 52 Then
If Format(LT_Date + 7, "ee", vbMonday,
vbFirstFourDays) = 2 Then WOY = 1
End If
Me!semaine=WOY

et voilà

Merci à toi et à Raymond
-----Message d'origine-----
Bonjour,
Merci pour ta réponse rapide.
Je débute avec Access et j'avoue que les solutions
proposées sont complexes

pourmoi.
J'ai un champ (LT_Date) dans lequel je saisis la date
et un autre "semaine"

avec la formule =PartDate("ee";[LT_Date])
J'ai essayé d'adapter le formule de contournement
proposée mais je ne sais

pas comment la lancer et que faut-il écrire pour
remplcer vbMonday,

vbFirstFourDays ???

Function WOY (LT_Date As Date) As Integer ' Semaine de
l'année

WOY = Format(LT_Date, "ee", vbMonday, vbFirstFourDays)
If WOY > 52 Then
If Format(LT_Date + 7, "ee", vbMonday,
vbFirstFourDays) = 2 Then WOY = 1

End If
End Function


Merci pour votre aide, il me reste plus qu'une semaine
pour trouver la

solution
Bonne journée
Georges







Bonsoir.

pour une fois, le vrai bug.

lire la fiche technique :
BOGUE : Les fonctions Format et DatePart peuvent
renvoyer un numéro de


semaine erroné pour le Dernier lundi de l'année
http://support.microsoft.com/default.aspx?
scid=kb;FR;q200299


toutes les fiches indispensables sur :
http://officesystem.access.free.fr/kb.htm
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Georges" a écrit
dans le message de


news: 92D1231C-EDFF-44AE-B973-



Bonsoir,
J'ai crée une application dans laquelle je saisis
une date et je souhaite



faire apparaître le numéro de la semaine.
J'utilise la formule : =PartDate("ee";[LT_Date])
Mon problème est cette formule me retourne un N°
de semaine erronée, cà d



lorsque je saisis
31/12/2004 > S S
01/01/2005 > S 
02/01/2005 > S 
alores que la dernière date saisie est dans le
semaine 01




Quelle est la formule a appliquer pour résoudre ce
problème



D'avance merci pour votre aide
Georges





.









Avatar
3stone
Salut,

"Georges"
[...]
| Actuellement j'essaie de me mettre à access et je m'aperçois que c'est bcp
| plus dur qu''excel.

C'est surtout totalement différent ;-)

| Il est trés difficile de trouver des sites sur lesquels
| on peut trouver des exemples. Ou du moins je ne les connais pas.

Et quoi ?

Regarde le second lien de ma signature, lien qui se retrouve
chez tous les "réguliers".
Tu y trouvera de quoi t'occuper les fêtes de fin d'années...

--
A+
Pierre (3stone) Access MVP
Perso: http://users.skynet.be/accesshome/
Conseils MPFA: http://users.skynet.be/mpfa/
Email : http://www.cerbermail.com/?Xfg61Z3IQw
Avatar
Georges
Merci pour tes liens qui j'éspère me permettront de trouver des solutions à
tous mes problèmes.

Par contre dans ton message, je ne comprends pas le

"Et quoi ?"...
désolé mais je ne savais !!!

et de plus merci de me donner la définition des " réguliers"
Bonne soirée
merci pour ta réponse
Cordialement
Georges





Salut,

"Georges"
[...]
| Actuellement j'essaie de me mettre à access et je m'aperçois que c'est bcp
| plus dur qu''excel.

C'est surtout totalement différent ;-)

| Il est trés difficile de trouver des sites sur lesquels
| on peut trouver des exemples. Ou du moins je ne les connais pas.

Et quoi ?

Regarde le second lien de ma signature, lien qui se retrouve
chez tous les "réguliers".
Tu y trouvera de quoi t'occuper les fêtes de fin d'années...

--
A+
Pierre (3stone) Access MVP
Perso: http://users.skynet.be/accesshome/
Conseils MPFA: http://users.skynet.be/mpfa/
Email : http://www.cerbermail.com/?Xfg61Z3IQw




Avatar
3stone
re,

"Georges"
[...]
| Par contre dans ton message, je ne comprends pas le
|
| "Et quoi ?"...
| désolé mais je ne savais !!!

Il est de règle de prendre la "température" sur un forum,
quel qu'il soit, pour en apprendre un peu sur les us et coutumes...


| et de plus merci de me donner la définition des " réguliers"

et il découle de la première, que de nombreuses personnes
on ajouter dans leur signature un lien identique.
Cela *devrait* inciter (c'est fait pour) à aller voir :-)

Mais bien sûr, il n'y à pas d'obligation, on peut faire à sa guise,
en s'adressant directement à MS, mais là c'est souvent payant ;-))

--
A+
Pierre (3stone) Access MVP
Perso: http://users.skynet.be/accesshome/
Conseils MPFA: http://users.skynet.be/mpfa/
Email : http://www.cerbermail.com/?Xfg61Z3IQw
Avatar
Georges
Bonjour
Merci pour toutes ces précisions.
Bonne journée
Georges


re,

"Georges"
[...]
| Par contre dans ton message, je ne comprends pas le
|
| "Et quoi ?"...
| désolé mais je ne savais !!!

Il est de règle de prendre la "température" sur un forum,
quel qu'il soit, pour en apprendre un peu sur les us et coutumes...


| et de plus merci de me donner la définition des " réguliers"

et il découle de la première, que de nombreuses personnes
on ajouter dans leur signature un lien identique.
Cela *devrait* inciter (c'est fait pour) à aller voir :-)

Mais bien sûr, il n'y à pas d'obligation, on peut faire à sa guise,
en s'adressant directement à MS, mais là c'est souvent payant ;-))

--
A+
Pierre (3stone) Access MVP
Perso: http://users.skynet.be/accesshome/
Conseils MPFA: http://users.skynet.be/mpfa/
Email : http://www.cerbermail.com/?Xfg61Z3IQw