Return to Snippet

Revision: 76796
at July 29, 2019 11:25 by martinbrait


Initial Code
Sub CopierFichierDansArchiveExistant()
'par Excel-Malin.com ( https://excel-malin.com )
'---------------------------------------------------------
'gestion des erreurs
    On Error GoTo ErreurCompression

'définition des variables
    Dim ApplicationArchivage As Object
    Dim FichierAArchiver, FichierZip
    
'informations sur les fichiers (chemins & noms)
    FichierAArchiver = "C:\Test\MonFichierWord.docx"
    FichierZip = "C:\Test\Archives\MonArchive_1.zip"
     
'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é.."

Exit Sub
ErreurCompression:
    MsgBox "Une erreur s'est produite..."
End Sub

Initial URL


Initial Description
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

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

Initial Tags
files, copy

Initial Language
Visual Basic