> 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
PC Portable 16 pouces HP Victus (FHD, Intel Core i5-11400H, 8Go/512Go, RTX 3060 6 Go, Win11) à 799 €
799,00 € 999 € -20% @Amazon
Jeu PC Star Wars Squadrons gratuit
0 € 39,99 € -100% @Epic Games
Perforateur Bosch Professional GBH 2-21 SDS+ à 91,09 €
91,09 € 109,99 € -17% @Amazon
PC Portable 16.1 pouces HP Omen (QHD, Core i7-12700H, 8Go DDR5, SSD 1 To, GeForce RTX 3070 Ti 8Go, Windows 11) à 1199,99 €
1199,99 € 1999 € -40% @Darty
Box Android Nvidia Shield TV 2019 8 Go avec télécommande à 109,99 €
109,99 € 149 € -26% @Rakuten
Portable 15,6 pouces HP (FHD, Ryzen 7 5700U, 8Go/512Go, Win11) + sacoche + Microsoft 365 à 499,99 €
499,99 € 599 € -17% @Cdiscount
Ecran 27 pouces LG Ultragear 27UN880-B (4K, IPS, bras ergonomique) à 436,31 €
436,31 € 500 € -13% @Amazon
Enceinte connectée Amazon Echo Dot (3ème génération) avec assistant Alexa à 17,99 €
17,99 € 29,99 € -40% @Amazon
Clavier mécanique Corsair K63 à 49,99 €
49,99 € 80 € -38% @RueDuCommerce
SSD Crucial P3 500 Go (NVMe, PCIe, M.2, 3500 Mo/s) à 39,13 €
39,13 € 49 € -20% @Amazon

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