Récupérer Nom Collaborateur utilisant un fichier

Récupérer Nom Collaborateur utilisant un fichier - VB/VBA/VBS - Programmation

Marsh Posté le 16-03-2017 à 10:29:21    

Bonjour,
 
A partir du code de SilkyRoad (http://silkyroad.developpez.com/VBA/ProprietesClasseurs/), j'ai pu récupérer certaine information d'un PWP fermé.
 

Code :
  1. Sub proprietesFichier_getFile(Fichier As String)
  2.     '
  3.     'Nécessite d'activer la référence Microsoft Scripting Runtime
  4.     '
  5.     Dim Cible As Scripting.FileSystemObject
  6.     Dim Valeur As Scripting.File
  7.     Dim Resultat As String
  8.    
  9.     Set Cible = CreateObject("Scripting.fileSystemObject" )
  10.     Set Valeur = Cible.GetFile(Fichier)
  11.    
  12.     Resultat = "Chemin et nom complet : " & Cible.GetAbsolutePathName(Valeur) & Chr(10) & Chr(10) & _
  13.     "Nom fichier : " & Cible.GetFileName(Valeur) & Chr(10) & Chr(10)
  14.    
  16.     MsgBox Resultat
  18. End Sub


 
Quelqu'un sait comment récupérer le nom de la personne utilisant actuellement le PWP ?
 
Merci pour votre aide !
Bonne journée


Message édité par cha_choux le 16-03-2017 à 11:09:14
Reply

Marsh Posté le 16-03-2017 à 10:29:21   

Reply

Marsh Posté le 16-03-2017 à 14:03:11    

 
             Bonjour,
 
             sans décodeur, voir alors ici …
 

Reply

Marsh Posté le 16-03-2017 à 14:29:12    

Je n'ai pas vraiment compris ta réponse
Concernant celles déjà proposées elle ne correspondes pas.

Reply

Marsh Posté le 16-03-2017 à 15:52:20    

Pour information voici la ligne de code à utiliser
 
 NomUtilisateur = Environ("username" )
 MsgBox NomUtilisateur

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed