Discussion :

[retraite83]

Bonjour,

je veux copier une image depuis une feuille dans une autre

Lorsque je connais le nom de l'image je n'ai pas de soucis, mais sans le connaître je cherche depuis un bon moment et je ne trouve pas de docs pour récupérer ce nom

En clair comment connaitre le nom de l'image qui est sur la cellule "A1" d'une feuille

Une piste de doc ?

merci

[retraite83]

En fait plus simple que je ne le pensais, il suffit de copier la cellule, la photo vient avec...

[anasecu]

Bonjour retraite83,

En clair comment connaitre le nom de l'image qui est sur la cellule "A1" d'une feuille

Tu as trouvé la solution à ton problème mais si tu as ce même souci pour une autre utilisation du nom tu peux utiliser cette fonction, en sachant que tu peux avoir plusieurs images dans une cellule :

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
Public Function nom_img(feu As Worksheet, cel As Range) As String
Dim Sh As Shape
    For Each Sh In feu.Shapes
        If Sh.Type = 13 Then
            If Sh.TopLeftCell.Address = cel.Address Then
                nom_img = IIf(nom_img = "", "", nom_img & "|") & Sh.Name
            End If
        End If
    Next Sh
End Function
 
Sub test()
Dim image As String
    image = nom_img(Worksheets("Feuil1"), Range("A1"))
End Sub