[RESOLU] [VBA excel] copier un fichier d'un repertoire a un autre

Marsh Posté le 20-08-2008 à 16:07:31

bonjour voila mon probleme
je voudrais copier un fichier "Audits Sheets DV4.xls" de "W:\Tiger\Students\NF\" vers "W:\Tiger\Students\NF\Weekly Save\" si sa date de modification est superieur a 2 jours

voila ce que jai fait grace a de nombreux sujet du forum mais jai merde quelque part. mais ou ?

Code :

Sub backup()
chemin1 = "W:\test\"
Chemin2 = "W:\test\Weekly Save\"
nomfichier = "Audits Sheets DV4.xls"
Dim ObjRep1: Set ObjRep1 = oFSO.GetFolder(Chemin2)
Dim ObjSubFile: Set ObjSubFile = ObjRep1.Files
If DateDiff(D, ObjSubFile.DateLastModified, Now) > 2 Then
If filesystemobject.FileExists(Chemin2 + nomfichier) = True Then filesystemobject.DeleteFile (Chemin2 + nomfichier)
filesystemobject.CopyFile chemin1 + nomfichier, Chemin2
End If
End Sub

merci de votre aide

Message édité par 86vomito33 le 20-08-2008 à 22:04:43

Reply

Marsh Posté le 20-08-2008 à 16:07:31

Reply

Marsh Posté le 20-08-2008 à 16:09:36

Déjà, utilise les balises de code pour mettre ton code....

A quoi correspond "Chemin2 + nomfichier" ? Si c'est une concaténation, il faut utiliser "&" normalement...

Message édité par babasss le 20-08-2008 à 16:09:55

---------------
Feedback : http://forum.hardware.fr/hfr/Achat [...] 2666_1.htm

Reply

Marsh Posté le 20-08-2008 à 21:58:20

a noter de nombreux changements

Code :

Sub backup()
Dim chemin1, chemin2 As String
chemin1 = "C:\test\"
chemin2 = "C:\test\Weekly Save"
nomfichier = "Audits Sheets DV4.xls"
Dim FSO As Scripting.FileSystemObject
Dim DossierSource As Scripting.Folder
Dim Fichier As Scripting.File
Set FSO = New Scripting.FileSystemObject
Set DossierSource = FSO.GetFolder(chemin2)
For Each Fichier In DossierSource.Files
If Fichier = nomfichier Then Fichier.Delete
Next Fichier
Set DossierSource = FSO.GetFolder(chemin1)
For Each Fichier In DossierSource.Files
If Fichier.Name = nomfichier And DateDiff("d", Fichier.DateLastModified, Now) <> 3 Then
FSO.CopyFile chemin1 & nomfichier, chemin2
End If
Next Fichier
Set Fichier = Nothing
Set DossierSource = Nothing
Set FSO = Nothing
End Sub

le probleme venant de la ligne en rouge avec comme message acces refuse. normal dans la mesure ou je lance la macro a partir de ce fichier

je lai donc remplace par
Application.DisplayAlerts = False
ActiveWorkbook.SaveCopyAs (chemin2 + nomfichier)

Message édité par 86vomito33 le 20-08-2008 à 22:04:01

Reply

[RESOLU] [VBA excel] copier un fichier d'un repertoire a un autre

Sujets relatifs:

Leave a Replay