Ajouter une durée en seconde à l'heure en cours

Bonjour à tous,

Je dois en vb ajouter à l'heure en cours ajouter une durée en secondes.

J'ai une variable Temps qui contient le nombre de secondes et je dois l'ajouter à l'heure en cours.

Par exemple Temps=4534 secondes que je dois ajouter à 14:36:24.

Je galère un peu avec l'instruction DATEADD mais je ne m'en sors pas.

J'espère qu'il existe une solution à ce problème.

Merci d'avance à tout ceux qui peuvent m'aider.

Salutations Eric.

Bonjour eric59330,

Quelque chose du genre:

Sub test()
Dim Temps, newTemps
Temps = 4535
newTemps = Time() + CDbl(Temps) / 24 / 60 / 60
End Sub

Bonjour,

Félicitations et merci "ma poire".

J'ai juste modifié un peu le code en y ajoutant des boites de dialogues pour renseigner le nombre de secondes à ajouter et afficher la nouvelle heure. Voir ci-dessous.

Sub Macro2()

'

Dim Temps, newTemps As Variant

Temps = InputBox("Quel est le temps à ajouter en secondes ?", "Temps")

newTemps = Time() + CDbl(Temps) / 24 / 60 / 60

MsgBox (newTemps)

End Sub

Encore merci pour votre réponse rapide.

Salutations Eric.