Private Sub UserForm_Initialize()
Dim X As String, ProprietesImages As String
'necessite d'activer la reference Microsoft Scripting RunTime
Chemin = ThisWorkbook.Path & "\" 'repertoire dans le quel est placé ce classeur
'Client = ThisWorkbook.Worksheets("Id").Range("B1").Value & "\"
RepPhotos = "Photos" & "\"
RepRef = ThisWorkbook.Worksheets("Id").Range("B2").Value & "\"
CheminComplet = Chemin & RepPhotos & RepRef
Fichier = Dir(CheminComplet & "*.jpg") 'ciblage des images jpeg dans ce repertoire
FormatFich = ".jpg"
If Fichier = "" Then
Me.WebBrowser2.Visible = False
Exit Sub
End If
'creation page html qui s'affichera dans le WebBrowser
Open CheminComplet & "browserImage.html" For Output As #1
Print #1, "<HTML>"
Print #1, "<HEAD>"
Print #1, "<TITLE>" & CheminComplet & "</TITLE>"
Do
S = CheminComplet & Fichier
Set Fso = CreateObject("Scripting.FileSystemObject")
Set FileItem = Fso.GetFile(S)
ProprietesImages = FileItem.Name & vbLf & FileItem.DateCreated _
& vbLf & Format(FileItem.Size, "#,##0") & " octets"
'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 CheminComplet & "browserImage.html"
End Sub