Bonsoir le forum,

j'ai ce code ci-dessous ou je voudrais inséerer une image dans l'en tête mais il bug
merci de votre aide
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
Sub PlacementSurLaLigne(ByVal WsName As String)
        Dim MaPlage As Range
        Dim Derlig As Long
 
        With ThisWorkbook.Worksheets(WsName)
            Derlig = .Range("EL" & .Rows.Count).End(xlUp).Row
        Columns("EM:EM").EntireColumn.Hidden = True
        Columns("EO:EY").EntireColumn.Hidden = True
             With .PageSetup
                .PrintArea = "EI1:EY" & Derlig
LeftHeaderPicture.Filename = "C:\Users\Jacky\Logo.jpg"
                .CenterHeader = "Times New Roman"
                .CenterHeader = [EN5]
                .RightHeader = "Essai 2"
        '        .LeftFooter = ""
                .CenterFooter = ""
        '        .RightFooter = ""
            End With
            .PrintOut Copies:=4, Collate:=True
        End With
        End Sub