Application.Wait. ou Timer ?

[YANN-56]

Bonsoir, ou Bonjour suivant l'heure,

Je visualise successivement dans un WebBrowser, plusieurs Classeurs.

Par un Bouton, je demande à que soit vidé ceux-ci de sa mémoire.
(Sinon; soucis pour la suite)
Puis avec un autre, je ferme l'USF.

Quand je cherche à regrouper ces deux actions sur un même Bouton,
cela ne marche pas.

Il me semble que l'ordre de fermeture est trop immédiat,
et ne laisse pas le temps à la macro "Vider" de terminer son boulot.

J'aimerai tenter de temporiser, mais je ne parviens pas à le faire.

D'où la raison de ma question.

Merci d'avance, si quelqu'un a une idée.

Amicalement

Yann

 

[fhoest]

Re : Application.Wait. ou Timer ?

Bonjour Yann-56
Heureux de pouvoir t'apporter de l'aide a mon tour,

Sub test()
Application.OnTime Now + TimeValue("0:00:05"), "test1"
End Sub
Sub test1()
MsgBox ("coucou")
End Sub

Pour test
A+ ps as tu recu ton fichier en retour?

 

[YANN-56]

Re : Application.Wait. ou Timer ?

Bonsoir fhoest,

Merci de m'avoir répondu.

D'autant que j'y entrevois la bonne solution.
Bien que n'ayant pas testé en cet instant.... L'apéro urge! T'as vu l'heure?

Re P.S.
Crotte de bique, il me semble que ma réponse au sujet
du fichier dont tu parles est restée coincée dans l'tuyau!!!

J'y retourne.

A plus tard............... Oui! J'arrive! Pff!!!

Yann-56

 

[fhoest]

Re : Application.Wait. ou Timer ?

Re,
on a le temps, on est pas aux pièces,
Allez santé!!!
A bientôt.😉

 

[YANN-56]

Re : Application.Wait. ou Timer ?

Bonjour fhoest, et à ceux qui passeront par ici,

Ton code ne fonctionne pas dans mon appli?
Mais sans doute n'ai-je pas su l'adapter correctement.

Qu'importe, je reviens pour partager la solution trouvée dans ce Post.

https://www.excel-downloads.com/threads/temporisation-de-macro-pour-les-aguerris.147970/

La compétence de Pierrot93 est impressionnante.
(Mon manque de jugeote quant au choix des Mots-Clés dans mes recherches l'est tout autant)

Voici le code qui fonctionne bien:

Private Sub Image100_Click() ' IMAGE DE FERMETURE
WebBrowser1.Navigate2 "about:blank" ' Je vide le WebBrowser

Do ' On attend qu'il finisse:
DoEvents
Loop While WebBrowser1.Busy
 
  For Each Workbook In Workbooks ' On ferme les Autres Classeurs Ouverts
  If Workbook.Name <> ThisWorkbook.Name Then Workbook.Close
  Next

Unload Me

End Sub

Voila! Au cas où cela puisse servir à quelqu'un.

Amicalement.

Yann