Bonjour à tous :

J'ai réussis tant bien que mal a faire fonctionner cette macro :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub Image1_Click()
' Routing pour insérer image dans un contrôle de formulaire ActiveX
Dim Pict
Dim ImgFileFormat As String
Dim Ans As Integer
ImgFileFormat = "Image JPEG (*.jpg),*.jpg,Bitmap (*.bmp),*.bmp,Png (*.png),*.png"
 
Pict = Application.GetOpenFilename(ImgFileFormat)
If Pict = False Then 'Aucune image sélectionnée
Pict = ""
Image1.Picture = LoadPicture(Pict)
Exit Sub
Else
Image1.Picture = LoadPicture(Pict)
Image1.PictureSizeMode = fmPictureSizeModeZoom
 
End If
 
End Sub
je présume qu'il y a certainement des erreurs (n'hésiter pas a me la modifier pour optimisation)

Par contre j'ai un soucis quand on clique sur l'image si on ne réinsère pas cette image celle ci est perdu.

J'aimerai une solution pour soit garder la dernière image en cours à l'ouverture

soit une variable par oui ou non "vous allez modifié l'image voulez vous continuer "

Et franchement mes compétence sont tellement faible que je ne sais plus ou vraiment chercher.

Voila je vous remercie d'avance pour votre aide

J'ai un second soucis ma photo inserer dans excel triple de volume d'octet

Vous avez une idée ?