Bonjour à toutes et tous, novice, j'aimerai un coup de pouce sur:
J'ai un répertoire avec de nombreux .csv et j'aimerai compresser dans un autre répertoire, chaque fichier dans une archive du même nom en .zip.

J'ai ceci qui fonctionne, mais pour un fichier nommé.

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
18
19
20
'définition des variables
    Dim ApplicationArchivage As Object
    Dim FichierAArchiver, FichierZip
 
'informations sur les fichiers (chemins & noms)
    FichierAArchiver = "\\i...\csv\wkb400-599.csv"
    FichierZip = "\\i...\zip\MonArchive_1.zip"
 
'créer une nouvelle archive
    If Len(Dir(FichierZip)) > 0 Then Kill FichierZip 'supprime l'archive s'il existe déjà
    Open FichierZip For Output As #1
        Print #1, Chr$(80) & Chr$(75) & Chr$(5) & Chr$(6) & String(18, 0)
    Close #1
 
'copier le fichier à archiver dans l'archive
    Set ApplicationArchivage = CreateObject("Shell.Application")
    ApplicationArchivage.Namespace(FichierZip).CopyHere FichierAArchiver
 
'Message final
    MsgBox "L'archivage a été lancé..."



Merci de votre aide, de votre aiguillage et de votre bienveillance.