Private Sub CommandButton1_Click()
Dim TheFile As Variant
Dim ThePath As String
Dim UserDir As String
ThePath = 'C:\\Photo\\' 'a ajuster au répertoire contenant tes images
UserDir = CurDir
MsgBox UserDir
ChDir ThePath
TheFile = Application.GetOpenFilename('image(*.jpg),*.jpg')
If TheFile = False Then ChDir UserDir: Exit Sub
With Me.Image1
.Picture = LoadPicture(TheFile)
End With
ChDir UserDir
End Sub