Ouvrir un fichier Excel en fonction de l'Username

T

Tentative

XLDnaute Occasionnel

• 16 Mars 2015

• #2

Re : Ouvrir un fichier Excel en fonction de l'Username

Bonjour,

Une recherche sur le forum me donne :
https://www.excel-downloads.com/threads/vba-e-recuperer-le-nom-de-lutilisateur.65483/

Est-ce ce que tu cherches ?


Tentative

 

Vote positif 0 Vote négatif

Iznogood1

XLDnaute Impliqué

• 16 Mars 2015

• #3

Re : Ouvrir un fichier Excel en fonction de l'Username

Si tu utilises un "active directory"

Code:

  Dim objAD As Object
  Dim objUser As Object
  Set objAD = CreateObject("ADSystemInfo")
  Set objUser = GetObject("LDAP://" & objAD.UserName)
  MsgBox objUser.DisplayName

 

Vote positif 0 Vote négatif

F

fehmous

XLDnaute Nouveau

• 16 Mars 2015

• #4

Re : Ouvrir un fichier Excel en fonction de l'Username

Merci à vous 2 pour vos réponses,

J'ai finalement opté pour un : Environ("USERNAME")

A+

 

Vote positif 0 Vote négatif

N

nada bahri

XLDnaute Nouveau

• 19 Juillet 2019

• #5

Iznogood1 à dit:

Re : Ouvrir un fichier Excel en fonction de l'Username

Si tu utilises un "active directory"

Code:

  Dim objAD As Object
  Dim objUser As Object
  Set objAD = CreateObject("ADSystemInfo")
  Set objUser = GetObject("LDAP://" & objAD.UserName)
  MsgBox objUser.DisplayName

Cliquez pour agrandir...

ou on intégrer ce code pour connecter ou lier excel avec un active directory ???
(je sais que cette discussion est ancienne depuis 2015 , mais j'ai déja ouvrir une autre)
merciii d'avance

 

Vote positif 0 Vote négatif

Iznogood1

XLDnaute Impliqué

• 23 Juillet 2019

• #6

Ou tu veux !
Par exemle dans "Workbook Open" pour personnalier le fichier en fonction de l'utilisateur

 

Pièces jointes

• UserName in AD.xlsm

  12.8 KB · Affichages: 6

Vote positif 0 Vote négatif