Bonjour GMD,
Merci de votre réponse et désolé d'avoir tardé à répondre, j'étais en déplacement.
Ok pour une macro,mais je suis pas très fort, (Voir nul)
j'ai essayer ceci mais j'ai un bug, La taille du texte ne change pas mais il se met dans le texte comment modifier? (voir exemple)
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Sh As Worksheet
Dim Police As String
Dim Taille As String
Dim Texte As String
Police = "Algerian"
Taille = 20
Texte = Worksheets("Feuil1").Range("A1")
For Each Sh In ActiveWindow.SelectedSheets
With Sh
With .PageSetup
.CenterHeader = "&""" & Police & ",Gras""" & Taille & Texte
End With
End With
Next
End Sub
De plus sur la gauche je voudrais insérer un logo qui aussi doit changer selon le chemin d'accès de la cell A4 sur l'exemple et j'ai vraiment aucune idée comment faire.
Merci d'avance de votre généreuse aide.