Bonjour à tout le monde.
Je vous écris car je galère sur la mise en place d'une alarme.
J'ai trouvé comment programmer une alarme aujourd'hui, mais je souhaiterai pourvoir programmer mon alarme par rapport à une date qui est renseigné dans une cellule B49.
Après de multiple essaye, j'ai pas réussi a faire ce qu'il m'intéresse.
Mon ébauche:
J'ai essayé de spécifier Date = B49 ou de remplacer Date par B49 et plein d'autre truc mais cela ne fonctionne pas.
Si quelqu'un à une idée...
Merci d'avance à ce qui prendrons le temps de jeter un œil.
Bonne aprem.
Je vous écris car je galère sur la mise en place d'une alarme.
J'ai trouvé comment programmer une alarme aujourd'hui, mais je souhaiterai pourvoir programmer mon alarme par rapport à une date qui est renseigné dans une cellule B49.
Après de multiple essaye, j'ai pas réussi a faire ce qu'il m'intéresse.
Mon ébauche:
VB:
Dim Heur As String
Dim Message As String
Dim Alerte As Double
If CheckBox1.Value = True Then
On Error Resume Next
If Date + TimeValue(Now) <> Alerte Then
Heur = Arrive
If Heur <> "" Then
Message = MsgBox("Une alerte est programmée ")
Alerte = Date + TimeValue(Heur)
Application.OnTime Alerte - TimeValue("00:15:00"), "11E"
End If
End If
End If
Si quelqu'un à une idée...
Merci d'avance à ce qui prendrons le temps de jeter un œil.
Bonne aprem.