je ne sais pas initialiser la variable répertoire,
voilà le message d'erreur que je reçois
Private Sub CommandButton2_Click() 'Les images se trouvent dans le répertoire D:\Photos_Test
If Dir(Répertoire & "\" & Me.TextBox2 & ".jpg") <> "" Then
Me.Image1.Picture = LoadPicture(Répertoire & "\" & Me.TextBox2 & ".jpg")
Else
[Surligner] [color=#BF8000]Me.Image1.Picture ='message d'erreur LoadPicture(Répertoire & "\" & "transparent.gif")[/color]
' Me.Image1.Picture = LoadPicture()[/Surligner]
End If
End Sub
ces lignes de code sont surlignées en jaune
Pierrot
Je te joins le fichier avec quelques photos
Répertoire D:\ Photos_Test