Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

timer pour lancer une macro ave progress bar

1 réponse
Avatar
sleg
Bonjour,

j'utilise ces macros pour envoyer un mail apres l'ouverture de mon
fichier excel et j'aimerais une progresse bar sur les 8 minutes
d'attente est ce possible et si oui comment ?

merci de votre aide & bonne soir=E9e.

______________________
MES MACRO :

Sub OnTimeMacro()
On Error Resume Next
' Run the RunEvery5seconds macro in 5 seconds.
Application.OnTime Now + TimeValue("00:08:00"), "RunEvery5seconds"


End Sub

Sub RunEvery5seconds()
'With Worksheets("Sms_sender").Range("e7")
'.NumberFormat =3D "hh:mm:ss"
'.Value =3D Format(Now(), "hh:mm:ss")
'End With
'Runs the OnTimeMacro again.
Call SendNotesSMStotal
End Sub

1 réponse

Avatar
JB
Bonsoir,

Public ProchainChrono, Départ, temps
Sub afficheForm()
UserForm1.Show
majChrono
End Sub

Sub majChrono()
If temps < 60 Then
temps = temps + 1
p = temps / 60
UserForm1.Label1.Width = p * 100
UserForm1.Caption = Format(p, "0%")
ProchainChrono = Now + TimeValue("00:00:1")
Application.OnTime ProchainChrono, "majChrono"
Else
Unload UserForm1
End If
End Sub

Sub auto_close()
On Error Resume Next
Application.OnTime ProchainChrono, Procedure:="majChrono",
Schedule:lse
End Sub

http://cjoint.com/?gtsZLFhp24

JB
http://boisgontierjacques.free.fr/


On 19 juin, 17:56, sleg wrote:
Bonjour,

j'utilise ces macros pour envoyer un mail apres l'ouverture de mon
fichier excel et j'aimerais une progresse bar sur les 8 minutes
d'attente est ce possible et si oui comment ?

merci de votre aide & bonne soirée.

______________________
MES MACRO :

Sub OnTimeMacro()
On Error Resume Next
' Run the RunEvery5seconds macro in 5 seconds.
Application.OnTime Now + TimeValue("00:08:00"), "RunEvery5seconds"

End Sub

Sub RunEvery5seconds()
'With Worksheets("Sms_sender").Range("e7")
'.NumberFormat = "hh:mm:ss"
'.Value = Format(Now(), "hh:mm:ss")
'End With
'Runs the OnTimeMacro again.
Call SendNotesSMStotal
End Sub