Compte à rebours, puis lancer une macro, puis userform

[PatLac]

Bonjour à tous !
J´ai besoin de vos lumières, car les différents post lus sur le forum ne répondent pas à mes attentes.

Donc voila :
Je voudrais qu´a l´ouverture d´un classeur, un décompte se mette à tourner (hh:mn:sec) en A1 par exemple, une fois qu´il arrive à zéro une macro se lance (macro1, par exemple) et que dans la foulée un userform apparaisse avec un gif animé ...

Vous avez une idée?

D´avance merci.

Bonne soirée à tous.

 

[xhudi69]

Re : Compte à rebours, puis lancer une macro, puis userform

Bonsoir PatLac, le Forum,

Pourquoi pas ceci:

Private Sub Workbook_Open()
Application.WindowState = xlMinimized
UserForm1.Show
End Sub

Puis:

Private Sub UserForm_Activate()
Application.Wait (Now + TimeValue("00:00:05"))
 'Ici tu lance ta macro.....
End Sub

Puisque tu es déjà sur l'UserForm, c'est plus facile..........

@+

 

[xhudi69]

Re : Compte à rebours, puis lancer une macro, puis userform

Bonsoir Patlac, le Forum,

Pour le Gif animé, voir ce FIL, charge le fichier et regarde la macro du WebBrowser et le code binaire dans les feuilles.

@+

 

[PatLac]

Re : Compte à rebours, puis lancer une macro, puis userform

Bonjour et merci !
Ca fonctionne, mais il faudrait vraiment que la chronologie soit comme décrite ... c'est possible ?
Sinon c'est pas bien grave ....
Merci.

 

[laetitia90]

Re : Compte à rebours, puis lancer une macro, puis userform

bonjour PatLac,xhudi69
un exemple a adapter

 

[PatLac]

Re : Compte à rebours, puis lancer une macro, puis userform

Mais c´est parfait tout cela !
Comme quoi la femme est bien l´avenir de l´homme ...
Merci également aux autres contributeurs et bonne continuation à tous !
PatLac