AffImage Image1, "J:\Acteur\", Me.Label426.Caption
AffImage Image2, "J:\Acteur\", Me.Label427.Caption
AffImage Image3, "J:\Acteur\", Me.Label428.Caption
AffImage Image4, "J:\Réalisateur\", Me.TextBox12.Text
' …
End Sub
Sub AffImage(ByVal Img As MSForms.Image, ByVal Rép As String, ByVal NomFic As String)
Img.Visible = True
If Dir(Rép & NomFic & ".jpg") <> "" Then
Img.Picture = LoadPicture(Rép & NomFic & ".jpg")
Else
Img.Picture = LoadPicture: End If
End Sub