Sujet Précédent Sujet Suivant

MS Excel 2003, insérer le jour actuel

Fermé
CompaqPresario Messages postés 361 Date d'inscription mardi 8 août 2006 Statut Membre Dernière intervention 27 février 2011 - 2 févr. 2008 à 21:12
 myfilou@tele2.fr - 8 févr. 2008 à 01:18
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,
A voir également:

5 réponses

Réponse 1 / 5
dandypunk Messages postés 831 Date d'inscription jeudi 3 janvier 2008 Statut Membre Dernière intervention 11 septembre 2011 82
2 févr. 2008 à 23:22
Ce que tu appelle le jour actuel c'est le jour de la semaine?
0
Réponse 2 / 5
Raymond PENTIER Messages postés 58393 Date d'inscription lundi 13 août 2007 Statut Contributeur Dernière intervention 23 avril 2024 17 096
3 févr. 2008 à 05:15
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.
0
Réponse 3 / 5
dandypunk Messages postés 831 Date d'inscription jeudi 3 janvier 2008 Statut Membre Dernière intervention 11 septembre 2011 82
3 févr. 2008 à 13:07
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
0
Réponse 4 / 5
CompaqPresario Messages postés 361 Date d'inscription mardi 8 août 2006 Statut Membre Dernière intervention 27 février 2011 46
4 févr. 2008 à 04:16
Merci beaucoup pour vos réponses et votre aide.
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 5
myfilou@tele2.fr
8 févr. 2008 à 01:18
ou simplement (day(now))
0