Bonjour,
C'est un cas où je préfère passer par une fonction personnalisée :
Function DATEHEUREFIN(d As Date, h As Date, ouv As Date, ferm As Date, délai As Date)
Dim dd, hd, df, hf
If h < ouv Then
hd = ouv: dd = d
ElseIf h >= ferm Then
hd = ouv: dd = d + 1
Else
hd = h: dd = d
End If
If 2 - (Weekday(dd) Mod 7) > 0 Then dd = dd + 2 - (Weekday(dd) Mod 7)
hf = hd + délai: df = dd
Do
If hf > ferm Then
hf = hf - ferm + ouv: df = df + 1
If 2 - (Weekday(df) Mod 7) > 0 Then df = df + 2 - (Weekday(df) Mod 7)
Else
Exit Do
End If
Loop
DATEHEUREFIN = df + hf
End Function
La fonction renvoie la date fin et l'heure fin prévues en fonction des paramètres passés : date, heure, ouverture, fermeture, délai.
Le réel n'étant pas indiqué, on ne peut l'inventer.
Le temps, je ne sais ce que tu veux calculer ?
Cordialement.