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


/ Published in: Visual Basic
Save to your folder(s)

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


Copy this code and paste it in your HTML
  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


Comments

RSS Icon Subscribe to comments

You need to login to post a comment.