Bonjour à tous,
Voici un moyen pour avoir une Horloge parlante sur Excel :
'A mettre dans PERSONAL.xlsb
Sub Horloge_parlante()
Dim b As String
Dim c As Integer
Dim a As String
'Si vous avez "Prénom Nom" Comme Utilisateur
a = Application.UserName
If Hour(Now) > 17 Then
b = "Bonsoir"
Else
b = "Bonjour"
End If
c = WorksheetFunction.Find(" ", a)
a = Left(a, c - 1)
Application.Speech.Speak b & a & ", Il est " & Hour(Now) & " heures " & Minute(Now) & "."
'Will-Fread
End Sub
Ensuite, vous l’ajoutez parmi vos commandes ou dans la barre d’acces rapide avec un petit logo, exemple que j’ai. (un sablier)
