re
déjà actuellement on ne compte que les dimanches ! pas les samedis que je sache !?
si tu veux d'autres jours c'est pareil tu te sers des nos 1 à 7 (peu importe l'affichage du calendrier)
pour les lundi c'est 1 ... jusque 7 pour dimanche ! ici vendredi tu testes avec le 5 !
tu devrais faire ces essais et tu verrais tout de suite le résultat !
EDIT:
'pour vendredi
'If Weekday(D, vbMonday) = 5 Then TextBox4 = CDate(TextBox4) + 1
'pour vendredi et samedi
'If Weekday(D, vbMonday) = 5 or Weekday(D, vbMonday) = 6 Then TextBox4 = CDate(TextBox4) + 1
pour le message:
If Weekday(TextBox4, vbMonday) = 5 Then MsgBox "Attention: " & TextBox4 & vbLf & "tombe un vendredi !", vbInformation, ""
If Weekday(TextBox4, vbMonday) = 6 Then MsgBox "Attention: " & TextBox4 & vbLf & "tombe un samedi !", vbInformation, ""