Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Informations systèmes dans VBA Excel

Informations systèmes dans VBA Excel

5 réponses
Avatar
Stéphane L.
Bonjour,

Je cherche à récupérer dans le VBA Excel des informations systèmes.

Par exemple, le nom de la session Windows en cours, ou le nom de
l'ordinateur.

Merci d'avance

--
Cordialement,

Stéphane L.
Signaler un problème avec ce contenu

5 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Michel Pierron
Bonjour Stéphane;
Par exemple:
With CreateObject("WScript.NetWork")
MsgBox "User Name: " & vbTab & .UserName & vbLf _
& "Computer Name: " & vbTab & .ComputerName & vbLf _
& "Domain Name: " & .UserDomain
End With

MP

"Stéphane L." a écrit dans le message de
news:%
Bonjour,

Je cherche à récupérer dans le VBA Excel des informations systèmes.

Par exemple, le nom de la session Windows en cours, ou le nom de
l'ordinateur.

Merci d'avance

--
Cordialement,

Stéphane L.




Avatar
Stéphane L.
Merci Michel

"Michel Pierron" a écrit dans le message de
news:uNq%
Bonjour Stéphane;
Par exemple:
With CreateObject("WScript.NetWork")
MsgBox "User Name: " & vbTab & .UserName & vbLf _
& "Computer Name: " & vbTab & .ComputerName & vbLf _
& "Domain Name: " & .UserDomain
End With

MP

"Stéphane L." a écrit dans le message de
news:%
Bonjour,

Je cherche à récupérer dans le VBA Excel des informations systèmes.

Par exemple, le nom de la session Windows en cours, ou le nom de
l'ordinateur.

Merci d'avance

--
Cordialement,

Stéphane L.








Avatar
Stéphane L.
Après tests,

.username fonctionne mais .computername et .userdomain ne fonctionne pas
correctement.
Quand je tape .username, les majuscules se mettent bien automatiquement dans
le code, et j'ai le nom d'utilisateur (prénom nom) qui apparait.
Mais si je tape .computername ou .userdomain, le texte reste en minuscule
et, au lieu de me renvoyer 1 erreur, il me renvoie uniquement le prénom dans
les 2 cas (qui n'est pourtant ni le nom de l'ordinateur ni le nom de domaine
(j'ai vérifié dans les propriétés systèmes) )



"Michel Pierron" a écrit dans le message de
news:uNq%
Bonjour Stéphane;
Par exemple:
With CreateObject("WScript.NetWork")
MsgBox "User Name: " & vbTab & .UserName & vbLf _
& "Computer Name: " & vbTab & .ComputerName & vbLf _
& "Domain Name: " & .UserDomain
End With

MP

"Stéphane L." a écrit dans le message de
news:%
Bonjour,

Je cherche à récupérer dans le VBA Excel des informations systèmes.

Par exemple, le nom de la session Windows en cours, ou le nom de
l'ordinateur.

Merci d'avance

--
Cordialement,

Stéphane L.








Avatar
Michel Pierron
Re Stéphane;
Peux-tu publier les lignes de code correspondantes, si ce n'est pas indiscret ?
MP

"Stéphane L." a écrit dans le message de
news:%
Après tests,

.username fonctionne mais .computername et .userdomain ne fonctionne pas
correctement.
Quand je tape .username, les majuscules se mettent bien automatiquement dans
le code, et j'ai le nom d'utilisateur (prénom nom) qui apparait.
Mais si je tape .computername ou .userdomain, le texte reste en minuscule
et, au lieu de me renvoyer 1 erreur, il me renvoie uniquement le prénom dans
les 2 cas (qui n'est pourtant ni le nom de l'ordinateur ni le nom de domaine
(j'ai vérifié dans les propriétés systèmes) )



"Michel Pierron" a écrit dans le message de
news:uNq%
Bonjour Stéphane;
Par exemple:
With CreateObject("WScript.NetWork")
MsgBox "User Name: " & vbTab & .UserName & vbLf _
& "Computer Name: " & vbTab & .ComputerName & vbLf _
& "Domain Name: " & .UserDomain
End With

MP

"Stéphane L." a écrit dans le message de
news:%
Bonjour,

Je cherche à récupérer dans le VBA Excel des informations systèmes.

Par exemple, le nom de la session Windows en cours, ou le nom de
l'ordinateur.

Merci d'avance

--
Cordialement,

Stéphane L.












Avatar
Stéphane L.
Oooops

Hhmhhmm... désolé... j'ai dis des bétises :)
ca marche parfaitement comme il faut :)

Merci Michel

"Michel Pierron" a écrit dans le message de
news:e%
Re Stéphane;
Peux-tu publier les lignes de code correspondantes, si ce n'est pas
indiscret ?

MP

"Stéphane L." a écrit dans le message de
news:%
Après tests,

.username fonctionne mais .computername et .userdomain ne fonctionne pas
correctement.
Quand je tape .username, les majuscules se mettent bien automatiquement
dans


le code, et j'ai le nom d'utilisateur (prénom nom) qui apparait.
Mais si je tape .computername ou .userdomain, le texte reste en
minuscule


et, au lieu de me renvoyer 1 erreur, il me renvoie uniquement le prénom
dans


les 2 cas (qui n'est pourtant ni le nom de l'ordinateur ni le nom de
domaine


(j'ai vérifié dans les propriétés systèmes) )



"Michel Pierron" a écrit dans le message de
news:uNq%
Bonjour Stéphane;
Par exemple:
With CreateObject("WScript.NetWork")
MsgBox "User Name: " & vbTab & .UserName & vbLf _
& "Computer Name: " & vbTab & .ComputerName & vbLf _
& "Domain Name: " & .UserDomain
End With

MP

"Stéphane L." a écrit dans le message de
news:%
Bonjour,

Je cherche à récupérer dans le VBA Excel des informations systèmes.

Par exemple, le nom de la session Windows en cours, ou le nom de
l'ordinateur.

Merci d'avance

--
Cordialement,

Stéphane L.