Private Sub BoutCharge_Click()
Dim F, ImageP As StdPicture
F = Application.GetOpenFilename("Images (*.gif; *.jpg; *.tif; *.png; *.pdf),*.gif;*.jpg;*.tif; *.png; *.pdf")
If F <> False Then
On Error Resume Next
If Dir(F) = "" Then Exit Sub
Set ImageP = LoadPicture(F)
On Error GoTo 0
If ImageP Is Nothing Then
MsgBox "Erreur à l'ouverture de l'image", vbCritical
Else
Set ImgAffichee.Picture = ImageP
AjoutImageDansListe F
End If
End If
End Sub