autant pour moi, DatePart("w", DateC) est bon également puisqu'il te renvoi le numéro du jour peu importe le premier jour de la semaine.

Attention car la fonction DatePart pourrait te renvoyer 6 ou 7 au lieu de 7 ou 1, le mieux serait de forcer la fonction en définissant quel est le premier jour de la semaine ( lundi ou dimanche) ce qui donnerait :
DatePart("w", DateC, vbSunday)  dans ton cas.

Comme le dit Bud, y a plus simple ;o)
DateT = DateD
i = 0
tant que i < duree faire
DateT = DateAdd("d",1,DateT)
si DatePart("w", DateT, vbSunday)   <> 1  and DatePart("w", DateT, vbSunday)  <>7 faire
i = i +1
fin si
fin tant que

mafonction = DateT

ca devrait etre un truc du genre :o)

une autre variante ;o)
j'y met mon grain de sel ;o))

function formNumber(num, nbC)
s=num
while len(s)<nbC
s="0" & s
wend
formNumber=right(s,nbc)
end function

nbc, c'est la taille de num qui sera renvoyé
sinon si nbc>longueur(num) remplace par 0

LleWellA, chez microsoft certainement ;o)

super merci pour la source de la dll :o)

serait-il possible de disposer des sources de la DLL?????

d'avance merci ;o)