Discussion :

[linda15975]

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
 
Dim D As Date, NumSemaine As Integer, DateDebut As Date, DateFin As Date
 
D = Date
NumSemaine = Format(D, "ww") - 1
 
' premier jour de l'année
D = DateSerial(Annee, 1, 1)
 
' numéro de la semaine du 1er janvier
numS = DatePart("ww", D, vbMonday, vbFirstFourDays)
 
' si le 1er janvier fait partie de la dernière semaine de l'année précédente
' alors passe à la semaine suivante (la première de la nouvelle année)
If numS <> 1 Then D = DateAdd("d", 7, D)
 
' calcule le premier jour de la première semaine de l'année
D = DateAdd("d", 1 - Weekday(D, vbMonday), D)
 
' ajoute (numSemaine-1)-3 semaines
DateDebut = DateAdd("ww", NumSemaine - 4, D)
TxtDebutn3.ControlSource = "=#" & DateDebut & "#"
 
' calcule le dernier jour de la première semaine de l'année
D = DateAdd("d", 5 - Weekday(D, vbMonday), D)
 
' ajoute (numSemaine-1)-3 semaines
DateFin = DateAdd("ww", NumSemaine - 4, D)
TxtFinn3.ControlSource = "=#" & DateFin & "#"

je t'ai mis juste les calculs des dates de la semaine n-3.
j'obtiens 30/05 et 06/03 (avec le format jj/mm pour chacun des textbox), au lieu de 30/05 et 03/06.
Voilà, je sais pas, peut-etre que j'ai fait une grosse faute de syntaxe ou d'étourderie...

[Neilos]

J'aurais du te demander ton code depuis le début.

C'est clair que si tu le met dans ControlSource ça va pas marcher...
Ce que tu mettais dans ControlSource c'était ça (qd tu avait le problème de la division)

=26/7

La forcément Access va le calculer puisque c'est ce que tu lui demandes.

Toi tu veux juste afficher une valeur, pas besoin de passer par la propriété ControlSource, suffit de faire cela à la fin de ton code
(d'ailleur la variable numS n'était pas déclarée je l'ai rajouté au début) :

Code :

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

1
2
3
4
5
6
7
8
9
10
' ajoute (numSemaine-1)-3 semaines
DateDebut = DateAdd("ww", NumSemaine - 4, D)
TxtDebutn3 = Day(DateDebut) & "/" & Month(DateDebut)
 
' calcule le dernier jour de la première semaine de l'année
D = DateAdd("d", 5 - Weekday(D, vbMonday), D)
 
' ajoute (numSemaine-1)-3 semaines
DateFin = DateAdd("ww", NumSemaine - 4, D)
TxtFinn3 = Day(DateFin) & "/" & Month(DateFin)

Et là ça marche

[linda15975]

Pour moi, ça ne marche pas:

"impossible d'attribuer une valeur à cet objet"

[Neilos]

Si tu as mis ce code dans le OnOpen de ton formulaire ça me fait pareil.
Je l'ai transféré dans le OnActivate et ça fonctione.

[linda15975]

Ca y est, ça marche!!!!

MERCI BEAUCOUP!!!

J'espère ne pas t'avoir trop monopoliser.

[Neilos]

Non non t'inquiète pas de problème.
On m'a beaucoup aidé sur le forum donc c'est normal que je fasse de même.

Par contre j'aurais dû te demander ton code de suite on aurait été plus rapide : jsuis content de voir ce tag résolu.

@une prochaine