Compresser un fichier Excel sous VBA

Bonjour,

Je veux archiver avec WinRAR ou WinZip un fichier Excel Test.xlsx sous le même nom et dans le même dossier Mars 2021.

FichierAArchiver "C:\User\Mes documents\Mars 2021\Test.xlsx"

Merci par avance pour votre retour.

Bonjour Dev007

Zipper avec Windows, à voir si cet ancien code fonctionne toujours

Sub ZipFichier()
    Dim oShell As Object, Fso As Object
    Dim i As Long
    Dim Fichier As String, MyBinary As String
    Dim LeZip As Variant
    Dim MyHex As Variant

    Fichier = "C:\le classeur.xls"
    LeZip = "C:\Ma sauvegarde.zip"

    Set Fso = CreateObject("Scripting.FileSystemObject")
    MyHex = _
        Array(80, 75, 5, 6, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0)

    For i = 0 To UBound(MyHex)
        MyBinary = MyBinary & Chr(MyHex(i))
    Next

    With Fso.CreateTextFile(LeZip, True)
        .Write MyBinary
        .Close
    End With

    Set oShell = CreateObject("Shell.Application")
    oShell.Namespace(LeZip).CopyHere (Fichier)

    Set oShell = Nothing
End Sub

@+

Bonjour BrunoM45,

Merci bien ça fonctionne

Donc cet ancien code avec WinZip est toujours opérationnel