Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2021 Format date dans un en-tête

C

Constantin

XLDnaute Occasionnel
Supporter XLD
Bonjour à tous,
Dans le fichier joint, j'aimerai pouvoir imprimer en en tête la date du jour sous le format "jjjj jj mm aaaa" (exemple : mercredi 30 08 2023 au lieu de 30/08/2023)
Je sais le faire dans une cellule mais pas dans l'en tête.

Si vous avez une idée, je suis preneur,

Portez-vous bien !
Pierre
 

Pièces jointes

  • courses _LV.xlsm
    268.7 KB · Affichages: 6
Solution
Bonjour à tous les 2

@Constantin

Constantin à dit:
Peut-on imaginer cette macro sans la zone d'impression définie dans mon exemple comme B23 dès lors que je l'aurai définie manuellement avant d'activer la macro ?
Cliquez pour agrandir...
Si tu veux définir toi même la zone d'impression tu supprimes



Et ce seras à toi de la définir comme tu veux

Tout mon code est commenté cela te permet de modifier ou supprimer ce que tu veux comme paramètre

Quand il y a une apostrophe devant une ligne de code la ligne n'est pas exécutée par excel
exemple :
VB: 
'.PrintOut                                              ' Impression ==> Désactiver pour les tests A activer pour l'impression

Si tu enleves la petite apostrophe au début l'impression se fait apres la...
Trier par date Trier par votes

Dranreb

XLDnaute Barbatruc
Bonjour.
Il ne semble pas y avoir de moyen intégré de le faire.
À votre place j'exécuterais quelque part (dans une Sub Workbook_Open peut être ?) :
VB: 
ActiveSheet.PageSetup.CenterHeader = Format(Date, "dddd dd mmmm yyyy")
 
Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc
Bonjour @Constantin
Edit bonjour Bernard

Je te propose ceci à mettre dans un module
Tu crée un bouton impression et tu lui affecte cette macro

VB: 
Sub Impression()
Application.ScreenUpdating = False
With ActiveSheet                                        ' Les paramètres s'applique à la feuille active
    With .PageSetup
     
        '******** Zone d'impression
        .PrintArea = "B2:D3"                            ' A adapter si besoin
        '********
     
        .Orientation = xlPortrait                           ' Portait ou  xlLandscape paysage
        .CenterHorizontally = False                         ' Centré horizontalement
        .CenterVertically = False                           ' Centré verticalement
        .LeftMargin = Application.InchesToPoints(0.24)      ' Marge gauche
        .RightMargin = Application.InchesToPoints(0.24)     ' Marge droite
       
        .TopMargin = Application.InchesToPoints(0.75)       ' Marge haut
        .BottomMargin = Application.InchesToPoints(0.75)    ' Marge bas
       
        .HeaderMargin = Application.InchesToPoints(0.31)    ' En tête
        .FooterMargin = Application.InchesToPoints(0.31)    ' Pied de page

        .Zoom = False                                       ' Pas de zoom
        .FitToPagesTall = 1                                 ' 1 page en hauteur
        .FitToPagesWide = 1                                 ' 1 page en largeur
        .PaperSize = xlPaperA5                              ' Format papier A5
       
        .CenterHeader = Format(Date, "dddd dd mmmm yyyy") 'Date du jour entete de page
   
    End With
    .PrintPreview                                           ' Prévisualisation à supprimer éventuellement
    '.PrintOut                                              ' Impression ==> Désactiver pour les tests A activer pour l'impression
End With
End Sub

Et tu auras ....



Merci de ton retour
 
Vote positif 0 Vote négatif
C

Constantin

XLDnaute Occasionnel
Supporter XLD
Bonjour Phil69970,
Concernant la zone d'impression, elle varie évidemment en fonction de ma liste de courses et je la définis en fonction des besoins (mise en page - zone impression - définir).
Peut-on imaginer cette macro sans la zone d'impression définie dans mon exemple comme B23 dès lors que je l'aurai définie manuellement avant d'activer la macro ?
Pour info, mon nouveau en matière de programmation est plutôt pitoyable...
Je vais faire des essais.
Merci de ton aide,
Pierre
 
Vote positif 0 Vote négatif
C

Constantin

