Bonjour,
j'ai mis un classeur sur r=E9seau. Lorsque j'ouvre ce=20
classeur et qu'il est dej=E0 ouvert par qqun, je=20
souhaiterais r=E9cup=E9rer par VBA le nom (loggin) de=20
l'utilisateur (et eventuellement son N=B0 de machine).
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
isabelle
bonjour Cyrille,
Sub Macro1() With CreateObject("WScript.NetWork") MsgBox .UserName & Chr(10) & _ .ComputerName & Chr(10) & _ .UserDomain End With End Sub
isabelle
Bonjour, j'ai mis un classeur sur réseau. Lorsque j'ouvre ce classeur et qu'il est dejà ouvert par qqun, je souhaiterais récupérer par VBA le nom (loggin) de l'utilisateur (et eventuellement son N° de machine).
Qqun a une idée?? Merci d'avance.
Cyrille
bonjour Cyrille,
Sub Macro1()
With CreateObject("WScript.NetWork")
MsgBox .UserName & Chr(10) & _
.ComputerName & Chr(10) & _
.UserDomain
End With
End Sub
isabelle
Bonjour,
j'ai mis un classeur sur réseau. Lorsque j'ouvre ce
classeur et qu'il est dejà ouvert par qqun, je
souhaiterais récupérer par VBA le nom (loggin) de
l'utilisateur (et eventuellement son N° de machine).
Sub Macro1() With CreateObject("WScript.NetWork") MsgBox .UserName & Chr(10) & _ .ComputerName & Chr(10) & _ .UserDomain End With End Sub
isabelle
Bonjour, j'ai mis un classeur sur réseau. Lorsque j'ouvre ce classeur et qu'il est dejà ouvert par qqun, je souhaiterais récupérer par VBA le nom (loggin) de l'utilisateur (et eventuellement son N° de machine).
Sub Macro1() With CreateObject("WScript.NetWork") MsgBox .UserName & Chr(10) & _ .ComputerName & Chr(10) & _ .UserDomain End With End Sub
isabelle
Bonjour, j'ai mis un classeur sur réseau. Lorsque j'ouvre ce classeur et qu'il est dejà ouvert par qqun, je souhaiterais récupérer par VBA le nom (loggin) de l'utilisateur (et eventuellement son N° de machine).
Sub Macro1()
With CreateObject("WScript.NetWork")
MsgBox .UserName & Chr(10) & _
.ComputerName & Chr(10) & _
.UserDomain
End With
End Sub
isabelle
Bonjour,
j'ai mis un classeur sur réseau. Lorsque j'ouvre ce
classeur et qu'il est dejà ouvert par qqun, je
souhaiterais récupérer par VBA le nom (loggin) de
l'utilisateur (et eventuellement son N° de machine).
Sub Macro1() With CreateObject("WScript.NetWork") MsgBox .UserName & Chr(10) & _ .ComputerName & Chr(10) & _ .UserDomain End With End Sub
isabelle
Bonjour, j'ai mis un classeur sur réseau. Lorsque j'ouvre ce classeur et qu'il est dejà ouvert par qqun, je souhaiterais récupérer par VBA le nom (loggin) de l'utilisateur (et eventuellement son N° de machine).
