Discussion :

[Théo64600]

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 :

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

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

[Invité]

Code :

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

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

[pgz]

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 :

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

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