Private Sub CommandButton3_Click()
Dim fname As Variant
Dim Img As Object, IP As Object
imgout = Application.GetSaveAsFilename(InitialFileName:=Environ("userprofile") & "\DeskTop", filefilter:="image Files (*.jpg), *.jpg", Title:="ENREGISTREMENT DE LA CAPTURE")
Set Img = CreateObject("WIA.ImageFile")
Set IP = CreateObject("WIA.ImageProcess")
Img.LoadFile chemin.Value
'on crops maintenant
'Ajoute le filtre pour redimensionner l'image (Scale)
IP.Filters.Add IP.FilterInfos("Crop").FilterID
IP.Filters(1).Properties("Left") = (Img.Width / 100) * Val(cropleft)
'definit la position à partir du bord supérieur pour la coupe
IP.Filters(1).Properties("Top") = (Img.Height / 100) * Val(croptop)
'definit la position à partir du bord droit pour la coupe
IP.Filters(1).Properties("Right") = (Img.Width / 100) * Val(cropright)
'definit la position à partir du bord inférieur pour la coupe
IP.Filters(1).Properties("Bottom") = (Img.Height / 100) * Val(cropbottom)
'----------------------------------------------------
'etape finale
'Application du filtre à l'image
Set Img = IP.Apply(Img)
'Enregistre l'image redimensionnée
If Dir(imgout) <> "" Then Kill imgout
Img.SaveFile imgout
Image1.PictureSizeMode = 0
Image1.Picture = LoadPicture(imgout)
cropsbutton_Click
End Sub