Forum |  HardWare.fr | News | Articles | PC | Prix | S'identifier | S'inscrire | Aide | Shop Recherche
1495 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Compte a rebours

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Compte a rebours

n°2315172
daniel-12
Posté le 11-05-2018 à 12:03:25  profilanswer
 

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 :
  1. Dim ok As Boolean
  2. Sub Demarrechrono()
  3. ok = True
  4. Range("A1" ) = TimeSerial(0, 0, 10)
  5. Call decompte
  6. End Sub
  7. Sub decompte()
  8. If ok Then
  9.     If Range("a1" ) = 0 Then
  10.         ok = False
  11.         Range("A1" ) = "Temps ecoulé"
  12.         MsgBox "lancement macro"
  13.         End
  14.     End If
  15.    
  16.     Range("A1" ) = Range("A1" ) - TimeSerial(0, 0, 1)
  17.     Range("A1" ).NumberFormat = "mm:ss"
  18.     Application.OnTime Now + TimeValue("00:00:01" ), "deCompte"
  19. End If
  20. End Sub


 
 
 

mood
Publicité
Posté le 11-05-2018 à 12:03:25  profilanswer
 

n°2315886
daniel-12
Posté le 25-05-2018 à 22:44:57  profilanswer
 

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 :
  1. Private Sub Workbook_Open()
  2. Application.OnTime Now(), "OpenWkbkEvent"
  3. End Sub


 
dans un module

Code :
  1. Public Sub OpenWkbkEvent()
  2. With ThisWorkbook
  3.     .RefreshAll
  4.     .Save
  5. End With
  6.     Dim mysec As Integer, msg As String
  7.     mysec = 10 'Seconds
  8.     msg = "La macro principale se lancera dans " & mysec & _
  9.         " seconds." & vbLf & "Appuyez OK pour empecher son lancement automatique"
  10.     With CreateObject("WScript.Shell" )
  11.         Select Case .Popup(msg, mysec, "Info", 0)
  12.             Case 1
  13.                 Exit Sub
  14.         End Select
  15.     End With
  16. MsgBox "lancement de la macro principale"
  17. End Sub


 
 
quelqu'un peut tester ?


Message édité par daniel-12 le 25-05-2018 à 22:46:22
n°2315928
kiki29
Posté le 27-05-2018 à 10:04:53  profilanswer
 

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

---------------
Contributions : Excel/PDF avec Acrobat/PDFCreator/XPDF http://www.developpez.net/forums/d [...] ost8001071
n°2315955
daniel-12
Posté le 27-05-2018 à 22:50:08  profilanswer
 

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

Aller à :
Ajouter une réponse
  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 à reboursvoir 4 eme reponse probleme chonometre
[Résolu] FERMER CE TOPIC VITE !!!Compte à rebours multiple
affichage d'un compte à rebours avec QtCompte à rebours EN php
souci avec un script "compte à rebours"Compte à rebours affiché en texte et redirection
Plus de sujets relatifs à : Compte a rebours


Copyright © 1997-2018 Hardware.fr SARL (Signaler un contenu illicite) / Groupe LDLC / Shop HFR