Nouvelle page chaque jours.

Latos -  
m@rina Messages postés 23882 Date d'inscription   Statut Contributeur Dernière intervention   -
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
A voir également:

4 réponses

m@rina Messages postés 23882 Date d'inscription   Statut Contributeur Dernière intervention   11 464
 
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
0
Latos
 
Bonjour, je prend note pour l'en-tête et non je veux créer une nouvelle page chaque jour
0
Raymond PENTIER Messages postés 58989 Date d'inscription   Statut Contributeur Dernière intervention   17 353
 
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).
0
Latos
 
bonjour , il y'a de ça effectivement .merci
0
m@rina Messages postés 23882 Date d'inscription   Statut Contributeur Dernière intervention   11 464
 
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:=False
End With


m@rina


0