Posted By

martinbrait on 07/29/19


Tagged

files copy zip


Versions (?)

[vba-basic] Copier un fichier vers une archive existante


 / Published in: Visual Basic
 

Le code suivant vous permet de copier un fichier (par exemple un document Word ou un PDF) dans une archive existante. Cela implique que le fichier original sera ajouté à l'archive mais restera également dans sa forme originale (non-compressée) à l'endroit d'origine.

Copy a file to an existing archive

  1. Sub CopierFichierDansArchiveExistant()
  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. 'copier le fichier à archiver dans l'archive
  16. Set ApplicationArchivage = CreateObject("Shell.Application")
  17. ApplicationArchivage.Namespace(FichierZip).CopyHere FichierAArchiver
  18.  
  19. 'Message final
  20. MsgBox "L'archivage a été lancé.."
  21.  
  22. Exit Sub
  23. ErreurCompression:
  24. MsgBox "Une erreur s'est produite..."
  25. End Sub

Report this snippet  

You need to login to post a comment.