jacky49
XLDnaute Impliqué
Bonsoir le forum,
j'ai ce code ci dessous ou je voudrais mettre en gras l'en tete de page du centre mais il est lié à une cellule et avec tous les essais que j'ai fait , je n'y parviens pas
est ce que quelqu'un à une idée
merci
jacky
j'ai ce code ci dessous ou je voudrais mettre en gras l'en tete de page du centre mais il est lié à une cellule et avec tous les essais que j'ai fait , je n'y parviens pas
est ce que quelqu'un à une idée
merci
jacky
Code:
Sub Imprimer_Provisoire()
Application.ScreenUpdating = False
Dim Ws As Worksheet
Dim MaPlage As Range
Set Ws = Worksheets("VH")
Derlig = Ws.Range("X" & Ws.Rows.Count).End(xlUp).Row
Set MaPlage = Ws.Range("T1:AE" & Derlig)
With Ws.PageSetup
.PrintArea = MaPlage.Address
'.LeftFooter = ""
.CenterFooter = [B107] & Chr(10) & [D107] & " " & [E107] & " , " & [F107] & " , " & [G107] & " " & [H107] & " " & [I107]
'.RightFooter = ""
End With
With Ws.PageSetup
.PrintArea = MaPlage.Address
'.LeftHeader = ""
.CenterHeader = "&""Times New Roman,Gras italique""&14[T3] & Chr(10) & [AA1] & Chr(10) & [H3] & " " [I107]
'.RightHeader = ""
End With
Ws.PrintOut Copies:=4, Collate:=True
Application.ScreenUpdating = True
Call insertionImage_EntetePage2
End Sub