Dans le CommandButton "Enregistrer l'image", j'ai fais quelque chose de ce style :
Private Sub CommandButton3_Click()
Dim iPic As StdPicture
Set iPic = Me.Image1.Picture
Dim Image As String
Dim L As Single, T As Single, W As Single, H As Single
If iPic Is Nothing Then Exit Sub
SavePicture...