Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question' Conversion de l'image au format JPG pour prendre moins de place Dim Capture As New aDIBSection Set Capture = New aDIBSection Capture.CreateFromPicture LoadPicture(Fichier & ".bmp") Call SaveJPG(Capture, Fichier & ".jpg", Qualité) DoEvents Set Capture = Nothing