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 : Sélectionner tout - Visualiser dans une fenêtre à part
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>&nbsp</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 : Sélectionner tout - Visualiser dans une fenêtre à part
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,