Bonjour,
Une autre piste :
Do while DateDiff("d", Deb, Fin) >= 0
if WeekDay(Deb, vbMonday) = 1 then
NbChomes = NbChomes + 1
elseif WeekDay(Deb, vbMonday) = 2 then
Type: Messages; Utilisateur: pc75
Bonjour,
Une autre piste :
Do while DateDiff("d", Deb, Fin) >= 0
if WeekDay(Deb, vbMonday) = 1 then
NbChomes = NbChomes + 1
elseif WeekDay(Deb, vbMonday) = 2 then
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.