Discussion :

[Puresilver]

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.

[Tête de chat]

Bonjour,

transforme ton sub pour qu'il prenne les noms de fichiers en paramètre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
sub CompresserFichier(FichierAarchiver as String, FichierZip as String)
...
End Sub

Puis appelle-le depuis une boucle qui parcourt le dossier source (non testé) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub CompresserDossier(ByVal NomDossierCSV as string, ByVal NomDossierZip as string)
Dim NomFichier as string
If Right(NomDossierCSV,1) <> "\" then NomDossierCSV= NomDossierCSV& "\"
If Right(NomDossierZip,1) <> "\" then NomDossierZip= NomDossierZip& "\"
NomFichier = Dir (NomDossierCSV& "*.CSV")
While NomFichier <> ""
    CompresserFichier NomDossierCSV & NomFichier, NomDossierZIP & Left(NomFichier, len(NomFichier)-4) & ".zip"
    NomFichier=Dir()
Wend
End Sub

Après quoi tu n'auras plus qu'à l'appeler par exemple par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

CompresserDossier "\\i...\csv\", "\\i...\zip\"

Sauf que ça ne v pas marcher à cause du If Len(Dir(FichierZip)) > 0 qui va se télescoper avec le Dir() de l'appelant.
Donc il restera à lire et appliquer ce qui est raconté ici : https://www.developpez.net/forums/d2.../#post11921779

[Puresilver]

Un grand merci @Tête de chat.

Je vais lire ton autre post sur le DIR().

[Puresilver]

Quand je lance la fonction, il y a une erreur de syntaxe.

code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
If Right(NomDossierCSV,1) <> "\" then NomDossierCSV= NomDossierCSV& "\"  
If Right(NomDossierZip,1) <> "\" then NomDossierZip= NomDossierZip& "\"
NomFichier = Dir (NomDossierCSV& "*.CSV")

[Tête de chat]

Ajoute une espace avant les &

[Puresilver]

Merci