Titre d'une progressBar avec InternetExplorer.Application
Bonjour à tous,
Je suis en train de dévelloper un script qui met un certain temps à s'executer. Pour visualiser l'avancement, j'ai voulu y intégrer une barre d'avancement. J'ai trouvé des scripts sur internet et notamment un qui permet d'ouvrir une barre d'avancement avec une instance internet Explorer.
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
|
Sub ProgressBar(intPercent)
'Génère la barre de status
If gdocProgressBar Is Nothing Then
If ((Cint(intPercent) >= 0) And (Cint(intPercent) <= 100)) Then
Set goieProgressBar = CreateObject("InternetExplorer.Application")
goieProgressBar.Offline = True
goieProgressBar.AddressBar = False
goieProgressBar.Height = 50
goieProgressBar.Width = 500
goieProgressBar.MenuBar = False
goieProgressBar.StatusBar = False
goieProgressBar.Silent = True
goieProgressBar.ToolBar = False
goieProgressBar.Navigate "about:blank"
Do While goieProgressBar.Busy
Loop
Set gdocProgressBar = Nothing
Do Until Not gdocProgressBar Is Nothing
Set gdocProgressBar = goieProgressBar.Document
Loop
gdocProgressBar.Open
gdocProgressBar.Write "<html><head><title>Veuillez patienter durant l'import du fichier</title></head>"
gdocProgressBar.Write "<body><center><TABLE style=""margin-top:0px;"" width=450 border=3 frame=void>"
gdocProgressBar.Write "<tr><td><TABLE id=status width=0 border=0 cellpadding=0 cellspacing=0 bgcolor=#FFFFFF><tr><td> </td></tr></table></center></body></html>"
gdocProgressBar.Close
goieProgressBar.Visible = True
Else
Exit Sub
End If
End If
'Met à jour la barre de status
If Cint(intPercent) = 0 Then
gdocProgressBar.all.status.width = "1%"
gdocProgressBar.all.status.bgcolor = "#FFFFFF"
Else
gdocProgressBar.all.status.width = Cstr(Cint(intPercent)) & "%"
gdocProgressBar.all.status.bgcolor = "#0000FF"
End If
End Sub |
Cependant, j'aimerais savoir si cela est possible de faire disparaître la mention Internet Explorer et/ou le logo dans la fenêtre.
J'ai vu des codes rajoutant une ligne pour changer le titre :
Code:
goieProgressBar.Title = ""
mais cette commande fait buger ma barre qui n’apparaît même plus et génère de très nombreux processus internet explorer (dans le gestionnaire de tache) qui font buger mon ordinateur (gros ralentissement et bug visuel). J'obtient le même résultat si je met quelque chose comme titre à la place des "".
Je vous remercie d'avance pour l'aide que vous pourrez m'apporter.
Cordialement,
