Partager via


Propriété Application.UserName (Project)

Obtient ou définit le nom local de l’utilisateur actuel. Type de données String en lecture-écriture.

Syntaxe

expression. Nom d'utilisateur

expressionUne variable qui représente un objetApplication.

Remarques

La propriété UserName de l’objet Application affiche le nom d’utilisateur local. En comparaison, la propriété UserName de l’objet Profile affiche le nom d’ouverture de session.

Utilisez la propriété UserName pour personnaliser les options ou macros du projet pour un utilisateur particulier. Par exemple, supposons que vous avez écrit une macro nommée PrintReport qui imprime le rapport Mine.mpp lorsque vous appuyez sur Ctrl+R, mais qu’un autre utilisateur souhaite utiliser les mêmes touches de raccourci pour imprimer le rapport Yours.mpp. Vous pouvez modifier la macro PrintReport de manière à ce qu’elle vérifie la propriété UserName et qu’elle imprime ensuite Mien.mpp si vous êtes l’utilisateur actuel ou Vôtre.mpp dans le cas contraire.

Remarque

La propriété UserName est le nom local, mais peut avoir une autre valeur. Le champ Auteur dans la boîte de dialogue Propriétés du projet est le nom d’ouverture de session de l’utilisateur par défaut.

Exemple

L’exemple suivant définit les préférences en fonction du nom de l’utilisateur actuel.

Sub GetUserName() 
 
    ' Get the user name. 
    UserName = InputBox$("What's your name?", , UserName) 
 
    ' If user is Jeff Smith, then set certain preferences. 
    If UserName = "Jeff Smith" Then 
        DisplayScheduleMessages = False 
        BarRounding On:=False 
        Calculation = True 
    ' Otherwise, set default preferences. 
    Else 
        DisplayScheduleMessages = True 
        BarRounding On:=True 
        Calculation = False 
    End If
End Sub

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.