Re : InputBox et MsgBox
J'ai fait la modification, ce qui donne
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()
MsgBox " Combien de palettes sont en RPLN pour finir la journée ? ", vbOKOnly + vbInformation, "REPLENISH"
End Sub
Private Sub Workbook_Open()
Call auto_open
'+ qqch
End Sub
Sub auto_close()
On Error Resume Next
Application.OnTime uneheure, Procedure:="Actualiser", Schedule:=False
End Sub
Mais maintenant, je dois lancer la macro manuellement, elle ne s'ouvre pas automatiquement à l'ouverture du fichier ...
Merci