Re : Code pour afficher date et heure en temps réel?
Re tous,
Pour fermer, j'avais cette commande, mais hormis la voix, rien ne se passe!!!?
Private Sub CommandButton13_Click()
Dim Sp As Object
On Error Resume Next
Set Sp = CreateObject("Sapi.SpVoice")
If Sp Is Nothing Then Exit Sub
Sp.Speak "are you sure, so, have a good fun"
FinMAJHeure
End Sub
Re : Code pour afficher date et heure en temps réel?
Pierrot93, le Fil,
j'ai recalé dans le code, mais excel ne ferme toujours pas;
à l'origine cette commande etait dans woorbook,
je ne sais en créant un bouton exit comment appeler "FinMAJHeure" ET Workbook_Close!
Private Sub CommandButton13_Click()
Dim Sp As Object
On Error Resume Next
FinMAJHeure
Set Sp = CreateObject("Sapi.SpVoice")
If Sp Is Nothing Then Exit Sub
Sp.Speak "are you sure, so, have a good fun"