Application.UserName et beforePrint

[Claudy]

La procedure ci dessous ne fonctionne pas....

Private Sub Workbook_BeforePrint(Cancel As Boolean)
With ActiveSheet.PageSetup

.RightFooter = "&""-,Bold Italic""&16&U" + Application.UserName

End With

EndSub

Merci d'avance,
Claudy

 

[camarchepas]

Re : Application.UserName et beforePrint

Bonjour ,

A priori le end sub était attaché . Sinon le rightfooter est opérationnel depuis Excel 2007

Private Sub Workbook_BeforePrint(Cancel As Boolean)
 With ActiveSheet.PageSetup

   .RightFooter = "&""-,Bold Italic""&16&U" + Application.UserName

 End With

 End Sub

 

[Claudy]

Re : Application.UserName et beforePrint

Bonjour et merci,
mais mon username n'apparait toujours pas en bas à droite ;-(
A+
Claudy

 

[camarchepas]

Re : Application.UserName et beforePrint

C'est curieux car pour moi cela fonctionne ,

Peut être que l'username n'est pas renseigné ?

Sinon remplaces

.RightFooter = "&""-,Bold Italic""&16&U" + environ("USERNAME")

Voici ce que j'ai moi