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

J'ai essayé ton programme (voir ci-dessous), mais cela ne copie pas seulement les valeurs des cellules. Tout est copié (y compris les formules), donc cela se remet à jour dès que j'ouvre le fichier de sauvegarde...
 
1.Dim AppExc
2.Set AppExc = CreateObject("Excel.application" )
3.AppExc.Workbooks.Open ("C:\Classeur1.xls" )
4.AppExc.Cells.Select
5.AppExc.Selection.Copy
6.AppExc.Workbooks.Add
7.AppExc.Cells.Select
8.AppExc.ActiveSheet.Paste
9.AppExc.CutCopyMode = False
10.AppExc.ActiveWorkbook.SaveAs ("C:\Classeur2.xls" )
11.AppExc.Quit
12.Set AppExc = Nothing

En effet faut faire un collage spécial valeur + format.

Et tu fais ça comment avec un programme ?

Tu n'abuserais pas un chouilla toi ?
 
http://lmgtfy.com/?q=vba+excel+collage+special

Si, je le reconnais, j'abuse...
 
Mais le problème reste entier, car je n'arrive pas à intégrer la formule qui permet de copier uniquement les valeurs dans ton programme...
 
Où et comment intégrer ça : Selection.PasteSpecial Paste:=xlPasteValues  
 
Merci

En lieu et place du .ActiveSheet.Paste