Archivage :Macro à adapter

[gildas lechat]

Bonjour le forum,

Je travaille dans un environnement ou le nombre de dossier présent sous un même répertoire est important et qui évolue tout les jours.
J’ai récupéré une macro qui permet de zipper automatiquement les fichiers. (merci MichelXLD).

Sub ZipFichier()
Dim oShell As Object, Fso As Object
Dim i As Long
Dim Fichier As String, MyBinary As String
Dim LeZip As Variant
Dim MyHex As Variant

Fichier = "Z:\sagem\sagem1.xls"
LeZip = "Z:\sagem\sagem1.zip"

Set Fso = CreateObject("Scripting.FileSystemObject")
MyHex = _
Array(80, 75, 5, 6, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0)

For i = 0 To UBound(MyHex)
MyBinary = MyBinary & Chr(MyHex(i))
Next

With Fso.CreateTextFile(LeZip, True)
.Write MyBinary
.Close
End With

Set oShell = CreateObject("Shell.Application")
oShell.NameSpace(LeZip).CopyHere (Fichier)

Set oShell = Nothing
End Sub

L’environnement de travail est celui-ci
L’architecture du dossier :
Z / rapport de micro-section / « nom dossier » / « fichiersssssss.xls »
Sous rapport le répertoire rapport de microsection j’ai une centaine de « nom dossier », comportant lui-même de quelques fichier (xls)

J’aimerai pouvoir l’adapter la macro avec les règles suivantes :
- zip uniquement les fichiers > 6 mois
- ne pas zipper les fichiers commencent par « a-»
- Garder l’architecture existante soit après zip :
A / rapport de micro-section / « nom dossier » / « fichiersssssss.zip »
- Supprimer les fichiers .xls ayant été zippé.

Et , dernier point, lorsque l’on effectue l’opération une seconde fois et toute les suivantes , garder sous
A / rapport de micro-section / « nom dossier » / « fichiersssssss.zip »
les fichiers déjas zipper et ajouter les nouveaux .zip sous le répertoire correspondant « nom fichier ».

J’avoue ce n’est pas gagné mais si vous pouvez m’aider sur ce projet.
Merci d'avance

Gildas

 

[gildas lechat]

Re : Archivage :Macro à adapter

Bonjour le forum,

Bon effectivement ça me parraît à moi insurmontable.
Si quelqu'un c'est par ou commencer (step by step)
Merci d'avance
Gildas

 

[gildas lechat]

Re : Archivage :Macro à adapter

Bonjour le forum,

Je me permet de remonter le sujet ci dessous.
Ci vous pouvez m'aider merci.

Gildas