× 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
183,32 €Disque dur externe Western Digital Elements Desktop USB 3.0 10 To à 183,32 € livré
Valable jusqu'au 15 Août

Amazon Allemagne propose actuellement le disque dur externe Western Digital Elements Desktop USB 3.0 10 To à 176,89 € (avec la TVA ajustée). Comptez 6,43 € pour la livraison en France soit un total de 183,32 € livré. On le trouve ailleurs à partir de 229 €. Ce disque dur dispose d'un grande capacité de stockage (10 To) et d'une connectique USB 3.0 qui vous offrira des transferts rapides. Il est compatible USB 2.0. Une très bonne affaire. Notez que le disque dur n'est pas soudé et que vous pouvez le récupérer pour l'utiliser dans un ordinateur ou un NAS (il s'agit d'un disque dur CMR UltraStar DC HC 510).

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
171,01 €PC Dell Optiplex 7010 (Core i5, 8 Go RAM, SSD 240 Go, Windows 10) reconditionné à 171,01 €
Valable jusqu'au 17 Août

Amazon fait une belle promotion sur l'ordinateur de bureau Dell Optiplex 7010 SFF reconditionné à neuf et garanti 1 an à 171,01 € livré gratuitement. Le PC est équipé d'un processeur Intel Core i5 3470 à 3.2 GHz, de 8 Go de RAM, d'un SSD de 240 Go, d'un graveur DVD et tourne sous Windows 10 Pro 64 bits. Rajoutez un écran, un clavier et une souris et vous aurez un ordinateur à l'aise en bureautique, Internet et multimédia. Notez que le Windows 10 fourni peut être en espagnol ou en italien mais que vous pouvez facilement changer la langue pour mettre Windows en Français.


> Voir l'offre
83,93 €Disque dur externe portable Seagate Basic 4 To USB 3.0 à 83,93 €
Valable jusqu'au 14 Août

Amazon fait une promotion sur le disque dur externe portable Seagate Basics d'une capacité de 4 To qui passe à 83,93 € livré gratuitement. 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).


> 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