addition jours ouvrés à une date Résolu/Fermé

Question

Bonjour,

J'ai un petit soucis en visual basic pour exel 2003

Je dois ajouter à une date qui souve en A1 un nombre de jours ouvrés pour avoir une date finale. J'avoue que j'ai du mal à trouver avec les jours ouvrés. Quelqu'un pourrait il m'aider SVP?

Merci d'avance

michel_m · Answer

bonjour

ta date en A1, le nbre de jours ouvrés en B1

dans ton code:
date_fin= [workday(A1,B1)]

ou

nbre = 50
dep = CLng(Range("A1"))
date_fin2 = Evaluate("workday(" & dep & "," & nbre & ")")
MsgBox Format(date_fin2, "dd/mm/yy")

nota: peut-être qu'il faut que dans XL l'utilitaire d'analyse soit activé (outils-macros complémentaires)

sissy0810 · Answer

Merci pour ta réponse mais il semble que je n'ai pas du faire ce qu'il faut car en résultat il me donne le 24/01/2054.
Pour plus de simplicité, je vous copie le programme que j'avais fait : 

DateDébut = 0
nbrejours = 0
DateFin = 0

Sheets("temps formation").Select

DateDébut = Range("B2")
nbrejours = Range("D2").Value


DateFin = [workday(D2,B2)]

Cells(2, 3).Value = DateFin

Une autre question pour avoir le nombre de jours je divise mon nombre d'heures par 7 donc je vais avoir un nombre décimale de temps en temps. Cela posera-t il un problème? Si oui comment faire?

merci pour votre aide

michel_m · Answer

n'aurais tu pas inversé les paramêmtres?
tu as écris
DateFin = [workday(D2,B2)] 
au lieu de
DateFin = [workday(B2,D2)] 
...

pour avoir le nombre de jours je divise mon nombre d'heures par 7 
???? C'est sur quelle planète ? :-)

tompols · Answer

Hello 
michel_m, 7 est le nombre d'heures par journée de formation (7h = 1j de formation ; 14h= 2j etc) ;)
du coup, va falloir gerer des demi journées ou on arrondi à la journée ?

sissy0810 · Answer

Arrondir à la journée sera suffisant c'est juste une aide.

Merci bien

sissy0810 · Answer

Je viens de finir d'essayer et cela marche super.

Merci beaucoup pour votre aide.

michel_m · Answer

Excusez moi, je n'avais pas ma boule de Cristal !

Je vous laisse

Addition jours ouvrés à une date

7 réponses

Discussions similaires