Sauvegarder les fichiers utiliser le jour

[toune21]

Bonjour à tous,
Brigitte tu est vue.
Toute la journée je travaille sur des fichiers WORD EXCEL, faisant appel à plusieurs fichiers (temps.xls ; courrier.word ; etc.)
Je reprend tous ses fichiers beaucoup de fois dans la journée, que j'enregistre au fur et à mesure.
Ce que je souhaiterais, 🙂 c'est en fin de journée me faire une sauvegarde de tous les fichiers touché dans la journée.
Je suis sur VISTA, OUI 🙄 j'actionne la sauvegarde des fichiers.
J'ai commencé une macro, je ne sais pas comment selectionner les fichiers du 01/07/2010.
Si quelqu'un passe par la merci de m'éclairer 😉

 

[Odesta]

Re : Sauvegarder les fichiers utiliser le jour

Bonjour Maire Madeleine

Voici un petit programme d'archivage basé sur la date de modification :

Sub archivage()

chemin = "D:\dossier\"
chemin_archive = "D:\dossier\archives\"
nb_fic = 0

Set fso = CreateObject("Scripting.filesystemobject")
Set dossier = fso.getfolder(chemin)
 
date_selectionnee = Int(Now)  'date du jour
 
For Each fichier In dossier.Files
    If fichier.Type = "Feuille de calcul Microsoft Excel" Then
        date_fichier = fichier.datelastmodified 'récuperer la date de modification
        date_fichier_journee = Int(date_fichier) 'récuperer la date sans les heures/minutes/secondes
    
        If date_fichier_journee = date_selectionnee Then 'si la date est celle du jour :
            fso.copyfile fichier, chemin_archive & "archive_" & fichier.Name 'enregistrer le fichier dans un répertoire avec le préfixe archive

            nb_fic = nb_fic + 1 'compter les fichiers
        End If
    End If
Next

Select Case nb_fic 'création des messages
    Case 1: MsgBox "1 fichier archivé"
    Case 0: MsgBox "Aucun fichier archivé"
    Case Else: MsgBox nb_fic & " fichiers archivés"
End Select

End Sub

Si vous souhaitez travailler sur plusieurs sous-dossier, il faut rajouter un niveau de For/Next et utiliser sous_dossier.SubFiles

Cordialement
Olivier

 

[toune21]

Re : Sauvegarder les fichiers utiliser le jour

Bonsoir Odesta,
Merci pour votre réponse je vais essayer et je vous certainement à bientôt