Discussion :

[NEC14]

Bonjour,

J'ai mis en place ce bout de code qui me permet lorsque le mois en cours correspond au n°, d'afficher ce mois.
Je souhaiterai en faire autant avec le numéro de semaine correspondant à la semaine en cours.
Comment puis-je faire ?
"jj" pour jour, "mm" pour mois,"aaaa" pour année, mais pour semaine ????
Merci pour votre aide

Code :

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

1
2
mois_actuel = Format(Now(), "mm")
If mois_actuel = 9

[pgz]

Bonjour.

Le numéro de semaine fait l'objet d'une norme. Voici un code que j'utilise

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
Public Function NumeroSemaine(dateSemaine As Date) As Integer
    Dim NumJour             As Integer
    Dim NbJour              As Integer
    Dim nbpremier           As Integer
    Dim Jour                As Date
    Dim DernierJourSemaine  As Date
 
    'Correspond au 1 er janvier de l'année de la date donnée
    Jour = DateSerial(Year(dateSemaine), 1, 1)
 
    'Correspond au jour dans la semaine (1 = lundi, 2 = mardi, 3 = mercredi, 4 = jeudi, etc ...)
    NumJour = Weekday(Jour, vbMonday)
 
    'Correspond au dernier jour de la semaine du 1er janvier
    DernierJourSemaine = DateSerial(Year(dateSemaine), 1, 8 - NumJour)
 
    'Si le 1er janvier est après le vendredi, la semaine du 1 er janvier n'est pas comptabilisée dans la nouvelle année
    If NumJour > 5 Then
        NumeroSemaine = 0
    Else
    'sinon elle l'est
        NumeroSemaine = 1
    End If
 
    'Différence entre la date et le jour de la fin de semaine du 1er janvier
    NbJour = dateSemaine - DernierJourSemaine
 
    'Ensuite, on calcule le numéro de la semaine
    'Si le calcul tombe juste, on met le résultat
    If NbJour Mod 7 = 0 Then
        NumeroSemaine = (NbJour / 7) + NumeroSemaine
    Else
    'Sinon, on, rajoute un car il y a une semaine en cours
        NumeroSemaine = NumeroSemaine + Int(NbJour / 7) + 1
    End If
 
    'Si le numéro est égal à 53, on vérifie où se trouve le 1er janvier
    If NumeroSemaine = 53 Then
        nbpremier = Weekday(DateSerial(Year(dateSemaine) + 1, 1, 1), vbMonday)
        'Si le 1er tombe avant le vendredi, le numéro de la semaine est le numéro 1
        If nbpremier < 5 Then NumeroSemaine = 1
        'sinon, le numéro est le 53
    End If
 
    'Le numéro de la semaine peut être egale à 0 (01/01/2005)
    'car il ne detécte pasla semaine 53
    'On cherche alors le numéro de la semaine du 31/12 de l'année d'avant
    If NumeroSemaine = 0 Then
        'Sauf si le 01/01 est le lundi
        If nbpremier = 1 Then
            NumeroSemaine = 1
        Else
            NumeroSemaine = NumeroSemaine(DateSerial(Year(dateSemaine) - 1, 12, 31))
        End If
    End If
End Function

Je ne suis pas l'auteur de ce code et je m'excuse auprès de lui de ne pas savoir lui attribuer cette contribution.

Cordialement,

PGZ

[decondelite]

Juste pour info: pour récupérer le numéro du mois le plus simple reste encore de faire ceci.

Code :

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

numero_mois = Month(Date)

[ucfoutu]

Bonjour,

voilà de quoi t'éclairer :

Code :

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

1
2
3
4
5
6
7
8
MsgBox "N° de la semaine avec convention  ""4 jours au nmoins"" ===>> " & DatePart("ww", Date, vbFirstFourDays)
  MsgBox "N° de la semaine avec convention ""commençant le dimanche"" ===>> " & DatePart("ww", Date, vbSunday)
  MsgBox "N° de la semaine avec convention ""commençant le lundi"" ===>> " & DatePart("ww", Date, vbMonday)
  MsgBox "jour de la semaine  ===>>" & WeekDay(Date) & " (" & Format(Date, "dddd") & ")"
  MsgBox "jour du mois  ===>>" & Day(Date) & " (" & Format(Date, "dddd") & ")"
  MsgBox "mois  ===>>" & Month(Date) & " (" & Format(Date, "dddd") & ")"
  MsgBox "année  ===>>" & Year(Date)
  MsgBox "N° jour dans année  ===>> " & DateDiff("d", "01/01/" & Year(Date), Date)

[decondelite]

Il me semblait bien qu'il y avait une fonction toute faite qui permettait d'avoir le numéro de semaine mais je ne retrouvais plus laquelle c'était: merci uc.

Le pire, c'est que je m'en suis déjà servi et que je suis passé juste à coté dans l'explorateur d'objets...
Pas très en forme aujourd'hui.

[pgz]

Ce n'est pas si simple.

Regardez ce que donne ces formules pour le 31/12/2008 : toutes les 3 semaine 53 au lieu de 1.

PGZ

[decondelite]

Ce n'est pas si simple.

Regardez ce que donne ces formules pour le 31/12/2008 : toutes les 3 semaine 53 au lieu de 1.

PGZ

Ucfoutu n'a pas précisé le premier jour de la semaine dans sa première formule (qui est la bonne).

Précise dans datepart que le premier jour de la semaine est lundi et tu verras que oh miracle ça te renverra 1 pour le 31 décembre 2008.

[ucfoutu]

Mon dernier msgbox est inexact :

Corriger par :

Code :

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

MsgBox "N° jour dans année  ===>> " & DateDiff("d", "31/12/" & Year(Date) - 1, Date)

que l'on peut d'ailleurs avantageusement remplacer par :

Code :

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

MsgBox "N° jour dans année  ===>> " & DatePart("y", Date)

Je pense que tout y est maintenant ...

[pgz]

Pour info, le numéro de semaine suivant la norme ISO 8601 expliquée par Wiki ici

PGZ