Bonjour à tous !
je souhaite faire apparaître une MsgBox dans mon fichier Excel à un intervalle de temps régulier grâce à une macro.
J'ai presque réussi, mais avec une InputBox.
Dim uneheure
Sub Actualiser()
'
' Définit l'intervalle avec l'heure actuelle
uneheure = TimeSerial(Hour(Time), Minute(Time) + 1, Second(Time))
' Appel récursif
Application.OnTime uneheure, "Actualiser"
Call Mamacro
End Sub
Sub Mamacro()
Dim strTest As String
strTest = InputBox("Combien de palettes sont en RPLN pour finir la journée?", "REPLENISH")
MsgBox strTest
End Sub
Sub auto_open()
Actualiser
End Sub
Sub auto_close()
On Error Resume Next
Application.OnTime uneheure, Procedure:="Actualiser", Schedule:=False
End Sub
Le petit soucis c'est qu'à l'ouverture du fichier l'InputBox s'ouvre 2 fois de suite sans intervalle.
Donc je souhaite remplacer l'InputBox par une MsgBox, et qu'elle souvre une seule fois au démarrage puis à intervalle régulier.
Est-ce possible ?
Merci pour vos réponses.
je souhaite faire apparaître une MsgBox dans mon fichier Excel à un intervalle de temps régulier grâce à une macro.
J'ai presque réussi, mais avec une InputBox.
Dim uneheure
Sub Actualiser()
'
' Définit l'intervalle avec l'heure actuelle
uneheure = TimeSerial(Hour(Time), Minute(Time) + 1, Second(Time))
' Appel récursif
Application.OnTime uneheure, "Actualiser"
Call Mamacro
End Sub
Sub Mamacro()
Dim strTest As String
strTest = InputBox("Combien de palettes sont en RPLN pour finir la journée?", "REPLENISH")
MsgBox strTest
End Sub
Sub auto_open()
Actualiser
End Sub
Sub auto_close()
On Error Resume Next
Application.OnTime uneheure, Procedure:="Actualiser", Schedule:=False
End Sub
Le petit soucis c'est qu'à l'ouverture du fichier l'InputBox s'ouvre 2 fois de suite sans intervalle.
Donc je souhaite remplacer l'InputBox par une MsgBox, et qu'elle souvre une seule fois au démarrage puis à intervalle régulier.
Est-ce possible ?
Merci pour vos réponses.