Discussion :

[saosimao]

Bonjour,

Je souhaite à partir d'une image présente sur une feuille Excel copier cette image et la positionner sur une autre feuille au niveau de l'entête.
Il me manque le code pour faire une synthèse avec les 2 macros ci dessous.



Code 1
Je dispose d'un code pour copier une image de la feuille 1 et la coller sur la feuille 2 :

Code :

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

1
2
3
4
5
6
7
8
9
Sub insertion1_logos()
Dim Image As Object
Sheets("Logo").Select
ActiveSheet.Pictures.Select
    Selection.Copy
    Sheets("présentation").Select
    Range("A5").Select
    ActiveSheet.Paste
End Sub

Code 2
J'ai un autre code pour à partir d'une image présente dans mes documents pour la dimensionner et l'insérer dans l'entête

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
Sub Insertion_logos()
 
 
    Sheets("Présentation").Select
    ActiveSheet.PageSetup.LeftHeaderPicture.Filename = _
        "C:\Users\claude\Documents\Qualité A\Site intranet\imgrèglement3.gif"
    With ActiveSheet.PageSetup.LeftHeaderPicture
        .Height = 57
        .Width = 60
    End With
 
Application.PrintCommunication = False
    With ActiveSheet.PageSetup
        .LeftHeader = "&G"
        .CenterHeader = "&""Times New Roman,Gras""&12Dossier d'étude"
        .RightHeader = "Page &P sur &N"
        .LeftFooter = ""
        .CenterFooter = ""
        .RightFooter = ""
        .LeftMargin = Application.InchesToPoints(0.7)
        .RightMargin = Application.InchesToPoints(0.7)
        .TopMargin = Application.InchesToPoints(0.75)
        .BottomMargin = Application.InchesToPoints(0.75)
        .HeaderMargin = Application.InchesToPoints(0.3)
        .FooterMargin = Application.InchesToPoints(0.3)
        .Zoom = 100
        .PrintErrors = xlPrintErrorsDisplayed
        .OddAndEvenPagesHeaderFooter = False
        .DifferentFirstPageHeaderFooter = False
        .ScaleWithDocHeaderFooter = True
        .AlignMarginsHeaderFooter = True
        .EvenPage.LeftHeader.Text = ""
        .EvenPage.CenterHeader.Text = ""
        .EvenPage.RightHeader.Text = ""
        .EvenPage.LeftFooter.Text = ""
        .EvenPage.CenterFooter.Text = ""
        .EvenPage.RightFooter.Text = ""
        .FirstPage.LeftHeader.Text = ""
        .FirstPage.CenterHeader.Text = ""
        .FirstPage.RightHeader.Text = ""
        .FirstPage.LeftFooter.Text = ""
        .FirstPage.CenterFooter.Text = ""
        .FirstPage.RightFooter.Text = ""
 
    End With
End sub

Il faudrait peut être enregistrer l'image présente sur la feuille 1 dans un fichier temporaire (afin que l'on puisse utiliser cette macro sur n'importe quel ordinateur…) et ensuite récupérer cette image à travers la macro 2 pour l'insérer dans l'entête

Merci pour l'aide qui sera apportée.

Claude