Application.UserName et beforePrint

Claudy · 4 Février 2015

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 · 4 Février 2015

Re : Application.UserName et beforePrint

Bonjour ,

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

Code:

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

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

 End With

 End Sub

Claudy · 4 Février 2015

Re : Application.UserName et beforePrint

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

camarchepas · 4 Février 2015

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

Application.UserName et beforePrint

Claudy

XLDnaute Accro

camarchepas

XLDnaute Barbatruc

Claudy

XLDnaute Accro

camarchepas

XLDnaute Barbatruc

Pièces jointes

Discussions similaires

Application.UserName et beforePrint

Claudy

XLDnaute Accro

camarchepas

XLDnaute Barbatruc

Claudy

XLDnaute Accro

camarchepas

XLDnaute Barbatruc

Pièces jointes

Discussions similaires

Privacy & Transparency

Privacy & Transparency