Problème Macro Sélection Image

Bonjour à tous,
Je suis nouveau sur ce forum tout autant que sur VBA. Je vais peut être dire des choses discutable, mais je souhaite faire quelque chose de simple.

J'essaie de trouver le nom d'une image. Pour cela, j'avais trouvé en tant que subterfuge d'enregistrer une macro, de cliquer sur l'image (préalablement inséré dans mon doc excel) puis d'arrêter l'enregistrement pour aller lire une commande de ce style:

Code:

---

ActiveSheet.Shapes.Range(Array("Picture 28")).Select

---

Malheureusement, aujourd'hui, cette commande ne marche plus à mon grand regret. Quand j'essaie de refaire la même démarche que précédemment et que je m'amuse à aller lire ce qu'il est écrit quand je clique sur l'image, il n'y a rien. C'est une commande vide.


Avez-vous une idée de pourquoi?

Bien cordialement, Théo :)

Code:

---

1 2 3 4 5 6

Sub test() For i = 1 To ActiveSheet.Shapes.Count Set a = ActiveSheet.Shapes(i) If a.Name = "Image 1" Then MsgBox "C'est bon" Next End Sub

---

Bonsoir.

Pour l'enregistreur de macro, je ne sais pas.

Par contre, sur ton problème pratique, si la macro préalablement enregistrée ne fonctionne plus, c'est probablement que l'image a changé de nom.
Pour trouver ce nom, tu peux sélectionner l'image et exécuter

Code:

---

1 2 3 4

Sub subNomImage() 'l'image doit être sélectionnée Debug.Print Selection.ShapeRange.Name End Sub

---

Tu récupères le nom dans la fenêtre d'exécution, tu l'utilises pour remplacer "Picture 28" dans la ligne de sélection, et cela devrait aller.

Cordialement,

PGZ