Advanced Search

[vba-basic] Archiver/compresser un fichier avec VBA

/ Published in: Visual Basic
Save to your folder(s)
Il suffit d'indiquer le nom du fichier à archiver et le nom de l'archive. Par défaut, si l'archive mentionné existe déjà, la macro va l'effacer avant de le recréer.

Archive / compress a file with VBA

Expand | Embed | Plain Text

Copy this code and paste it in your HTML 
  1. Sub ArchiverUnFichier()
  2. 'par Excel-Malin.com ( https://excel-malin.com )
  3. '---------------------------------------------------------
  4. 'gestion des erreurs
  5.     On Error GoTo ErreurCompression
  6.  
  7. 'définition des variables
  8.     Dim ApplicationArchivage As Object
  9.     Dim FichierAArchiver, FichierZip
  10.  
  11. 'informations sur les fichiers (chemins & noms)
  12.     FichierAArchiver = "C:\Test\MonFichierWord.docx"
  13.     FichierZip = "C:\Test\Archives\MonArchive_1.zip"
  14.  
  15. 'créer un nouveau archive
  16.     If Len(Dir(FichierZip)) > 0 Then Kill FichierZip 'supprime l'archive s'il existe déjà
  17.     Open FichierZip For Output As #1
  18.         Print #1, Chr$(80) & Chr$(75) & Chr$(5) & Chr$(6) & String(18, 0)
  19.     Close #1
  20.  
  21. 'copier le fichier à archiver dans l'archive
  22.     Set ApplicationArchivage = CreateObject("Shell.Application")
  23.     ApplicationArchivage.Namespace(FichierZip).CopyHere FichierAArchiver
  24.  
  25. 'Message final
  26.     MsgBox "L'archivage a été lancé..."
  27.  
  28. Exit Sub
  29. ErreurCompression:
  30.     MsgBox "Une erreur s'est produite..."
  31. End Sub

Report this snippet


Comments

RSS Icon Subscribe to comments

You need to login to post a comment.