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