Discussion :

[jijie]

Bonjour,

je voudrais insérer une image à partir d'un fichier mais en renommant celle-ci par "TOTO" par exemple, est-ce possible?

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
Private Sub bouton_titre2_Click()
    Dim Image As Variant
    Dim L As Single, T As Single, W As Single, H As Single
 
    L = Range("c6").Left
    T = Range("c6").Top
    W = Range("c6").Width
    H = Range("c6").Height
 
    Image = ("C:\Users\LOGOS\BIBI.jpg")
 
    If Image <> False Then
        Feuil1.Shapes.AddPicture Image, True, True, L, T, W, H
        'Selection.Name = "TOTO"
 
    End If
End Sub

[Kimy_Ire]

Bonjour jijie,

La ne pourrait-elle pas t'aider ?
Ici, par exemple.

Reviens vers moi pour toute difficulté.

Cordialement,
Kimy

[Menhir]

Tu crées une variable (par exemple nommée MaShape) de type Shape.
Tu mets un "MaShape =" devant le Add introduisant ton image, comme ça, tu conserves le lien vers cette image.
Ensuite, il ne te reste plus qu'à utiliser la propriété Name avec ta variable pour changer le nom de ton image.

[jijie]

Bonjour à vous deux,

Menhir: Comment je place cette variable devant le Add ? Tu pourrais me donner la ligne? et comment je modifie le nom?

Retenir le nom dans une variable ne m'intéresse pas car si le fichier est fermé entre les deux, je ne pourrais plus supprimer l'image puisque la variable sera = à "" !!

C'est pourquoi quel que soit l'image collé sur la feuille, je voudrais qu'elle porte un nom identique (sur la feuille)!

Merci

[Menhir]

Comment je place cette variable devant le Add ?

Set MaVariable = ....
Comme pour toute affectation d'un objet à une variable.

comment je modifie le nom?

Regarde dans l'aide VBA d'Excel les membres de l'objet Shape et en particulier la propriété Name.

Retenir le nom dans une variable ne m'intéresse pas car si le fichier est fermé entre les deux, je ne pourrais plus supprimer l'image puisque la variable sera = à "" !!

Tu veux supprimer l'image ??? C'est nouveau... Jusqu'à présent, tu voulais juste la renommer.
Je ne parle pas de retenir le nom mais de conserver un lien vers l'objet pour ne pas être obligé de le rechercher après l'utilisation de ton Add, histoire de pouvoir changer son nom dans la ligne suivante.

Autre chose qui m'étonne dans ton code : je ne vois pas du tout ce que tu espères obtenir avec :

Code :

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

1
2
    Image = ("C:\Users\LOGOS\BIBI.jpg")
     If Image <> False Then

[mercatog]

Ou directement

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
Dim L As Single, T As Single, W As Single, H As Single
Dim Image As String
 
Image = "C:\Users\hp\Pictures\armoiries3.jpg"
 
If Dir(Image) <> "" Then
    With Feuil1
        With .Range("C6")
            L = .Left
            T = .Top
            W = .Width
            H = .Height
        End With
        .Shapes.AddPicture(Image, True, True, L, T, W, H).Name = "TOTO"
    End With
End If

[jijie]

Et bien oui merci Mercatog , c'est bien ça.
je te rereremercie !!