Mise en page : mettre nom utilisateur en pied de page

[HUGS]

Bonjour,

Le nom d'utilisateur peut se trouver ainsi :

Range("A1").value = Application.UserName

...

peut-on intégrer ensuite ce nom d'utilisateur dans le pied de page de la mise en forme avant impression d'une page excel ?

Merci d'avance.

HUGS

 

[MJ13]

Re : Mise en page : mettre nom utilisateur en pied de page

Bonjour

Oui, c'est assez facile (enfin je pense).

Utilise l'enregistreur de macro en faisant ta mise en page puis retrouve dans le code la ligne (avec foot, il me semble) et place a cette ligne après le égal

]=Application.UserName[/CODE
 
A tester.

 

[JCGL]

Re : Mise en page : mettre nom utilisateur en pied de page

Bonjour à tous,

Peux-tu essayer avec :

Option Explicit

Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.CenterFooter = Application.UserName
End Sub

Dans le ThisWorkBook :

A+ à tous
​

 

[HUGS]

Re : Mise en page : mettre nom utilisateur en pied de page

Super JCGL ... merci MJ13 ...

c'est pil ce qui me fallait ...

Encore merci ... longue vie à XLD

HUGS