Nouvelle page chaque jours.

Latos -  
m@rina Messages postés 27633 Date d'inscription   Statut Modérateur 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

4 réponses

  1.
    m@rina Messages postés 27633 Date d'inscription   Statut Modérateur Dernière intervention   11 566
     
    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
    1. Latos
       
      Bonjour, je prend note pour l'en-tête et non je veux créer une nouvelle page chaque jour
      0
  2. Raymond PENTIER Messages postés 58219 Date d'inscription   Statut Contributeur Dernière intervention   17 485
     
    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
  3. Latos
     
    bonjour , il y'a de ça effectivement .merci
    0
  4. m@rina Messages postés 27633 Date d'inscription   Statut Modérateur Dernière intervention   11 566
     
    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