Discussion :

[Bugzy1963]

Bonjour

J'ai une applicaiton VBA qui copie les lignes choisies vers une nouvelle feuille, imprime et élimine la feuille après impression.

J'essai de prendre une image JPG sur un serveur et de l'intégrer dans l'entête de la nouvelle feuille avant impression.

Voic le code que j'ai :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
With ActiveSheet.PageSetup.LeftHeaderPicture
       .Filename = "Z:\Directory\XXX.jpg"
       .Height = 406.72
       .Width = 203.87
       .Brightness = 0.5
       .ColorType = msoPictureAutomatic
       .Contrast = 0.5
       .CropBottom = 0
       .CropLeft = 0
       .CropRight = 0
       .CropTop = 0
End With

ActiveSheet.PageSetup.LeftHeader = "&G"

Le nom de mon fichier et le chemin sont bons et vérifiés trois fois, mais mon BUG est à la ligne Filename

Quelqu'un à une idée

[batou22003]

t'as essayé de metre ton image sur c:\?

[Bugzy1963]

t'as essayé de metre ton image sur c:\?

Merci de répondre

Oui.

Je viens d'essayer de mettre le JPG dans l'entête sur ma feuille originale: celle dont je prende les ligne a copier.

Avec cette commande je n'y arrive pas non plus:

Code :

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

Worksheets("Déduction_Avantage").PageSetup.LeftHeader.Copy Destination:=Worksheets("Nouvsh").PageSetup.LeftHeader