Discussion :

[Tatail]

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 ?

[patricktoulon]

Bonjour

regarde plutôt du coté de

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveSheet.Pictures.Insert(chemin )

Au plaisir

[Tatail]

Avec le controle d'image ca peux marcher ?

[patricktoulon]

non !
un control image est un activeX donc plus gros en terme d'octets

ce que je t'ai donné c'est la méthode pour ajouter ou mettre une image sur la feuille ca fait partie des shapes ce n'est pas le même composant

[Tatail]

Donc j'avais bien compris et j'ai énorme soucis ma solution n'est pas réalisable.

Techniquement elle fonctionne mais pour une image réalisé avec l'active x ca me fait un volume 10 fois supérieur par image et j'en ai 50 par fichier.

J'avais choisit l'active x parceque mon cadre n'est pas dans une cellule et que ma photo se formate dans le cadre

Avec la solution que tu m'as donné c'est dans une cellule et la je ne peux pas.

[patricktoulon]

absolument faux !!

tu peut très bien insérer une image (shapes) ou tu veux et de la taille que tu veux et même lui attribuer une macro si nécessaire

bon en relisant ton premier post

il me semble percevoir un simple clic sur l'image pour la changer et si aucun choix n'est fait laisser celle qui est présente
c'est bien ca ?????