Bonjour,
J'ai créé un script qui récupere le chemin d'un dossier de travail créé par la suite un sous dossier workfolder et par la suite renomme par uen variable aléatoire les fichiers présent dans le dossier vers le dossier workfolder.

C'est cette dernière partie qui me pose problème (un truc tt bête je suis sur mais manque de recul par rapport à ça ) ou le script me ressort un fichier introuvable à tout les coups

Voici le code de la partie qui pose problème

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
set objDossier=FSO.GetFolder(fol)
For Each objFichier in objDossier.Files
 
	'Créer une valeur aléatoire
		Dim Alea1 , Alea2, fol
		Randomize
		Alea1 = int (Rnd * 100)
		Alea2 = int (Rnd * 999)
		NewName= "IMG_" & Alea1 & Alea2
	'msgbox "" & NewName		
		FSO.CopyFile objDossier & objFichier.Name , (fol & "\WorkFolder") & NewName
 
Next