Bonjour à tous,
 
Pour faire simple j'ai une liste d'utilisateur. Cette liste ce nomme users.txt
Ce que je désire faire est de copier un fichier précis depuis un profil utilisateur et le copier à un endroit différent. J'ai fais un petit quelque chose:
 
Set objFSO = CreateObject("Scripting.FileSystemObject" )
Set objFile = objFSO.OpenTextFile("users.txt" )
Do Until objFile.AtEndOfStream
users = objFile.ReadLine
objFSO.CopyFile "\\server\users\bureau\fichier.txt" , "\\server\users\Mesdocuments\fichier.txt"
Loop
objFile.close
 
Je voudrai faire en sorte que le User en rouge soit le nom d'un des utilisateur de la liste users.txt
 
Merci de votre aide!!

A près plusieurs essais et un peu de recherche:
 
Set objFSO = CreateObject("Scripting.FileSystemObject" )
Set objFile = objFSO.OpenTextFile("c:\fichiers\users.txt" )
Do Until objFile.AtEndOfStream
users = objFile.ReadLine
objFSO.CopyFile "c:\fichiers\fichier.doc" , "c:\fichiers\" & users & "\"
Loop
objFile.close
 
 
(pour ceux que ca intéresse)