Private Sub UserForm_Initialize()
Dim LeTexte As String, LaCouleur As String, S As String
Dim Fs As Object
Dim i As Long, F As Long, Hauteur As Long, Largeur As Long
Dim j As Byte, b As Byte
'----------- message pendant le transfert ----
'Permet de créer un message d'attente défilant dans le WebBrowser pendant le transfert
'des données (au format binaire) dans les cellules de la nouvelle feuille.
'WebBrowser1
i = 1
S = "C:\imageTemp.gif"
F = FreeFile
Open S For Binary Access Write As F
Do
j = j + 1
If j = 21 Then
j = 1
i = i + 1
End If
b = ThisWorkbook.Sheets("IMAGE").Cells(i, j).Value
Put #F, , b
DoEvents
Loop While ThisWorkbook.Sheets("IMAGE").Cells(i, j).Value <> ""
Close F
WebBrowser1.Navigate _
"ABOUT:<HTML><CENTER><HEAD><body scroll='no' LEFTMARGIN=0 TOPMARGIN=0><IMG " & _
" SRC='" & S & "'</IMG></BODY></CENTER></HTML>"
'=========================================================================================
'WebBrowser2
Set Fs = CreateObject("Scripting.FileSystemObject")
LeTexte = "Veuillez patienter... traitement en cours ..."
LaCouleur = "#CC0000"
WebBrowser2.Navigate _
"about:<html><body BGCOLOR ='#CCCCCC' scroll='no'><font color= " & LaCouleur & _
" size='5' face='Arial'>" & _
"<marquee>" & LeTexte & "</marquee></font></body></html>"
End Sub