MS Excel 2003, insérer le jour actuel

[Fermé]
Signaler
Messages postés
361
Date d'inscription
mardi 8 août 2006
Statut
Membre
Dernière intervention
27 février 2011
-
 myfilou@tele2.fr -
Bonjour,

Une fois qu'on ouvre le logiciel MS Excel 2003, et nous allons dans:

Aperçu avant impression> Mise en page> l'onglet En-tête et pied de pages>En-tête personnalisé> Il y a le choix d'insérer: la Date, Heure, # de page, nbrs de page, etc.

Mais question est la suivante: Je voudrais savoir s''il est possible d'insérer le jour actuel(pas la date).

Merci,

5 réponses

Messages postés
831
Date d'inscription
jeudi 3 janvier 2008
Statut
Membre
Dernière intervention
11 septembre 2011
82
Ce que tu appelle le jour actuel c'est le jour de la semaine?
Messages postés
54882
Date d'inscription
lundi 13 août 2007
Statut
Contributeur
Dernière intervention
23 octobre 2021
16 779
Non : L'utilisateur ne peut modifier le format des insertions automatiques dans les en-têtes et pieds de page d'Excel 2003.
C'est à toi de prévoir une cellule en bas de page de tes feuilles, avec la date affectée du format de ton choix.
Mais quelle est l'utilité d'imprimer le jour de la semaine, et pas la date ?
Si c'est impératif (emploi du temps, planning ...), tu peux donner à l'onglet de ta feuille le nom que tu veux, et faire imprimer cet onglet en peid de page.
Messages postés
831
Date d'inscription
jeudi 3 janvier 2008
Statut
Membre
Dernière intervention
11 septembre 2011
82
En considérant que tu parlais du jour de la semaine, voila le code à insérer dans ThisWorbook

Private Sub Workbook_BeforePrint(Cancel As Boolean)

    Dim ws As Variant
    Dim sJourSemaine As String 'Nom du jour de la semaine
    Dim iNoJour As Integer 'N° du jour de la semaine
    
        'On récupère le jour de la semaine en considérant que la semaine commence un lundi
        iNoJour = Weekday(Date, vbMonday)
        
        'On calcule le jour de la semaine
        Select Case iNoJour
            Case 1
                sJourSemaine = "Lundi"
            Case 2
                sJourSemaine = "Mardi"
            Case 3
                sJourSemaine = "Mercredi"
            Case 4
                sJourSemaine = "Jeudi"
            Case 5
                sJourSemaine = "Vendredi"
            Case 6
                sJourSemaine = "Samedi"
            Case 7
                sJourSemaine = "Dimanche"
        End Select
    
        'On affecte le jour de la semaine à l'entête de toutes les feuilles du classeur
        For Each ws In Worksheets
            ws.PageSetup.CenterHeader = sJourSemaine
        Next
    
End Sub
Messages postés
361
Date d'inscription
mardi 8 août 2006
Statut
Membre
Dernière intervention
27 février 2011
46
Merci beaucoup pour vos réponses et votre aide.

ou simplement (day(now))