× Aidez la recherche contre le COVID-19 avec votre ordi ! Rejoignez l'équipe PC Astuces Folding@home
 > 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
  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
  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
  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 poster des messages. Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !


Les bons plans du moment PC Astuces

Tous les Bons Plans
-70%70% de réduction sur l'abonnement de 3 ans à NordVPN
Valable jusqu'au 18 Août

NordVPN fait jusqu'à ce soir une promotion sur son abonnement 3 ans qui passe à 111,82 € au lieu de 382,88 € soit une réduction de 70 %. L'abonnement vous reviendra ainsi à 3,11 € / mois. Ce VPN sérieux et rapide vous permettra de surfer anonymement (pas de log conservé) mais également de chiffrer votre connexion en déplacement ou bien d'accéder aux contenus réservés aux internaux d'autres pays (pour les matchs de football restransmis sur les sites web de certaines tv étrangeres par exemple). vous pourrez choisir parmi 5100 serveurs répartis dans 59 pays. 6 appareils peuvent utiliser simultanément le compte. 

 


> Voir l'offre
24,99 €Carte Mémoire microSDXC Transcend 300S 64 Go UHS-I U3 A1 à 10,45 €
Valable jusqu'au 10 Août

Amazon fait une promotion sur la carte mémoire microSDXC Transcend 300S 64 Go UHS-I U3 A1 qui passe à 10,45 €. Cette carte mémoire offre des vitesses jusqu'à 95 Mo/s et est parfaite pour les téléphones, caméras et appareils photo HD/4K.


> Voir l'offre
13,79 €Adaptateur USB 3.0 Ethernet Gigabit TP-Link UE300 à 13,79 €
Valable jusqu'au 10 Août

Amazon fait une promotion sur l'adaptateur USB 3.0 Ethernet Gigabit TP-Link UE300 qui passe à 13,79 € au lieu de 20 €. Cet adaptateur vous permettra de rajouter une prise Ethernet Gigabit à votre ordinateur portable (ou votre tablette via un adaptateur OTG) qui en est dépourvu.


> 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