BOnjour

J'ai un document excel dont une feuille a une JPG en entete à gauche.
J'ai une macro qui fait l'impression de lignes choisies. Cette macro crée une nouvelle feuille pour copier les lignes choisies.

Je veux copier le JPG vers ma nouvelle feuille. Voici un partie du code

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
 
    Dim Nouvsh As Worksheet
    Dim Actsh As Worksheet
    Dim Lr As Long
 
    Application.ScreenUpdating = False
 
    Set Actsh = ActiveSheet
    Set Nouvsh = Worksheets.Add  ' ajouter une feuille contenant l'impression
    Nouvsh.PageSetup.Orientation = xlLandscape 'orienter en landscape
    Nouvsh.PageSetup.PaperSize = xlPaperLegal
 
    Actsh.Select
 
    Actsh.PageSetup.LeftHeader.Picture.Select
    Actsh.PageSetup.LeftHeader.Picture.Copy
    Nouvsh.PageSetup.LeftHeader = "&G"
Mais j'ai une erreur, il ne reconnait pas le niveau LeftHeader. Le reste de l'impression (lignes choisies, donc le code que je n'ai pas inclus ici) fonctionne OK. Le terme "&G" vient d'une application que j'ai vu ailleur.

Avez vous une idée. Merci à l'avance.