Logo GNT
Actualités Tests & Guides Bons Plans
Gemini 3 Shein GTA 6 iPhone 17 Switch 2 ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel pied de page excel

pied de page excel

4 réponses
Avatar
titi
bonjour
pour le pied de page d 'une feuille excel 2000
je veux voir : imprimé le 19 novembre 2003
et j obtient seulement : imprimé le 19/11/2003 avec "imprimé le &[date]"

coment fait on
merci

titi
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
titi
bonjour
desole j ai du reprendre ma question ...

j ai pris note vos reponse notamment :

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Worksheets("feuil2").PageSetup.CenterFooter = Format(Date, "dd mmmm yyyy")
End Sub


pour ajouter le texte je suppose: ... = "Imprimé le "+ Format (...

mais pour que cela s 'applique a toutes les feuilles sans ecrire a chacune :
Worksheets("feuil1....
comment faire

mercie pour tout
A+
Th
Avatar
Gaspareau
Bonjour Titi

T'as posé la question le 19 et quelqu'un t'a
répondu

La solution ne convient pas ??


--
Gaspareau

Règle anti spam
Pour réponse personnelle enlever un d au
début de mon adresse courriel


"titi" a écrit dans le message
de news:
bonjour
pour le pied de page d 'une feuille excel 2000
je veux voir : imprimé le 19 novembre 2003
et j obtient seulement : imprimé le 19/11/2003 avec
"imprimé le &[date]"


coment fait on
merci

titi








Avatar
Gaspareau
J'utilise cette macro pour ajouter
un pied de page avec certaines info
sur toutes les pages d'un classeur

Tu peux modifier et t'en inspirer


Bonne chance

Sub Pied_page_sauvegarde2()

Dim sht As Worksheet

For Each sht In ActiveWorkbook.Worksheets

Dim LeNom As String
Application.EnableEvents = False
With sht
LeNom = ActiveWorkbook.FullName
With .PageSetup
.RightFooter = ""
.CenterFooter = ""
.LeftFooter = ""

End With
sht.PageSetup.RightFooter = "&""Stylus bt,Normal""&5" &
"..." & Right(LeNom, 150)
sht.PageSetup.LeftFooter = "&""Stylus BT,Normal""&6" &
"Préparé par: ton nom." & Chr(10) & "Revision : &D"
End With

Application.EnableEvents = True

Next sht

ActiveWorkbook.Save

End Sub


--
Gaspareau

Règle anti spam
Pour réponse personnelle enlever un d au
début de mon adresse courriel


"titi" a écrit dans le message
de news:%
bonjour
desole j ai du reprendre ma question ...

j ai pris note vos reponse notamment :

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Worksheets("feuil2").PageSetup.CenterFooter = Format(Date,
"dd mmmm yyyy")

End Sub


pour ajouter le texte je suppose: ... = "Imprimé le "+
Format (...


mais pour que cela s 'applique a toutes les feuilles sans
ecrire a chacune :

Worksheets("feuil1....
comment faire

mercie pour tout
A+
Th




Avatar
Vincent.
Bonjour,
Par exemple :

Private Sub Workbook_BeforePrint(Cancel As Boolean)

Dim f as Worksheet
For Each f In ThisWorkbook.Worksheets
f.PageSetup.CenterFooter = _
"Imprimé le " & Format(Date, "dd mmmm yyyy")
Next f

End Sub

A+

V.

-----Message d'origine-----
bonjour
desole j ai du reprendre ma question ...

j ai pris note vos reponse notamment :

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Worksheets("feuil2").PageSetup.CenterFooter = Format
(Date, "dd mmmm yyyy")

End Sub


pour ajouter le texte je suppose: ... = "Imprimé le "+
Format (...


mais pour que cela s 'applique a toutes les feuilles sans
ecrire a chacune :

Worksheets("feuil1....
comment faire

mercie pour tout
A+
Th


.