Comment utiliser la fonction Weekday dans VBA ?

La fonction `Weekday` dans VBA est utilisée pour déterminer le jour de la semaine d’une date donnée. Elle renvoie un entier représentant le jour de la semaine, avec la possibilité de spécifier quel jour est considéré comme le premier jour de la semaine.

Voici comment utiliser la fonction `Weekday` :

Syntaxe

Weekday(date, [firstdayofweek])
  • date : Obligatoire. La date pour laquelle vous voulez connaître le jour de la semaine.
  • firstdayofweek : Optionnel. Une constante qui spécifie le premier jour de la semaine. Par défaut, dimanche est considéré comme le premier jour.

Constantes pour `firstdayofweek`

  • `vbUseSystemDayOfWeek` (0) : Utilise le paramètre du système.
  • `vbSunday` (1) : Dimanche (par défaut).
  • `vbMonday` (2) : Lundi.
  • `vbTuesday` (3) : Mardi.
  • `vbWednesday` (4) : Mercredi.
  • `vbThursday` (5) : Jeudi.
  • `vbFriday` (6) : Vendredi.
  • `vbSaturday` (7) : Samedi.

Exemple d’utilisation

Voici un exemple simple d’utilisation de `Weekday` dans VBA :

Sub ExempleWeekday()
    Dim maDate As Date
    Dim jourSemaine As Integer

    ' Initialisation de la date
    maDate = #10/12/2023# ' 12 Octobre 2023

    ' Obtenir le jour de la semaine
    jourSemaine = Weekday(maDate, vbMonday) ' Considérer lundi comme premier jour de la semaine

    ' Affichage du résultat
    Select Case jourSemaine
        Case 1
            MsgBox "Lundi"
        Case 2
            MsgBox "Mardi"
        Case 3
            MsgBox "Mercredi"
        Case 4
            MsgBox "Jeudi"
        Case 5
            MsgBox "Vendredi"
        Case 6
            MsgBox "Samedi"
        Case 7
            MsgBox "Dimanche"
    End Select
End Sub

Dans cet exemple, la fonction `Weekday` est utilisée pour déterminer que le 12 octobre 2023 est un jeudi, en considérant que lundi est le premier jour de la semaine. Vous pouvez ajuster l’argument `firstdayofweek` selon vos besoins pour adapter les résultats en fonction du premier jour de la semaine de votre choix.

Unlock Your Potential

Excel

Basic - Advanced

Access

Access Basic - Advanced

Power BI

Power BI Basic - Advanced

Help us grow the project