Salut tout le monde,
 
Je souhaite realiser un enregistrement de fichier dans un autre dossier.
J'ai realise cette macro avec l'aide d'un ami qui lui l'a teste sur son PC perso(excel version 2007) ca fonctionnait.moi sur mom PC perso Version 2003 d'excel ca ne fonctionnait pas. Y a t'il un probleme de Library ou est ce que c'est mon code qui ne fonctionne pas?
 
Chemin1 est le chemin ou est situe mon fichier a sovegarder
Chemin2 est le dossier ou je souhaite sauvegarder mon fichier qui se trouve dans le chemin1.
NonFichier est le fichier a sauvegarder dans le chemin2
 
1.Sub backup2()
 
2.Dim chemin1, chemin2 As String
3.chemin1 = "W:\Tiger\Students\Nicolas Fumard\DOCK AUDITS SHEETS\DV4\"
4.chemin2 = "W:\Tiger\Students\Nicolas Fumard\DOCK AUDITS SHEETS\DV4\Weekly save\"
5.Nomfichier = "Audits Sheets DV4.xls"
 
6.Dim FSO As Scripting
7.Dim Fichier As Scripting.File
8.Dim Fichier As Scripting.Folders
 
9.Set FSO = New Scripting.FileSystemObject
10.Set DossierSource = FSO.GetFolder(chemin2)
 
11.For Each Fichier In DossierSource.Files
12.    If Fichier = Nomfichier Then Fichier.Delete
13.Next Fichier
 
14.Set DossierSource = FSO.GetFolder(chemin1)
15.For Each Fichier In DossierSource.Files
16.    If Fichier.Name = Nomfichier And DateDiff("d", Fichier.DateLastModified, Now) <> 3 Then
17.        Application.DisplayAlerts = False
18.        ActiveWorkbook.SaveCopyAs (chemin2 + Nomfichier)
19.    End If
20.Next Fichier
 
21. Set Fichier = Nothing
22. Set DossierSource = Nothing
23. Set FSO = Nothing
 
24.End Sub
 
Merci d'avance.

Au risque d'apparaitre comme le plus con du monde, tu veux juste copier un fichier que tu nommes d'un dossier a un autre?

Désolé si je suis hors sujet, mais je n'aurai, dans ce cas, pas compris le sens de ta demande...