Actualisation gadgethtml vba

boulou14 · 3 Octobre 2014

Bonjour,
j'ai une application dans laquelle j'ai créé un écran MENU, sur ce userform, j'ai placé un webbrowser pour faire défiler un message contenant la date et l'heure. Tout fonctionne bien 😉 sauf que l'heure ne s'actualise pas 😡 !!! Avez-vous une idée ???

ci-dessous la partie de code qui me commande mon gadget:

Private Sub UserForm_Initialize()

GadgetHtml "Bonjour et bienvenue dans S.A.P.I.N, " & "nous sommes le " & Day(Now) & "/" & Month(Now) & "/" & Year(Now) & ", il est " & Hour(Now) & ":" & Minute(Now), "#000069"

End Sub

Private Sub GadgetHtml(Texto As String, Couleur As String)
Me.WebBrowser1.Navigate _
"about:<html><body BGCOLOR ='#CCCCCC' scroll='no'><font color= " _
& Couleur & " size='5' face='comic sans ms'>" & _
"<marquee scrollAmount=8>" & Texto & "</marquee></font></body></html>"

End Sub

Merci d'avance.

fhoest · 4 Octobre 2014

Re : Actualisation gadgethtml vba

Bonjour,
je te propose d'utiliser cette méthode à défaut de corriger ton problème avec le webbrowser.
pour ton souci je pense que tu doit insérer un script javascript dans ton code html,puis mettre à jour tes variables à lintérieure de ce dernier.
Voici une solution avec VBA. + petite triche visuelle pour l'effet que tu souhaites avoir.
A bientôt.

JCGL · 5 Octobre 2014

Re : Actualisation gadgethtml vba

Bonjour à tous,
Salut Fred,

Dans le module de l'USF :

VB:

Dim Txt As String
Dim i As Integer, Ln As Integer
Dim Fin As Boolean
Dim Pos As Integer


Private Sub CommandButton1_Click()
    Pos = TextBox1.Left: Ln = 1
    While Fin = False
        TextBox1.Left = Pos
        For i = 1 To Ln
            Txt = "Bonjour et bienvenue dans S.A.P.I.N, " & _
            "nous sommes le " & Format(Date, "dddd dd mmmm yyyy") & _
            ", il est " & Format(Now, "hh:mm:ss") & Space(20)
            Ln = Len(Txt)
            TextBox1.Text = Left(Txt, i): TextBox1.Left = TextBox1.Left - 4
            Me.Repaint
            TimerMS
        Next
    Wend
End Sub


Private Sub CommandButton2_Click()
    Fin = True
    Unload UserForm1
End Sub

Dans un module standard :

VB:

' d'après [url=http://www.developpez.net/forums/d854973/logiciels/microsoft-office/excel/macros-vba-excel/application-wait-vba/][XL-2003] Application WAIT en VBA [Résolu][/url]
Declare Function GetTickCount Lib "kernel32" () As Long


Sub TimerMS()
    Dim TP As Long
    TP = GetTickCount
    Do While TP + 205 > GetTickCount
        DoEvents
    Loop
End Sub


Sub Voir()
    UserForm1.Show
End Sub

A+ à tous

boulou14 · 6 Octobre 2014

Re : Actualisation gadgethtml vba

Bonjour et merci pour votre aide,
les codes fonctionnent mais le userform scintille, c'est pas très joli visuellement. Y a t'il un moyen pour empêcher/masquer ça??
Merci d'avance.

Michaël.

fhoest · 6 Octobre 2014

Re : Actualisation gadgethtml vba

bonjour
Oui,il faut augmenter la propriété du USF - Drawbuffer à 1048576 = maxi
A bientôt.

boulou14 · 8 Octobre 2014

Re : Actualisation gadgethtml vba

Bonjour à tous,
ok super ! merci : 😉

Effectuez une recherche sur Excel Downloads...

Actualisation gadgethtml vba

boulou14

XLDnaute Nouveau

fhoest

XLDnaute Accro

Pièces jointes

JCGL

XLDnaute Barbatruc

Pièces jointes

boulou14

XLDnaute Nouveau

fhoest

XLDnaute Accro

boulou14

XLDnaute Nouveau

Discussions similaires

Nous accordons de l'importance à votre vie privée