Le tbJoursFériés ne se remplit pas

Bonjour,

Le probleme est sur l'appel du calendrier

Bonjour f894009,

à quel endroit .

Ici :

Private Sub tbDateMenu_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
'Va afficher le celendrier pour choisir la date du menu.
    tbDateMenu = Format(Calendrier.Choix(tbDateMenu), "d mmmm yyyy")
End Sub

Comment procéder pour remédier au problème ? Voir ci dessous, fête nationale pour le 14 juillet 2025 apparaît bien.

Private Sub tbDateMenu_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
'Va afficher le celendrier pour choisir la date du menu.
    DateMenu = Calendrier.Choix(tbDateMenu)
    If DateMenu > 0 Then tbDateMenu = Format(DateMenu, "dddd")
    Call MiseÀJourTitre
End Sub

Par contre; MoisMenu se solde par une erreur ; l'indice n'appartient pas à la sélection.

https://www.transfernow.net/dl/20250729i09OxRxT

Bonjour,

Comment ce fait-il que cette procedure Private Sub tbDateMenu_MouseDown

ne soit pas dans le fichier de depart ????????????????????

Vous ne mettez pas les bons fichiers a dispo

Je regarde quand meme

Suite:

Pourquoi ce format?????????

 tbDateMenu = Format(DateMenu, "dddd")

Bonjour F894009,

1) J'avais omis de l'inclure, c'était un oubli.

2) Pourquoi ce format : ce n'est pas moi qui l'ai choisi, j'ai recopié bêtement.

Bonjour,

https://www.transfernow.net/dl/20250730jt92QtUk

Merci Pouvez-vous me dire où vous avez effectué des modifications ?

Private Sub tbDateMenu_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
'Va afficher le celendrier pour choisir la date du menu.
    DateMenu = Calendrier.Choix(tbDateMenu)
        If DateMenu > 0 Then tbDateMenu = Format(DateMenu, "dddd d mmmm yyyy")      'format du tableau TabJoursFériés
    Call MiseÀJourTitre
End Sub

Bonjour f894009,

Merci pour la réponse et le commentaire.