Récupérer Nom Collaborateur utilisant un fichier

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Récupérer Nom Collaborateur utilisant un fichier

cha_choux

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 :

Sub proprietesFichier_getFile(Fichier As String)
'
'Nécessite d'activer la référence Microsoft Scripting Runtime
'
Dim Cible As Scripting.FileSystemObject
Dim Valeur As Scripting.File
Dim Resultat As String
Set Cible = CreateObject("Scripting.fileSystemObject" )
Set Valeur = Cible.GetFile(Fichier)
Resultat = "Chemin et nom complet : " & Cible.GetAbsolutePathName(Valeur) & Chr(10) & Chr(10) & _
"Nom fichier : " & Cible.GetFileName(Valeur) & Chr(10) & Chr(10)
MsgBox Resultat
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

Publicité

Marc L

Bonjour,

sans décodeur, voir alors ici …

cha_choux

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

cha_choux

Pour information voici la ligne de code à utiliser

NomUtilisateur = Environ("username" )
MsgBox NomUtilisateur

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 --> Excel	VBA 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

Page générée en 0.049 secondes