Compte a rebours

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Compte a rebours

daniel-12

Bonjour

j'ai un fichier excel que je lance par tache planifié, avec un lancement automatique d'une macro

Private Sub Workbook_Open()
Call Extract
End Sub

je voudrais mettre un compte a rebours (avant le lancement automatique) pour que je puisse éditer certains paramètres

au final :

la nuit, la tache planifiée ouvrirait le fichier Excel, la macro se lancerait, le compte a rebours tournerait 10s, puis sans réponse lancerait l'extract
le jour, j'ouvre le fichier Excel, le compte a rebours se lance, je le stoppe avant les 10s, et j'édite

j'ai trouvé ce code, mais je ne sais pas trop comment le stopper
il y aurait moyen de mettre un msgbox quelque part pour rendre possible l'arrêt ?

Code :

Dim ok As Boolean
Sub Demarrechrono()
ok = True
Range("A1" ) = TimeSerial(0, 0, 10)
Call decompte
End Sub
Sub decompte()
If ok Then
If Range("a1" ) = 0 Then
ok = False
Range("A1" ) = "Temps ecoulé"
MsgBox "lancement macro"
End
End If
Range("A1" ) = Range("A1" ) - TimeSerial(0, 0, 1)
Range("A1" ).NumberFormat = "mm:ss"
Application.OnTime Now + TimeValue("00:00:01" ), "deCompte"
End If
End Sub

Publicité

daniel-12

me revoila, avec du nouveau !
j'ai trouvé ce que je voulais sur cette page:
https://chandoo.org/forum/threads/v [...] mer.17506/

mais j'ai un petit soucis...

sur un PC cela fonctionne comme je le souhaite
sur un autre PC, la macro se lance, le msgbox apparait, mais il ne tourne pas
par contre sur ce même PC si je lance la macro Workbook_Open MANUELLEMENT, ca marche... :??:

dans thisworkbook, auto_open

Code :

Private Sub Workbook_Open()
Application.OnTime Now(), "OpenWkbkEvent"
End Sub

dans un module

Code :

Public Sub OpenWkbkEvent()
With ThisWorkbook
.RefreshAll
.Save
End With
Dim mysec As Integer, msg As String
mysec = 10 'Seconds
msg = "La macro principale se lancera dans " & mysec & _
" seconds." & vbLf & "Appuyez OK pour empecher son lancement automatique"
With CreateObject("WScript.Shell" )
Select Case .Popup(msg, mysec, "Info", 0)
Case 1
Exit Sub
End Select
End With
MsgBox "lancement de la macro principale"
End Sub

quelqu'un peut tester ?

Message édité par daniel-12 le 25-05-2018 à 22:46:22

kiki29

Salut, il y aurait ceci : https://excel.developpez.com/telech [...] ronometres mais il faudrait l'adapter à ton contexte.

Message édité par kiki29 le 27-05-2018 à 10:05:14

---------------
Myanmar 90/91 : http://gadaud.gerard.free.fr/publi [...] index.html

daniel-12

Merci :jap:
j'ai utilisé le compte a rebours et réduit au strict minimum
ça marche,
le décompte se fait sur 10s et l'utilisateur (moi) peut l'interrompre pour modifier des choses si besoin

en cas d'absence (lancement par tache planifiée), le décompte se fait, puis a la fin la macro que je veux se lance

l'idéal pour moi aurait été d'avoir le tout sur quelques lignes a placer sur Workbook_Open, et rien que là

si quelqu'un a ça ..

Message édité par daniel-12 le 27-05-2018 à 22:50:28

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Compte a rebours

Sujets relatifs
Problème de script de compte à rebours + affichage lien	[RESOLU]page de login avec compte à rebours
Stoper un compte à rebours	voir 4 eme reponse probleme chonometre
[Résolu] FERMER CE TOPIC VITE !!!	Compte à rebours multiple
affichage d'un compte à rebours avec Qt	Compte à rebours EN php
souci avec un script "compte à rebours"	Compte à rebours affiché en texte et redirection
Plus de sujets relatifs à : Compte a rebours

Page générée en 0.056 secondes