Discussion :

[cyr.il10]

Bonjour,
J'ai créé une macro me donnant la date du jour en en tête de page mais j'aimerais avoir la date du jour + 1 jour.
Quelqu'un a t'il une idée ou une solution ?
Merci

[SfJ5Rpw8]

bonjour..
il suffit de rajouter 1 ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

...ta formule.....  + 1 

[cyr.il10]

Merci , j'y ai bien pensé mais je ne sais pas où rajouter mon " +1"
J'ai mis la macro en PJ
Merci d'avance

[SfJ5Rpw8]

Merci , j'y ai bien pensé mais je ne sais pas où rajouter mon " +1"
J'ai mis la macro en PJ
Merci d'avance

met juste le code .. pas de fichier

[cyr.il10]

Voici mon code VBA :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub Date_du_jour()
    ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
    Selection.Font.ColorIndex = wdRed
    Selection.TypeText Text:="Le "
    Selection.InsertDateTime DateTimeFormat:="d MMMM yyyy",  InsertAsField:=False, _
    DateLanguage:=wdFrench, CalendarType:=wdCalendarWestern, _
    InsertAsFullWidth:=False
    Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
    Selection.WholeStory
    Selection.Font.UnderlineColor = wdColorRed
    Selection.Font.Underline = wdUnderlineSingle
    Selection.Font.Bold = wdToggle
    Selection.Font.Size = 20
    ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
    Selection.ParagraphFormat.Alignment = wdAlignParagraphLeft
End Sub

[Heureux-oli]

Salut,

Dans l'état de ton code, ça va pas le faire.

Ce que Bbil te propose est d'utiliser une variable qui contient la date, ou d'utiliser la date en insertion.

Dans ton cas, c'est une macro enregistrée et c'est pas possible, tu ne manipule pas la date.

Essaie avec ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub insererdate()
ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range.Text = "Le " & Format(Date + 1, "d MMMM yyyy")
With ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range
    .Font.Size = 20
    .Font.Bold = True
    .Font.ColorIndex = wdRed
    .Font.Underline = wdUnderlineSingle
    .Paragraphs.Alignment = wdAlignParagraphCenter
End With
 
End Sub

[cyr.il10]

Merci beaucoup