Discussion :

[kaena]

Bonjour à tous,
je voudrais copier/coller une image (logo) située sur une feuille sur toutes les autres via une macro

Merci d'avance

[LeForestier]

Bonjour,
Une solution parmi d'autre...

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
'La feuille avec le logo doit être la feuille active
Sub CopieLogo()
Dim F As Worksheet, Nom As String
    Nom = ActiveSheet.Name
    ActiveSheet.Shapes("Image1").Copy
    For Each F In Sheets
        If F.Name <> Nom Then
            F.Select
            Range("A1").Select
            ActiveSheet.Paste
            Selection.ShapeRange.Left = 1.5 'à adapter
            Selection.ShapeRange.Top = 1.5 'à adapter
        End If
    Next F
End Sub

A+