Erreur codage

[papy 73 ans]

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
Dim MyHex As Variant

Fichier = "E:\Users\Castor\desktop\FichesRetour"
LeZip = "E:\Users\Castor\desktop.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

 

[Dranreb]

Bonjour.
Pour Microsoft, la bibliothèque Scripting est une des plus stable que je connaisse.
J'ai fini par considérer la référence Microsoft Scripting Runtime comme parmi celle à cocher obligatoirement dans tous les classeurs, et n'utilise donc jamais les liaisons tardives pour ses méthodes et propriétés. Outre un accroissement microscopique de performance, ça facilite incontestablement la mise au point.
Au lieu de Object, FSO sera du type FieleSystemObject connu grâce à cette bibliothèque, et New FileSystemObject remplacera avantageusement CreateObject("Scripting.FileSystemObject").

 

[papy 73 ans]

Bonjour Dranreb,
Je te remercie mille fois de t'intéresser à ma demande, mais plutôt nul en Vba, comment corriger ce code Stp
J'ai coché la bibliothèque Microsoft Scripting Runtime

 

[Dranreb]

Et déclaré FSO AS FileSystemObject ?
Et initialisé par Set FSO = New FileSystemObject ?
Que dit MsgBox TypeName(FSO.CreateTextFile(etc. ?
Je ne suis pas sûr qu'on puisse traiter un fichier .zip en tant que fichier texte. Mais je ne sais pas comment ranger un fichier dans un .zip. Il faudrait que je cherche beaucoup.

 

[papy 73 ans]

re
Je suis désolé mais je ne comprend rien à ce que tu écris
Je sens que je vais laisser tomber

 

[Dranreb]

Je dis que l'extension .zip n'est pas bonne. C'est seulement .txt pour un objet TextStream à renvoyer par la méthode CreateTextFile de l'objet FileSystemObject. Une fois le fichier texte créé c'est probablement une autre opération pour l'envoyer dans un .zip.