Bonjour

Je suis en train de créer ma propre barre d'outils avec mes propres boutons.
Parmi ces boutons, l'un d'entre eux, qu'on va appeler "Inserer image", doit servir à :

- Insérer une image dans ma feuille Excel, à partir d'un fichier
- Eventuellement selon les cas, appliquer quelques traitements simples à cette image (déplacement, redimensionnement)

Alors pour tout ce qui est insertion , déplacement, redimensionnement, et même algorithmie (le "selon les cas"), je m'en sors, ça marche nickel.

Là où je me mélange carrément les pinceaux, c'est :

Comment distinguer les images que je créee les une des autres ? (au niveau des noms).

Parce que dans mon code je fais

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
20
21
 
'Début de la macro
Dim response As Variant
Dim nomFichier As String
 
With UserForm1.CommonDialogInsererImage
    .CancelError = False
    .DialogTitle = "Inserer une image"
    .Filter = "Images (*.bmp;*.jpg;*.gif;*.ico;*.png)|*.bmp;*.jpg;*.gif;*.ico;*.png|Tous les fichiers (*.*)|*.*"
    .FilterIndex = 1
    .InitDir = CurDir
    .Filename = ""
    .ShowOpen
    nomFichier = .Filename
End With
 
' Si choix = Ouvrir
If nomFichier <> "" Then
Dim ImageInseree As New image
ImageInseree.Picture = LoadPicture(nomFichier)
UserFormOptions.Show
Puis dans ma UserForm UserFormOptions, l'utilisateur peut cocher des options qui font qu'on appliquera ou non certains traitements à l'image qui vient d'être insérée.
Une fois les options cochées, il clique sur un bouton "OK", d'où une Sub
CommandButtonOk_Click()
Et dans cette Sub, je ne sais pas comment désigner mon image (avec quel nom de variable la manipuler ? ImageInseree ? )

Puis si je réinsère une image derrière, elle aura le même nom de variable ?

J'espère que je suis pas trop "pas clair".

Please help !