MS Excel 2003, insérer le jour actuel

CompaqPresario Messages postés 377 Statut Membre -  
 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,
Configuration: Windows XP
Firefox 2.0.0.11

5 réponses

  1. dandypunk Messages postés 838 Statut Membre 83
     
    Ce que tu appelle le jour actuel c'est le jour de la semaine?
    0
  2. Raymond PENTIER Messages postés 58213 Date d'inscription   Statut Contributeur Dernière intervention   17 482
     
    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
  3. dandypunk Messages postés 838 Statut Membre 83
     
    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
  4. CompaqPresario Messages postés 377 Statut Membre 46
     
    Merci beaucoup pour vos réponses et votre aide.
    0
  5. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  6. myfilou@tele2.fr
     
    ou simplement (day(now))
    0