Discussion :

[AlainTech]

il me copie des fichiers de 2003.

Dont la dernière modification est en 2003?

[bov13]

j'ai pas vu ou tu as mi le set dans ta boucle...essai :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
For Each objFile in colFiles
  Set FsoFile = objFSO.GetFile(objFile.Name)
  if FsoFile.DateLastModified > DateAdd("yyyy", -1,year(Date)) Then 
    'Wscript.Echo objFile.Name
    objFSO.CopyFile objFile.Name, repertoiresauv & Nommachine & "\"
  end if
Next

Le set , je ne les pas mis dans la boucle. Au dessus du For, j'ai ces 2 lignes :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.GetFile(objFile.Name)

Donc, demain, j'essayerai comme tu dis, inclure dans la boucle, la ligne :
Set objFile = objFSO.GetFile(objFile.Name)

AlainTech, oui exacte, il me copie des fichiers dont leur dernieres dates de modification est 2003.

[SfJ5Rpw8]

ben si tu ne le met pas dans la boucle tu ne teste que la date du premier fichier ....
puis évite d'utiliser la vaiable objFile pour 2 type d'objets différents..

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Set objFile = objFSO.GetFile(objFile.Name)

[bov13]

ben si tu ne le met pas dans la boucle tu ne teste que la date du premier fichier ....
puis évite d'utiliser la vaiable objFile pour 2 type d'objets différents..

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Set objFile = objFSO.GetFile(objFile.Name)

Donc, j'ai mis la ligne suivante dans la boucle :
Set objFile = objFSO.GetFile(objFile.Name)

Il se passe bien quelque chose puisque il me copie plus aucun fichier doc. Même pas ceux dont la derniere date de modif est aprés 2005. Pour la variable objFile, quoi utiliser d'autre? En déclarer une nouvelle?

Pour info, voici le code entier :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
msgbox "Recherche de documents Word (Ceci peut prendre quelques minutes)",, "Programme de sauvegarde"
strComputer = "." 
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objWMIService = GetObject("winmgmts:" _ 
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") 
Set colFiles = objWMIService.ExecQuery _
("SELECT * FROM CIM_DataFile WHERE Drive = 'C:' AND Extension = 'doc'")
Set objFSO = CreateObject("Scripting.FileSystemObject")
For Each objFile in colFiles
Set objFile = objFSO.GetFile(objFile.Name)
if objFile.DateLastModified > DateAdd("yyyy", -1,year(Date)) Then 
'Wscript.Echo objFile.Name
objFSO.CopyFile objFile.Name, repertoiresauv & Nommachine & "\"
end if
Next
msgbox "Copie des fichiers terminés",,"Programme de sauvegarde"

[SfJ5Rpw8]

....

Il se passe bien quelque chose puisque il me copie plus aucun fichier doc. Même pas ceux dont la derniere date de modif est aprés 2005. Pour la variable objFile, quoi utiliser d'autre? En déclarer une nouvelle?
....

voir #20

[bov13]

voir #20

J'ai donc modifié par FsoFile.
De nouveau, il me copie tous les fichiers word. Je comprend pas. Je dois pas etre loin de la solution mais bon, c'est un peu désesperant quand même!

[SfJ5Rpw8]

enleve aussi le year .

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DateAdd("yyyy", -1,Date)

[bov13]

enleve aussi le year .

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DateAdd("yyyy", -1,Date)

Ah enfin quelque chose qui me paraît correct. Il m'a copier uniquement 2 fichiers qui ont une date de modification de 2006. Je continuerai mes tests sur plusieurs autres pc pour m'assurer que c'est bon. En tout cas, merci beaucoup!