MS Excel 2003, insérer le jour actuel
CompaqPresario
Messages postés
377
Statut
Membre
-
myfilou@tele2.fr -
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,
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
-
Ce que tu appelle le jour actuel c'est le jour de la semaine?
-
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. -
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 -
-
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -