grisan29
XLDnaute Accro
bonjoura vous
voici un code qui fonctionne mais:
c'est au niveau de l'entête au centre
comment peut'on faire pour ce soit la valeur de la cell("D17")qui soit inscrite sur la feuille et non FACTURE SAV à toutes les sauces
j'ai bien de mettreque No est égal a Sheets("facturation").Range("D17")
Mais sans succes
cordialement
Pascal
voici un code qui fonctionne mais:
Code:
Sub ChangementPage()
Dim NoLigne As Long
Dim No As String, Dt As String
No = Year(Now) & " - " & Sheets("facturation").Range("A1")
Dt = Format(Date, "dd mmmm yyyy")
With Sheets("facturation").PageSetup
'entête au centre
.CenterHeader = "&12&""Arial,Gras""FACTURE SAV N° " & No & " en date du " & Dt '<-- style Arial + gras + taille 12
'pied de page au centre
.CenterFooter = "&28""SIRET : 123456789 - NAF : 123 - RCS : 12345 - N° TVA : FR012345678" & Chr(10) & "assurance décennale n°123456789 de chez untel" '<-- style par défaut + taille 8
End With
End Sub
Code:
.CenterHeader = "&12&""Arial,Gras""FACTURE SAV N° " & No & " en date du " & Dt '<-- style Arial + gras + taille 12
j'ai bien de mettreque No est égal a Sheets("facturation").Range("D17")
Mais sans succes
cordialement
Pascal