complement d'une macro existante

Bonjour à tous

Je vous trouver un complement à cette macro qui me permette d'inserer lors de l'enregistrement du fichier,le " user" du pc utilisé ,la date et l'heure.Le tout était insereé en gardant le nom du fichier d'origine avec son extension:

prune.xls=prunedavid062009_1350.xls

pour info l'environnement est Excel 2003

sLocalFileName = ThisWorkbook.Path & "\" & ThisWorkbook.Name
sLocalTempFileName = sLocalFileName & ".tmp"
sDistantFileName = "repertoire distant/" & ThisWorkbook.Name
ThisWorkbook.SaveAs sLocalTempFileName
FileSystem.Kill sLocalFileName
ThisWorkbook.SaveAs sLocalFileName

la mecanique de ce script me permet d'enregistrer le fichier dans un repertoire precis et ne tiens pas compte du repertoire ou il a été ouvert.j'aimerais garder le principe.
L'idée c'est d'arriver à pomper l'identité de chaque opérateurs et qu'il s'insere automatiquement au nom de fichier avec la date et heure

Salut,

L'une des 2 variables suivantes est peut-être la réponse  à ta question.
Environ("UserName")
Environ("LOGONSERVER")

Je ne sais pas ce que ça donne sur un PC distant.

pour donner un truc du genre:
sFileName = Environ("UserName") & "_" & Format(Date, "_yyyy_mm_dd") & "_" & ThisWorkbook.Name

Akim

salut

Environ("UserName")ferait reference à l'utilisateur du poste?

en fait ce script fait parti d'une macro qui me sert a envoyer le fichier ouvert directement sur un serveur FTP via un bouton de commande.

le user dont j'ai besoin n'est pas le login de connexion mais bien un identité propre à chaque poste utilisé ( le nom du poste serait parfait) etant donné qu'il est unique

Salut

Pour le nom du poste c'est Environ("COMPUTERNAME")

En fait ce sont les variables d'environnement du PC.

Pour les connaitre dans une fenetre "invite de commandes" (console DOS)
tu tapes: set

Akim