Dans cet article, nous allons créer une macro qui renverra l’ordinateur et le nom d’utilisateur pour l’utilisateur connecté.

Dans cet exemple, nous voulons extraire le nom de l’ordinateur dans la cellule C10 et le nom d’utilisateur dans la cellule C11.

ArrowMain

Nous avons créé une macro «GetComputerUserName» pour trouver l’ordinateur et le nom d’utilisateur. Nous pouvons exécuter la macro en cliquant sur le bouton «Soumettre».

ArrowOutput

La macro extrait le nom de l’ordinateur dans la cellule C10 et le nom d’utilisateur dans la cellule C11.

Explication du code

Fonction Environ

La fonction Environ renvoie la valeur de chaîne associée à la variable d’environnement du système d’exploitation.

Syntaxe de la fonction Environ

Environ (\ {Nom de la variable d’environnement | nombre})

Veuillez suivre ci-dessous pour le code

Sub GetComputerUserName()

Dim ComputerName, UserName As String

'Getting computer name

ComputerName = Environ("computername")

'Getting user name

UserName = Environ("username")

'Assigning value to cell C10 and C11

Range("C10").Value = ComputerName

Range("C11").Value = UserName

End Sub

Si vous avez aimé ce blog, partagez-le avec vos amis sur Facebook et Facebook.

Nous serions ravis de vous entendre, faites-nous savoir comment nous pouvons améliorer notre travail et le rendre meilleur pour vous. Écrivez-nous à [email protected]