Explication sur WebBrowser

[Minick]

Bonjour,

Le code test qui pose probleme:
Private Sub UserForm_Initialize()
Me.WebBrowser1.Navigate2 "www.excel-downloads.com"

Do While Me.WebBrowser1.Busy
Loop

MsgBox Me.WebBrowser1.Document.nameprop
End Sub

Je cherche simplement à afficher une page mais surtout à savoir
quand elle est chargé.

Je n'arrive pas a comprendre pourquoi quand je lance le code en pas a pas
il n'y a pas de probleme alors qu'en automatique le Busy ne se met pas
a jour donc je ne sors jamais de ma boucle.
Par contre des que je debogue ([Ctrl]+[Pause] pour aller en debogage)
plus de probleme il se met a jour et j'ai bien mon message.

Si quelqu'un à une idée ou une autre solution je suis preneur.

Merci

@+ Minick

 

[Jon]

with webbrowser1
if .readystate=readystate_complete then msgbox "chargé"
end with

 

[Minick]

Salut Jon,

Merci de ton aide mais ca ne regle pas mon probleme

ReadyState ne se met pas a jour sauf en pas a pas

@+ Minick

 

[Minick]

re,

petite precision.

Les 2 methode fonctionnent (la mienne et celle de Jon)

Mon probleme est de lire la valeur de .Busy ou .ReadyState via ma boucle
ce qui me permettrai de savoir des que ma page est chargé completement.

Si j'attend que la page soit chargé, la pas de probleme je recupere ce que je veux mais je ne veux pas mettre de tempo pour limiter le temps d'execution.

voila j'espere avoir été un peu plus clair

@+ Minick

 

[michel]

bonsoir Minick , bonsoir Jon

tu peux essayer

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
MsgBox "chargé"
End Sub

testé avec WinXP et Excel2002


bonne soiree
MichelXld

 

[Minick]

Bonsoir michel,

Effectivement comme cela pas de probleme non plus.

J'ai du nouveau, en fait le probleme vien du fait que j'ouvre mon Userform en non modal.

En modal pas de probleme.

Je vais donc faire avec

Merci pour votre aide

@+ Minick

 

[michel]

bonsoir Minick

chez moi cela fonctionne que l'USF soit modal ou non modal : le message s'affiche quand le WebBrowser est chargé

peux tu tester le fichier joint ?


bonne soiree
MichelXld

 

[Minick]

salut,

Bon ben en faite c'est une erreur de conception de ma part.

J'avais mi une boucle while apres l'ouverture du userform en non modal
et c'est elle qui pose probleme.

Avec DocumentComplete je peux faire ce que je veux donc
je vais continuer comme cela.

Merci michel de t'etre penché sur mon probleme qui n'en était pas un en fait

@+ Minick