× 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
10,89 €Carte mémoire microSDXC UHS-I SanDisk A1 Ultra 64 Go à 10,89 €
Valable jusqu'au 15 Juillet

Amazon propose actuellement la carte mémoire microSDXC UHS-I SanDisk A1 Ultra 64 Go à 10,89 €. Cette carte mémoire offre des vitesses jusqu'à 100 Mo/s.


> Voir l'offre
104,74 €Disque dur externe portable Seagate Expansion 5 To USB 3.0 à 104,74 € livré
Valable jusqu'au 16 Juillet

Amazon Allemagne fait une promotion sur le disque dur externe portable Seagate Expansion d'une capacité de 5 To à 99,84 € (avec la TVA ajustée). Comptez 4,90 € pour la livraison en France soit un total de 104,74 € livré alors qu'on le trouve ailleurs à partir de 130 €. Ce disque dur externe portable au format 2,5 pouces dispose d'une interface USB 3.0 compatible USB 2.0. Une excellente affaire pour ce disque dur qui offre des débits de 115 Mo/s. Il n'est pas soudé et est donc démontable si vous souhaitez le réutiliser ailleurs (console, NAS, PC).

Vous pouvez utiliser votre compte Amazon France sur Amazon Allemagne et il n'y a pas de douane. Si vous êtes perdu en allemand, vous pouvez traduire le site en anglais.


> Voir l'offre
144,80 €Mini PC Acute Angle AA-B4 (Celeron N3450, 8Go RAM, 64Go+SSD 128Go) à 144,80 € avec le code GBCNSJXPC
Valable jusqu'au 15 Juillet

Gearbest fait une promotion sur l'ordinateur Acute Angle AA - B4 qui passe à 144,80 € au lieu de 180 € grâce au code promo GBCNSJXPC. Ce mini PC au design atypique et au corps en bois, intègre un processeur Intel Celeron N3450 (4 coeurs de 1,1 à 2,2 GHz), 8 Go de RAM, un espace de stockage de 64 Go EMMC ainsi qu'un SSD de 128 Go. Il possède également le WiFi5, le Bluetooth 5.0, une prise Ethernet Gigabit, 3 ports USB 3.0, une sortie HDMI. L'ordinateur est livré avec une prise électrique européenne. Il est accompagné de Windows 10 Familial. Avec ce PC, vous pourrez réaliser sans soucis toutes vos tâches courantes : internet, bureautique, multimédia.

Ce marchand sérieux se trouvant en Chine, la livraison peut prendre une quinzaine de jours. Comptez une dizaine d'euros pour la livraison en France et l'assurance pour le transport. Vous pouvez payer par carte bancaire ou par Paypal (conseillé pour bénéficier de la garantie Paypal).


> 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