tu me connais
en fait il faut extérioriser dans une fenetre IE arrangée pour libérer vbaSalut
Non MAIS .... insulte ??
Bon quand je disais que Jacques avait donné la soluce ..... faut juste adapter !!!
ce que j'ai fais . sauf que IMPOSSIBLE de l'avoir en temps réel car il faudrait que la sub tourne TOUT le temps et donc ton appli ne ferait plus rien d'autre . Là j'ai mis avec feuille1 Activate
Salut Hervé,Salut
Non MAIS .... insulte ??
Bon quand je disais que Jacques avait donné la soluce ..... faut juste adapter !!!
ce que j'ai fais . sauf que IMPOSSIBLE de l'avoir en temps réel car il faudrait que la sub tourne TOUT le temps et donc ton appli ne ferait plus rien d'autre . Là j'ai mis avec feuille1 Activate
Explique un peu .. pour notre ami TOUBABOU , moi je sais pas aller + loin
Dim OBJRETURN
Sub testavecIE()
'on lance le message
msgboxhtml "il est pas dans excel mon message ", "MESSAGE HORS EXCEL BY patricktoulon", Gif, OBJRETURN
' on ferme le message quand on veut avec
'OBJRETURN.Quit
End Sub
Function msgboxhtml(Message, titre, Gif, obj As Object) As Object
Dim objie As Object
Set objie = CreateObject("InternetExplorer.Application")
With objie
.Top = 100: .Left = 100: .Width = 300: .Height = 150
.AddressBar = False: .MenuBar = False: .StatusBar = False: .Toolbar = False: .Visible = True
.navigate2 "about:blank"
Do While .readyState <> 4: DoEvents: Loop 'attend la fin du chargement
code = "<html>|<head>| <title>|" & titre & "|</title>| </head>|<body >|<marquee><font color=red face=""algerian""> " & Message & _
"</font></marquee>|</body>|</html>"
code = Replace(code, "|", vbCrLf)
.document.write code
End With
Set obj = objie
Set objie = Nothing
End Function
D'autant plus que l'auteur du Post est devenu ..... fantôme ???
? bin non !!
C'est "confusant"
non ?
