MS Excel 2003, insérer le jour actuel Fermé

Question

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,

dandypunk · Answer

Ce que tu appelle le jour actuel c'est le jour de la semaine?

Raymond PENTIER · Answer

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.

dandypunk · Answer

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

CompaqPresario · Answer

Merci beaucoup pour vos réponses et votre aide.

myfilou@tele2.fr · Answer

ou simplement (day(now))