Forum |  HardWare.fr | News | Articles | PC | Prix | S'identifier | S'inscrire | Aide | Shop Recherche
1514 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Récupérer Nom Collaborateur utilisant un fichier

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Récupérer Nom Collaborateur utilisant un fichier

n°2297767
cha_choux
Posté le 16-03-2017 à 10:29:21  profilanswer
 

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.    
  15.     MsgBox Resultat
  16. 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
mood
Publicité
Posté le 16-03-2017 à 10:29:21  profilanswer
 

n°2297787
Marc L
Posté le 16-03-2017 à 14:03:11  profilanswer
 

 
             Bonjour,
 
             sans décodeur, voir alors ici
 

n°2297795
cha_choux
Posté le 16-03-2017 à 14:29:12  profilanswer
 

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

n°2297800
cha_choux
Posté le 16-03-2017 à 15:52:20  profilanswer
 

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


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Récupérer Nom Collaborateur utilisant un fichier

 

Sujets relatifs
Ouvrir une feuille excel depuis une autre et fermer celle d'origine.Macro Replace entre 2 fichiers excel
[EXCEL] Parsing .text --> ExcelVBA sur excel
Excel/VBA: L'editeur supprime automatiquement mes espaces![Aide] Requete site internet avec une textbox Excel
Fusionner des classeurs Excel, mais pas que ...Transfert de données Excel WEB
VBA-excel Copier-Coller après InputBox[PYTHON] VBA & Formules Excel vers site web Python
Plus de sujets relatifs à : Récupérer Nom Collaborateur utilisant un fichier



Copyright © 1997-2016 Hardware.fr SARL (Signaler un contenu illicite) / Groupe LDLC / Shop HFR