Advanced Search

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