De: Didier Lefebvre Objet: Re: Conserver le focus sur excel pendant l'exécution d'une macro. Date : vendredi 21 janvier 2000 22:16 Stephane, > J'utilise le contrôle WebBrowser pour aller chercher des donnés sur un > intranet et les coller dans Xl. J'utilise l'évènement DocumentComplete > pour fermer le UserForm qui contient le contrôle, rechercher la valeur > demandé et la coller dans excel. > Le programme fonctionne correctement tant que Xl conserve le focus (en > fait tant que l'on ne fait rien sur le poste pendant que le prog. > tourne). Mais lorsque je fais autre chose (poster dans ce forum par > exemple), le UserForm reste à l'écran, et la requête sur l'intranet > semble terminé. J'ai l'impression que l'évènement DocumentComplete > n'est pas exécuté. Je voudrais donc empêcher l'utilisation d'autres > soft pendant que mon prog. tourne. bon, j'connais très très très mal cet OCX (bien trop lourd pour ma faible config...) mais j'ai essayé le code ci-dessous (qu'il doit être largement possible d'améliorer) et ça marche. Un form, un WebBrowser et lecture puis copie d'un fichier hmtl dans une page Excel, le tout en te répondant. Je n'ai pas activé Excel à la fin, mais ça tu dois savoir le faire si ça te chantes. Ps: le fichier - très gros - est sur mon disque mais je ne pense pas que ça change quoi que ce soit. Si ça ne va pas pour toi, envoi moi juste ton form, j'essaierai plus sérieusement sur un vrai intranet. -- a+ --- Dier Private Sub UserForm_Click() WebBrowser1.Navigate2 "C:\Mes documents\Xbasic xbkeywords.htm" Do While WebBrowser1.Busy Loop WebBrowser1.setFocus End Sub Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant) WebBrowser1.ExecWB OLECMDID_SELECTALL, OLECMDEXECOPT_DODEFAULT WebBrowser1.ExecWB OLECMDID_COPY, OLECMDEXECOPT_DODEFAULT Sheets(1).Select ActiveSheet.Paste Unload Me End Sub