Dim objFSO CheminScriptActuel = Left(wscript.scriptfullname,Len(wscript.scriptfullname)-Len(wscript.scriptname)-1) CheminFichierSource = InputBox("Entrez le chemin du fichier à copier","Fichier a copier",CheminScriptActuel & "\" & "MonfichierSource.txt") CheminFichierCible = InputBox("Entrez le chemin du fichier destination","Fichier cible",CheminScriptActuel & "\" & "MonfichierCible.txt") Set objFSO = CreateObject("Scripting.FileSystemObject") Call objFSO.CopyFile (CheminFichierSource, CheminFichierCible, True) Set objFSO = Nothing