Re : Integrer un champ texte saisissable dans un pied de page avant impression
Merci Dranreb pour ta réponse qui ma bien aidée.
Bon j'ai réussi à assembler ça:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
With ActiveSheet.PageSetup
.LeftHeader = Format(Now(), "dddd dd mmmm yyyy")
End With
nom = InputBox("Quel est votre nom ?", "Votre nom")
Range("A1").Value = nom
End Sub
Par contre, le nom s'affiche dans la cellule A1, et j'aurai voulu qui au centre de l'entete de page (center header), j'y arrive pas.
et j'aurai voulu rendre l'imput box obligatoire, car si on vais cancel, on peut la straper, là je sais pas comment faire.
Merci au forum