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
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.
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"
Avez vous une idée. Merci à l'avance.
Partager