Je ne suis pas sur est ce que c'est possible

Bonsoir à tous,

je voudrais inserer un mot sur excel ou word , ce mot devrai se changer apres chaque minute par exemple .

Ex : Mot ="aaaa" apres une minute devient "bbbb" ..........

si c'est possible merci de m'aider svp.

Salutations.

Un bout de code trouvé sur le net qui pourrait faire l'affaire en adaptant ce qu'il faut.

Sub RafraichissementGraphe()
    ' Définit l'intervalle avec l'heure actuelle + trente secondes
    DansTrenteSecondes = TimeSerial(Hour(Time), Minute(Time), Second(Time) + 30)
    ' Appel récursif de la fonction RafraichissementGraphe
    Application.OnTime DansTrenteSecondes, "RafraichissementGraphe"
    ' Appel de la fonction EnregistrerEnPageWeb
    Call EnregistrerEnPageWeb
End Sub

Merci Lean,

mais ça n'a pas marché malheureusement ?

Bonsoir,

Sub nouveaumot()

   schedule = TimeSerial(Hour(Time), Minute(Time), Second(Time) + 10)

   Application.OnTime schedule, "nouveaumot"

   worksheets("Feuil1").Cells(1, 1) = Chr$(Rnd() * 26 + 64) & Chr$(Rnd() * 26 + 64) & Chr$(Rnd() * 26 + 64) & Chr$(Rnd() * 26 + 64) & Chr$(Rnd() * 26 + 64)

End Sub