insertion nom utilisateur

[darib52]

bonjour à tous,
comment obtenir l'insertion auto du nom de l'utilisateur du prog lors de l'impression ?
dans word, par ex, il suffit d'insérer le champ 'username'.
je n'ai pas trouver d'équivalent dans excel.

merci de vos réponses
amitiés

 

[Zon]

Salut,

Tu as l' évènement beforeprint dans thisworkbook pour mettre en auto le nom de l'utlisateur, ici dans le pied de page à gauche... POur les autres propriétés tu as l'neregistreur de macro.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
  With ActiveSheet.PageSetup
    .LeftFooter = NomUser(Environ(26))
  End With
End Sub

Dans un module standard pour avoir le nom mets la fonction suivante:

Function NomUser$(ByVal Ch$)
  NomUser = Right(Ch, Len(Ch) - InStr(1, Ch, '='))
End Function

A+++