VBA et format de texte en pied de page

[Amilo]

Bonjour le forum,

J'utilise le code suivant pour indiquer automatiquement un texte et le nom de l'utilisateur en pied de page dans un fichier Excel,

Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.LeftFooter = "BlaBla" & Application.UserName
End Sub

Par contre, je souhaite mettre en forme ce texte et le nom de l'utilisateur (police et la taille) soit l'ensemble de mon pied de page de gauche :

J'ai pensé à un code du type ci-dessous mais sans réussite :

Private Sub Workbook_BeforePrint(Cancel As Boolean)
With ActiveSheet.PageSetup
.LeftFooter = "BlaBla" & Application.UserName
.Font.Name = “Times New Roman”
.Seize = 12
End With
End Sub

Merci d'avance pour votre soutien

Cordialement

 

[Pierrot93]

Re : VBA et format de texte en pied de page

Bonjour,

essaye comme suit :

ActiveSheet.PageSetup.LeftFooter = "&""Times New Roman,Gras""&12blabla" & Application.UserName

bon après midi
@+

 

[kjin]

Re : VBA et format de texte en pied de page

Bonjour,
Non, comme ça c'est pas possible...

With ActiveSheet.PageSetup
    .LeftFooter = "&""Times New Roman""&G&12Blablabla " & Application.UserName
End With

...F1 pour connaitre les codes de mise en forme pour les en-têtes et les pieds de page

Edit : Salut Pierrot 🙂

A+
kjin

 

[Amilo]

Re : VBA et format de texte en pied de page

Bonjour Pierrot93, Kjin,

j'ai testé les 2 solutions et ça fonctionne trés bien,

Merci Pierrot93 d'avoir intégrer l'option "texte en gras" dans le code, c'est tout bête et bon savoir,

Merci encore à vous 2,

Bonne journée à toutes et à tous

Cordialement

 

[kjin]

Re : VBA et format de texte en pied de page

Re,

"&""Times New Roman""&G&12Blablabla " & Application.UserName

ce serait juste pour faire joli ?!
A+
kjin

 

[Amilo]

Re : VBA et format de texte en pied de page

Oups,

Désolé Kjin,

j'ai remarqué après coup que les 2 codes étaient quasiment identiques mais j'avoue que ce détail m'avait échappé,

Pas évident pour un débutant de faire la différence...

Merci d'avoir mis le doigt dessus...c'est une bonne façon d'apprendre et de comprendre toutes les possibilités.

Cordialement