Reprise du message précédent :
Le 1er vbs, c'était ça :
1.Dim FichierSource, FichierDest, DateFichier, objFSO
2.
3.
4. 'Variables du fichier a copier et du dossier de destination
5. FichierSource = "c:\Classeur1.xls"
6. FichierDest = "C:\SauveFichierExcel\"
7. DateFichier = FormatDate(Date(), "-" )
8.
9. Set objFSO = CreateObject("Scripting.FileSystemObject" )
10. objFSO.Copyfile FichierSource, FichierDest & "Sauv du " & DateFichier & ".xls"
11.
12.
13.
14.
15.Function FormatDate(ValDate, Caractere)
16.
17.Dim MoisDate, JourDate
18.
19.ValDate = CDate(ValDate)
20.
21.Caractere = CStr(Caractere)
22.
23.MoisDate = Month(ValDate)
24. JourDate = Day(ValDate)
25.
26.FormatDate = CStr(Year(ValDate)) & Caractere
27.
28.If MoisDate < 10 Then
29. FormatDate = FormatDate & "0"
30.End If
31.
32.FormatDate = FormatDate & CStr(MoisDate) & Caractere
33.
34.If JourDate < 10 Then
35. FormatDate = FormatDate & "0"
36.End If
37.
38.FormatDate = FormatDate & CStr(JourDate)
39.
40.End Function