maco copier nom image

[akrillon]

Bonjour à tous,

J'ai une petite question qui me parait toute simple mais j'ai beau chercher impossible de trouver la bonne formule...

Alors voila mon problème j'ai une image, j'aimerais copier le nom de cette image et le coller dans une cellule lorsque je click sur l'image grâce à une macro.

J'ai le début mais la fin reste un mystère pour moi ^^

ActiveSheet.Shapes.Range(Array("xxxx")).Select

j'espère que vous pourrez m'aider!!

MErci beaucoup

 

[Robert]

Re : maco copier nom image

Bonjour Akrillon, bonjour le forum,

Peut-être comme ça :

Sub Image1_Cliquer()
Dim Nom As String

ActiveSheet.Shapes.Range(Array("xxx")).Select
Nom = Selection.Name
Range("G1").Value = Nom 'adresse de la cellule à adapter
End Sub

 

[akrillon]

Re : maco copier nom image

ça marche impecable!!
Merci beaucoup à toi