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

Joli pied de page

4 réponses
Avatar
ed
bonsoiir,
J'ai notamment grace à Isabelle pu mettre un code pour mettre à jour tous
les pieds de page de mon classeur. Super...
Mais je voudrais que le texte soit en 8pt tahoma gras... et là...
ça ne marche pas...

Sub RecupDatePiedPage()
Dim LaDate
LaDate = InputBox("Quelle date souhaitez-vous en pied de page?")
For Each Sheet In Worksheets
Sheet.PageSetup.RightFooter = "Paris, le " & LaDate
'With Sheet.PageSetup
'.LeftFooter = "&""Tahoma" & LaDate
'End With
Next
End Sub

...qui peut m'aider?
merci d'avance
ed
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
Gaspareau
Bonjour

Une ligne copiée du code que j'utilise et qui fonctionne très bien pour
mettre en Stylus bt Normal 5 pts

À adapter à ton code

If UCase(sht.Name) <> "TITRE" Then sht.PageSetup.RightFooter = "&""Stylus
bt,Normal""&5" & "..." & Right(LeNom, 150)

J'espère que ça t'aidera

Dany


"ed" a écrit dans le message de
news:
bonsoiir,
J'ai notamment grace à Isabelle pu mettre un code pour mettre à jour tous
les pieds de page de mon classeur. Super...
Mais je voudrais que le texte soit en 8pt tahoma gras... et là...
ça ne marche pas...

Sub RecupDatePiedPage()
Dim LaDate
LaDate = InputBox("Quelle date souhaitez-vous en pied de page?")
For Each Sheet In Worksheets
Sheet.PageSetup.RightFooter = "Paris, le " & LaDate
'With Sheet.PageSetup
'.LeftFooter = "&""Tahoma" & LaDate
'End With
Next
End Sub

...qui peut m'aider?
merci d'avance
ed


Avatar
ed
Merci Gaspareau ! j'espère que cela va fonctionner... si ça fonctionne chez
toi... Thanks for sharing
ed


Bonjour

Une ligne copiée du code que j'utilise et qui fonctionne très bien pour
mettre en Stylus bt Normal 5 pts

À adapter à ton code

If UCase(sht.Name) <> "TITRE" Then sht.PageSetup.RightFooter = "&""Stylus
bt,Normal""&5" & "..." & Right(LeNom, 150)

J'espère que ça t'aidera

Dany


"ed" a écrit dans le message de
news:
bonsoiir,
J'ai notamment grace à Isabelle pu mettre un code pour mettre à jour tous
les pieds de page de mon classeur. Super...
Mais je voudrais que le texte soit en 8pt tahoma gras... et là...
ça ne marche pas...

Sub RecupDatePiedPage()
Dim LaDate
LaDate = InputBox("Quelle date souhaitez-vous en pied de page?")
For Each Sheet In Worksheets
Sheet.PageSetup.RightFooter = "Paris, le " & LaDate
'With Sheet.PageSetup
'.LeftFooter = "&""Tahoma" & LaDate
'End With
Next
End Sub

...qui peut m'aider?
merci d'avance
ed







Avatar
ed
Bonjour,

Bon, et bien j'ai tout essayé mais cela ne fonctionne pas. J'arrive à avoir
8pts. Mais maintenant, mon RightFooter se positionne à gauche... bizarre....
voici ma ligne...

Sheet.PageSetup.RightFooter = "&""&8" & "Paris, le "& LaDate

Qd je donne indication de la police, le texte littéral se rajoute à mon
texte... et mon RightFooter est à gauche...

Sheet.PageSetup.RightFooter = "&""Tahoma,Bold,Italic""&8" & "Paris, le "&
LaDate

Help !!!
Merci d'avance



Merci Gaspareau ! j'espère que cela va fonctionner... si ça fonctionne chez
toi... Thanks for sharing
ed


Bonjour

Une ligne copiée du code que j'utilise et qui fonctionne très bien pour
mettre en Stylus bt Normal 5 pts

À adapter à ton code

If UCase(sht.Name) <> "TITRE" Then sht.PageSetup.RightFooter = "&""Stylus
bt,Normal""&5" & "..." & Right(LeNom, 150)

J'espère que ça t'aidera

Dany


"ed" a écrit dans le message de
news:
bonsoiir,
J'ai notamment grace à Isabelle pu mettre un code pour mettre à jour tous
les pieds de page de mon classeur. Super...
Mais je voudrais que le texte soit en 8pt tahoma gras... et là...
ça ne marche pas...

Sub RecupDatePiedPage()
Dim LaDate
LaDate = InputBox("Quelle date souhaitez-vous en pied de page?")
For Each Sheet In Worksheets
Sheet.PageSetup.RightFooter = "Paris, le " & LaDate
'With Sheet.PageSetup
'.LeftFooter = "&""Tahoma" & LaDate
'End With
Next
End Sub

...qui peut m'aider?
merci d'avance
ed









Avatar
ed
Pour info, la bonne syntaxe est:

Sheet.PageSetup.RightFooter = "&""Tahoma,Gras italique""&8Paris, le " & LaDate

Il suffisait de mettre une virgule, de savoir que le texte devait être en
français et que &8 devait être intégré au texte...
voili, voilou... Maintenant mon pied de page est joli... :-))
En esperant que cela serve un jour à qqun.
ed



Bonjour,

Bon, et bien j'ai tout essayé mais cela ne fonctionne pas. J'arrive à avoir
8pts. Mais maintenant, mon RightFooter se positionne à gauche... bizarre....
voici ma ligne...

Sheet.PageSetup.RightFooter = "&""&8" & "Paris, le "& LaDate

Qd je donne indication de la police, le texte littéral se rajoute à mon
texte... et mon RightFooter est à gauche...

Sheet.PageSetup.RightFooter = "&""Tahoma,Bold,Italic""&8" & "Paris, le "&
LaDate

Help !!!
Merci d'avance



Merci Gaspareau ! j'espère que cela va fonctionner... si ça fonctionne chez
toi... Thanks for sharing
ed


Bonjour

Une ligne copiée du code que j'utilise et qui fonctionne très bien pour
mettre en Stylus bt Normal 5 pts

À adapter à ton code

If UCase(sht.Name) <> "TITRE" Then sht.PageSetup.RightFooter = "&""Stylus
bt,Normal""&5" & "..." & Right(LeNom, 150)

J'espère que ça t'aidera

Dany


"ed" a écrit dans le message de
news:
bonsoiir,
J'ai notamment grace à Isabelle pu mettre un code pour mettre à jour tous
les pieds de page de mon classeur. Super...
Mais je voudrais que le texte soit en 8pt tahoma gras... et là...
ça ne marche pas...

Sub RecupDatePiedPage()
Dim LaDate
LaDate = InputBox("Quelle date souhaitez-vous en pied de page?")
For Each Sheet In Worksheets
Sheet.PageSetup.RightFooter = "Paris, le " & LaDate
'With Sheet.PageSetup
'.LeftFooter = "&""Tahoma" & LaDate
'End With
Next
End Sub

...qui peut m'aider?
merci d'avance
ed