Nouvelle page chaque jours. Fermé

Question

Bonjour, 

j'aimerais savoir si il etait possible de creer une nouvelle page en macro a chaque nouvelle journee et que la date change en en tete.
exemple sur ma page 1 la date sera 05/05/2020 et sur ma page deux cree demain a 00h01 nous aurions 06/05/2020. j'avais trouver une idee façon de faire sur excel mais cela ne conviens pas.

Sub Jour()Sheets(Sheets.Count).Copy After:=Sheets(Sheets.Count)ActiveSheet.Name = Format(Date, "dd mmm yyyy")Range("A1") = Format(Date, "mm/dd/yyyy")End Sub

merci d 'avancer

m@rina · Answer

Bonjour,

Tout d'abord,  l'idée de mettre ça en en-tête n'est pas une bonne idée, car, dans Word, qui dit changement d'en-tête dit saut de section. Je ne sais pas combien de pages et donc de sections est censé faire ton document, mais il deviendra vite ingérable.
Ensuite, je n'ai pas bien compris : tu veux que la nouvelle page se crée à chaque ouverture du fichier ?

m@rina

Raymond PENTIER · Answer

Bonjour Latos.

Je suppose que c'est juste un exercice que tu veux réussir, pour te familiariser avec VBA pour Word ?
Parce qu'il n'y a vraiment aucun intérêt, avantage ni gain de temps à créer et dater une page par macro, alors qu'il suffit d'insérer un saut de page et de taper une date (ou d'insérer le champ Date avec QuickPart).

Latos · Answer

bonjour , il y'a de ça effectivement .merci

m@rina · Answer

Bonjour,

Ben oui, je suis d'accord avec Raymond. ça se résume en deux action :
- Clic sur Saut de page (ou Ctrl+Entrée)
- Clic sur Date et heure

With Selection    .EndKey Unit:=wdStory    .InsertBreak Type:=wdPageBreak    .InsertDateTime DateTimeFormat:="d MMMM yyyy", InsertAsField:=FalseEnd With

m@rina