Macro F5 ne fonctionne pas - F8 fonctionne [résolu]

jmh1 · 12 Juin 2014

Bonjour à tous,

Je suis en train de réaliser un USF avec un WebBrowser à l'intérieur.

J'ai voulu rajouté des lignes de codes pour que le WebBrowser n'ai plus de bordures et un fond de couleur identique à celui de mon USF.

Depuis, quand je lance la macro en automatique, j'ai un code erreur 91 alors que quand je lance la macro en mode pas à pas, tout fonctionne ????

Je joins mon fichier pour démonstration.

Merci pour votre aide.

camarchepas · 12 Juin 2014

Re : Macro F5 ne fonctionne pas - F8 fonctionne

Bonjour JMH,

Ton code n'étant pas placé dans le bon événementiel , il plantait

cordialement,

jmh1 · 12 Juin 2014

Re : Macro F5 ne fonctionne pas - F8 fonctionne

Bonjour camarchepas,

Merci de t'intéresser à mon problème.

J'ai essayé comme tu as modifié mon fichier et j'ai exactement le même code erreur en auto et cela fonctionne en pas à pas.

As-tu fait l'essai sur ton poste ou alors suis-je maudit par les dieux d'Excel ?

cordialement

david84 · 12 Juin 2014

Re : Macro F5 ne fonctionne pas - F8 fonctionne

Bonjour,
teste en plaçant

Code:

DoEvents

ou

Code:

Do
DoEvents
Loop Until WebBrowser1.ReadyState = 4

entre

Code:

WebBrowser1.Navigate _
"about:<html><body scroll='no'>" & _
"<img src='http://www.gifsmaniac.com/gifs-animes/objets-bureau/graphiques/objets-bureau-graphiques-2.gif'></img></body></html>"

et

Code:

WebBrowser1.Document.body.Style.backgroundColor = xlTransparent
WebBrowser1.Document.body.Style.Border = "none"
WebBrowser1.Document.body.Style.backgroundColor = RGB(241, 241, 241)

A+

jmh1 · 12 Juin 2014

Re : Macro F5 ne fonctionne pas - F8 fonctionne [résolu]

J'ai résolu le problème en mettant :

Private Sub UserForm_Activate()

WebBrowser1.Document.body.Style.backgroundColor = xlTransparent
WebBrowser1.Document.body.Style.Border = "none"
WebBrowser1.Document.body.Style.backgroundColor = RGB(241, 241, 241)

End Sub

Private Sub UserForm_Initialize()

WebBrowser1.Navigate _
"about:<html><body scroll='no'>" & _
"<img src='http://www.gifsmaniac.com/gifs-animes/objets-bureau/graphiques/objets-bureau-graphiques-2.gif'></img></body></html>"

End Sub

Merci pour votre aide

Macro F5 ne fonctionne pas - F8 fonctionne [résolu]

jmh1

XLDnaute Occasionnel

Pièces jointes

camarchepas

XLDnaute Barbatruc

Pièces jointes

jmh1

XLDnaute Occasionnel

david84

XLDnaute Barbatruc

jmh1

XLDnaute Occasionnel

Discussions similaires

Macro F5 ne fonctionne pas - F8 fonctionne [résolu]

jmh1

XLDnaute Occasionnel

Pièces jointes

camarchepas

XLDnaute Barbatruc

Pièces jointes

jmh1

XLDnaute Occasionnel

david84

XLDnaute Barbatruc

jmh1

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency