compte à rebours sur formulaire en VBA Résolu

Question

Bonjour à tous,
Je suis un peu débutant en VBA.
J'ai une application excel qui récupère des fichiers par FTP, lit les fichiers pour récupérer des valeurs servant à incrémenter des compteurs statistiques et faire les graphiques jpournaliers pour ces compteurs.
Cette application est exécutée tous les jours autmatiquement dans la planificateur de tâches de Windows.
J'aimerais qu'il soit possible de ne pas lancer la récupération par FTP dans le cas où l'utilisateur ouvre le classeur manuellement car les fichiers sont gros et le temps de réupération assez long.
Pour cela, je voudrais faire un formulaire avec une zone de texte et deux boutons.
ce formulaire ce lancerait au début de la macro
Dans la zone de texte un compte à rebours de 60 secondes par exemple.
A la fin des 30 secondes, sans action de l'utilisateur, la connexion FTP s'effectue
Un bouton "immédiat" pour annuler le compte à rebours et lancer la connexion immédiatement
Un bouton "annuler" pour annuler la connexion FTP
Je parviens à faire le formulaire avec le compte à rebours, mais durant ce compte à rebours, un clic sur n'impote lequel des deux boutons est totalement inopérant. Je n'ai la main qu'à la fin du compte à rebours.
Comment puis-je régler ce problème ?
Merci d'avance pour votre aide.

tech_57 · Answer

Bonjour,

Dans la boucle qui affiche le compte à rebours, il faut placer l'instruction DoEvents.
Cette instruction permet de traiter des évènements comme des clics sur les boutons...

Voir l'aide pour plus de détails.

A+.

blux · Answer

Salut,

tu peux regarder ici :

https://www.commentcamarche.net/faq/10315-vba-un-timer-une-seconde-tout-simple

tech_57 · Answer

Re,

je crois que ton erreur vient de là

Application.Wait (Now + TimeValue("0:00:01")) 

la methode Wait suspend l'execution de la macro jusqu'à une heure donnée. c'est pas ce que tu veux.

utilise plutot une boucle avec un timer.

Voici comment ça marche:
1) ouvre un module et ecris ces ligne tout en haut pour déclarer des variables publiques

Option Explicit
Public Ftp, Rebours

2)Dans ce meme module tu ecris cette procedure

Sub affiche_recup_fichiers()
Dim PauseTime, Start, Temps

Ftp = True
Rebours = 60
Start = Timer
PauseTime = Rebours
temps = Timer + 1

recup_fichiers.Show 0

recup_fichiers.duree.Value = Rebours
    Do While Timer < Start + PauseTime
        If Timer > temps Then
          temps = temps + 1
          Rebours = Rebours - 1
          recup_fichiers.duree.Value = Rebours
        End If
        DoEvents    ' Donne le contrôle à d'autres processus.
        If Rebours = -1 Then Exit Do
        If Ftp = False Then Exit Do
    Loop

recup_fichiers.Hide

If Ftp = False Then 
   MsgBox "Opération annulée"
Else
   MsgBox "La récuration va démarrer"
   Call RecupFtp() 
End If

End Sub

3)dans le code du button Immediat tu ecris

Sub Immediat_Click()
   Rebours = -1
End Sub


et enfin la procedure WorkBook_open devient

Sub Workbook_open() 

   Call affiche_recup_fichiers

End Sub

Si je ne me suis pas trompé, tu auras le résultat escompté. A+.

Compte à rebours sur formulaire en VBA

3 réponses

Discussions similaires

Newsletters