Bonjour,
Je rencontre un problème avec ce code sur la ligne With Fso.CreateTextFile(LeZip, True)
En vous remerciant pour l'aide que vous m'apporterez
Sub ZipFichier()
Dim oShell As Object, Fso As Object
Dim i As Long
Dim Fichier As String, MyBinary As String
Dim LeZip As Variant...