Proc qui plante avec Exel 97

bonsoir Florian,
c'est sans doute déjà essayé mais au cas où
Si pause ou Esc ne fonctionnent pas
ctrl+pause peut parfois le faire surtout si il y a une boucle infernale.

Pour ton pb c'est complexe avec cela
mais essaie avec un do while .....loop
et mets plutôt ton doevents dans la boucle.

Par ailleurs, si tu lances ta macro avec un bouton dans la feuille
oblige la macro à sélectionner une cellule de la feuille
en début d'execution cela peut éventuellement écarter un pb de focus
rencontré avec V97 et pas ultérieures .

LeSteph

"Florian" <florian@toto.fr> a écrit dans le message de
news:%23R1rNwDaEHA.3476@tk2msftngp13.phx.gbl...

Bonsoir à tous
Cette proc pour un userform de fin fonctionne très bien avec Excel 2000
etc.

Mais plante dès qu'elle fonctionne sur Excel 97.
En fait elle ne s'arrête plus, même avec ctrl+Alt+Suppr.
Il faut que je fasse un arrêt sauvage.
Une idée ?
Merci à tous
Flo riant

Dans l'activate

' Récupération de l'heure d'affichage de la BdD
TimeDebut = Timer
' Donne la main à excel pour facilité l'affichage de la BdD
DoEvents
' Boucle tant que les secondes ne se sont pas écoulé
While Timer < TimeDebut + 8
Wend
' Fermeture de la BdD
frm_aurevoir.Hide
End Sub

Testé avec XL97 (SR-2) :

Sub zzz()
UserForm1.Show
End Sub

Private Sub UserForm_Activate()
'ton blabla
UserForm1.Hide
End Sub

---> Aucun souci particulier !

AV