jacky49
XLDnaute Impliqué
Bonsoir le forum,
j'ai ce code ci-dessous :
qui fonctionnait bien et j'ai ajouté des colonne avant ce tableau et j'ai donc remis les lettres des colonnes mais depuis il me met :Erreur de compilation: Référence incorrect ou non qualifié et il me surligne la ligne :
et dans celui-ci, je demande qu'il me mette une image de chaque coté mail ne me met l'image qu'en haut à droite
merci de votre aide
jacky
j'ai ce code ci-dessous :
Code:
Sub ImprimerVeterans_S()
Application.ScreenUpdating = False
Dim Ws As Worksheet
Dim MaPlage As Range
Set Ws = Worksheets("VeteransHommes")
Derlig = Ws.Range("W" & Ws.Rows.Count).End(xlUp).Row
Set MaPlage = Ws.Range("T1:Z" & Derlig)
Ws.PageSetup.PrintArea = MaPlage.Address
'.LeftFooter = ""
.CenterFooter = "Ecrire ce que je veux"
' .RightFooter = ""
Ws.PrintOut Copies:=4, Collate:=True
Application.ScreenUpdating = True
Call insertionImage_EntetePage2
End Sub
Code:
.CenterFooter =
Code:
Sub insertionImage_EntetePage2()
Application.ScreenUpdating = False
With ActiveSheet.PageSetup.LeftHeaderPicture 'emplacement à gauche
With ActiveSheet.PageSetup.RightHeaderPicture 'emplacement à droite
.Filename = "C:\Users\Jacky\Documents\Logo Trois à moi.jpg"
'.Height = 40 ' redéfinit la largeur de l'image
'.Width = 80 ' redéfinit la hauteur de l'image
End With
'Remarque Il est nécessaire que « &G » fasse partie de la chaîne
'de la propriété LeftHeader afin que l'image s'affiche dans l'en-tête gauche
'info issue de l'aide en ligne Excel
ActiveSheet.PageSetup.LeftHeader = "&G" 'emplacement à gauche
ActiveSheet.PageSetup.RightHeader = "&G" 'emplacement à droite
End With
Application.ScreenUpdating = True
End Sub
jacky