Private Sub UserForm_Initialize()
Dim Fichier As String
Dim S As String, X As String, ProprietesImages As String
'necessite d'activer la reference Microsoft Scripting RunTime
Dim Fso As Scripting.FileSystemObject
Dim FileItem As Scripting.File
Chemin = ThisWorkbook.Path 'repertoire dans le quel est placé ce classeur
Fichier = Dir(Chemin & '\\*.gif') 'ciblage des images gif dans ce repertoire
FormatFich = '.gif'
'creation page html qui s'affichera dans le WebBrowser
Open ThisWorkbook.Path & '\\browserImage.html' For Output As #1
Print #1, '<HTML>'
Print #1, '<HEAD>'
Print #1, '<TITLE>' & Chemin & '</TITLE>'
Do
S = Chemin & '\\' & Fichier
Set Fso = CreateObject('Scripting.FileSystemObject')
Set FileItem = Fso.GetFile(S)
ProprietesImages = FileItem.Name & vbLf & FileItem.DateCreated _
& vbLf & Format(FileItem.Size, '#,##0') & ' octets'
S = Application.WorksheetFunction.Substitute(S, ''', ''')
'creation vignette et lien hypertexte pour chaque image
X = '<A href='' & S & ''><IMG WIDTH=70 HEIGHT=70 SRC='' & S & _
''ALT='' & ProprietesImages & ''></IMG></A>'
Print #1, X
ListBox1.AddItem Left(Fichier, Len(Fichier) - 4)
Fichier = Dir
Loop Until Fichier = ''
Close #1
WebBrowser1.Navigate ThisWorkbook.Path & '\\browserImage.html'
End Sub