Requete web et UserForm d'attente

Bonjour Seb,

Dans ton formulaire, utilise l'événement "Activate" de celui-ci pour appeler le rafraîchissement des données.

'------------------------
Private Sub UserForm_Activate()

DoEvents
Worksheets("Feuil1").QueryTables("NomDuQuery").Refresh False
Me.Hide

End Sub
'------------------------


Et dans un module standard, la procédure suivante qui te permet d'appeler le rafraîchissement de tes données.

'__________________
Sub RafraichirDonnées()
UserFormWait.Show
End Sub
'__________________


Salutations!




"Seb..." <lk@klk.com> a écrit dans le message de news:6f89e183e479a0b2f15a44d9fd9ea6d4@news.teranews.com...
Bonjour,

Je souhaite faire afficher un formulaire
avant le lancement d'une requete web,
et le cacher à la fin de la requete web.

Je sais qu il existe des fonction evenements,
Sub QueryTable_BeforeRefresh(Boolean)
de meme avec after, mais je ne parviens pas
à m en servir.

Dans l'aide il parle de module de classe, mais
je pige pas bien.

Est ce qu il existe une methode toute faite
que je n aurais qu a modifier ?

Actuellement j ai essaié

...
MaQuerytable.refresh
...
End Sub

Sub MaQuerytable_beforeRefresh()
UserFormWait.Show
End Sub

Sub MaQuerytable_afterRefresh()
UserFormWait.hide
End Sub


Ma ca marche po : pas d erreur,
rafraishissement ok, mais pas d user form


merci pour tout aide,,

seb