> Tous les forums > Forum Bureautique
 macro pour date en pied de pageSujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
usularrakis
  Posté le 24/07/2019 @ 09:54 
Aller en bas de la page 
Astucien

Bonjour à tous

j'auri besoin d'un coup de main des macroteurs et macroteuses.

j'ai régulièrement des extractions sous excel que je dois imprimer et je dois mettre à chaque fois la date et l'heure dans le pied de page (de préférence à droite)

vous n'auriez pas une petite macro pour automatiser tout ça ?

merci infiniment

Publicité
poussebois
 Posté le 24/07/2019 à 10:12 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Grand Maître astucien

Bonjour ,

Ta macro doit contenir au strict minimum ceci :

Sub Pied_de_page()
With ActiveSheet.PageSetup
.RightFooter = "&D - &T"
End With
End Sub

Tu lui donnes une lettre, par exemple "p" pour la lancer par ctrl+p.

@ +



Modifié par poussebois le 24/07/2019 10:14
usularrakis
 Posté le 24/07/2019 à 11:24 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Simple et efficace

C'est parfait

merci beaucoup poussebois

juste pour ma culture : pour mettre au milieu c'est mid , middle, center ... ?

poussebois
 Posté le 24/07/2019 à 11:44 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Grand Maître astucien

,


.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = "&D - &T"

Center pour au milieu, Left pour à gauche, Header pour l'en-tête, Footer pour le pied-de-page !

Tu mets "&D - &T" où tu veux ...

usularrakis
 Posté le 24/07/2019 à 11:57 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien


Merci

tu as mérité une 2e

poussebois
 Posté le 24/07/2019 à 12:19 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Grand Maître astucien

,

Merci. Par ces temps caniculaires, j'en ai bien besoin .

Si tel est le cas, mets ton sujet en RESOLU.

Pegase7845
 Posté le 24/07/2019 à 17:44 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonjour,

Et pour compléter la réponse de poussebois tu peux avoir l'impression de la date et de l'heure automatiquement à l'impression.

Tu vas dans ThisWorkbook => Workbook => BeforePrint

et tu colles le nom de la macro de poussebois ou tout simplement en 1 ligne ActiveSheet.PageSetup.RightFooter = "&D - &T"

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !
Recevoir PC Astuces par e-mail


La Lettre quotidienne +226 000 inscrits
Avec l'actu, des logiciels, des applis, des astuces, des bons plans, ...

Les bonnes affaires
Une fois par semaine, un récap des meilleurs offres.

Les fonds d'écran
De jolies photos pour personnaliser votre bureau. Une fois par semaine.

Les nouveaux Bons Plans
Des notifications pour ne pas rater les bons plans publiés sur le site.

Les bons plans du moment PC Astuces

Tous les Bons Plans
899,89 €Portable 15,6' Lenovo Legion 5 (FHD, Ryzen 5, 8Go, SSD 512Go, RTX3060) à 899,89 € (code 50EUROS)
Valable jusqu'au 29 Novembre

Cdiscount fait une promotion sur le PC portable Lenovo Legion 5 (15ACH6H) dédié aux joueurs qui passe à 899,89 € au lieu de 1100 €. Ce PC portable très bien équipé possède un écran 15,6 pouces LED Full HD 120 Hz, un processeur AMD Ryzen 5 5600H, 8 Go de RAM, un SSD de 512 Go et une carte graphique GeForce RTX 3060 6 Go dédiée qui avalera tous vos jeux sans broncher. Fourni avec Windows 10 avec mise à jour possible vers Windows 11. 3 mois de Game Pass vous sont également offerts.


> Voir l'offre
26,99 €SSD PNY CS900 240 Go à 26,99 €
Valable jusqu'au 29 Novembre

Amazon fait une promotion sur le SSD PNY CS900 240 Go qui passe à 26,99 €. Ce SSD offre des vitesses d'écriture de 515 Mo/s et de lecture à 550 Mo/s. Il est garanti 3 ans. 


> Voir l'offre
-33%Jusqu’à 33% sur une sélection de jeux Nintendo Switch
Valable jusqu'au 27 Novembre

Amazon fait jusqu'à 33% de remise immédiate sur une sélection de jeux Nintendo Switch.


> Voir l'offre

Sujets relatifs
Date pied de page
MACRO EXCEL MAC POUR ENREGISTRER PDF
Supprimer les en-tête & pied de page
Macro excel pour une somme conditionnel
Macro excel pour calcul d’itération
Macro pour copie de données selon critère
Insérer un No de semaine dans le pied de page
Excel 2016 en-tête et pied de page
macro pour copie données ne fonctionne pas
Macro pour sécurisé document Word
Plus de sujets relatifs à macro pour date en pied de page
 > Tous les forums > Forum Bureautique