Sub date_nego_plus_cinq_jours_ouvres()
Dim SerialDateNego As Long, SerialDateNegoPlusCinq As Long
Dim DateNego As Date, DateNegoPlusCinq As Date
'on prend la valeur qui est dans la cellule active, on la rentre dans la
'variable SerialDateNego
SerialDateNego = CLng(ActiveCell.Value)
SerialDateNegoPlusCinq = SerialDateNego + 5
'Si le jour de DateNegoPlusCinq est un samedi, ou un dimanche, on
'rajoute deux jours à cette variable (samedi et dimanche non ouvrés)
If Format(CDate(SerialDateNegoPlusCinq), "dddd") = "samedi" Then
SerialDateNegoPlusCinq = SerialDateNegoPlusCinq + 2
GoTo Lbl1
ElseIf Format(CDate(SerialDateNegoPlusCinq), "dddd") = "dimanche" Then
SerialDateNegoPlusCinq = SerialDateNegoPlusCinq + 2
GoTo Lbl1
Else
GoTo Lbl1
End If
'on va maintenant convertir le numéro de série de la date du cinquième jour
'ouvré suivant en "vraie" date, sous la forme "jj/mm/aaaa". On entre cette
'date dans la cellule à droite de celle qui était active au départ.
Lbl1:
DateNegoPlusCinq = CDate(SerialDateNegoPlusCinq)
ActiveCell.Offset(0, 1) = DateNegoPlusCinq
End Sub