Posted By

martinbrait on 07/29/19


Tagged

files zip directories


Versions (?)

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


 / Published in: Visual Basic
 

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

  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  

You need to login to post a comment.