XLDnaute Occasionnel
Supporter XLD
Dranreb à dit:
Qu'est-ce qui coince ?
Cliquez pour agrandir...
À votre place j'exécuterais quelque part (dans une Sub Workbook_Open peut être ?)
Je ne sais pas comment créer cette Sub Workbook ni où la mettre. Alors je l'ai casée dans un module qui n'a pas aimé du tout
Sans doute me suis-je planté dans le code.
J'imagine que si je crée un Sub Workbook il faut que je termine par un End Sub ?
Je sais, je ne suis pas bon du tout.
Merci encore
Pierre
 
Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc
Bonjour à tous les 2

@Constantin

Constantin à dit:
Peut-on imaginer cette macro sans la zone d'impression définie dans mon exemple comme B23 dès lors que je l'aurai définie manuellement avant d'activer la macro ?
Cliquez pour agrandir...
Si tu veux définir toi même la zone d'impression tu supprimes



Et ce seras à toi de la définir comme tu veux

Tout mon code est commenté cela te permet de modifier ou supprimer ce que tu veux comme paramètre

Quand il y a une apostrophe devant une ligne de code la ligne n'est pas exécutée par excel
exemple :
VB: 
'.PrintOut                                              ' Impression ==> Désactiver pour les tests A activer pour l'impression

Si tu enleves la petite apostrophe au début l'impression se fait apres la visu de l'impression...
 
Vote positif 0 Vote négatif
Solution
C

Constantin

XLDnaute Occasionnel
Supporter XLD
Ça a l'air de marcher. Je vais ajouter des lignes et refaire un test.
Le temps de prendre mon petit déj.
Pierre
 
Vote positif 0 Vote négatif
C

Constantin

XLDnaute Occasionnel
Supporter XLD
job75 à dit:
Bonjour Constantin, le forum,

Il est aussi simple de placer la date dans une cellule !

A+
Cliquez pour agrandir...
Bonjour job75,
J'ai bien sûr pensé à cette solution aussi simple que rationnelle mais dans ma liste de courses qui contient plus souvent 20 ou 30 produits, la place utilisée par la sélection est obérée par la hauteur des lignes 1 et 2. A la limite, il aurait fallu que la ligne 1 contenant la date soit insérée en lieu et place de la ligne 3, mais ce n'est pas possible parce que ça intègre la ligne dans la table et ça met le bazar... Ou alors, il faut que je diminue la hauteur de la ligne 2 pour ne pas perdre trop de place. Why not ?
Merci et bonne journée,
Pierre
 
Vote positif 0 Vote négatif
C

Constantin

XLDnaute Occasionnel
Supporter XLD
Merci Job75,
Tu as du t'en rendre compte, si ta solution est la plus simple pour un basique comme moi, elle n'est pas très confortable pour avoir un affichage correct.
J'ai fait des essais en modifiant les dimensions de la table "liste courses" et en insérant la ligne de date sous la ligne des items en prenant bien soin de l'exclure de la table.
Ça marche mais l'espace du haut de page ne sert plus à rien. Cela m'oblige à revoir la hauteur des marges.
J'y arrive mais c'est un peu laborieux.
Merci encore et bon week-end (traduire par bonne fin de semaine)
Pierre
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

C
  • Question
Microsoft 365 Est-il possible de concaténer dans une formule ?
Réponses
4
Affichages
337
Cougar
C
T
  • Question
Microsoft 365 format de date vba renommer feuille
Réponses
5
Affichages
410
tahon.patrice
T
L
  • Question
Microsoft 365 format cellule pour date superposé dans la même cellule
Réponses
5
Affichages
297
luc71430
L
V
  • Question
Autres Traitement des formats date
Réponses
8
Affichages
214
VIARD
V
C
  • Question
Autres macros Excel
2 3 4
Réponses
58
Affichages
2 K
Cheminotbelgiantrain
C
V
  • Question
XL 2016 Convertir un format de date
Réponses
3
Affichages
666
vivi21
V
S
  • Question
XL 2016 Inversion jour / mois
Réponses
2
Affichages
370
dysorthographie
X
  • Résolu(e)
XL 2016 occurrence par date et heure
Réponses
2
Affichages
475
xbooster
X
O
  • Question
Microsoft 365 Cours crypto API Coinmarketcap
Réponses
2
Affichages
385
Staple1600
  • Résolu(e)
XL 2013 (Résolu)Format date de Textebox vers cellule
Réponses
5
Affichages
678
Staple1600
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…