XL 2021 Transformer fichier zip en xlsm

[Nicolas JACQUIN]

Bonjour à tous,
Suite à ma demande précédente, comment transformer mon fichier zip en xlsm
En vous remerçiant.

    Dim Source, Destination, MyHex, MyBinary
    Dim oShell, oApp, oFolder, oCTF, oFile
    Dim oFileSys
    
    'Spécifiez le répertoire
    Source = "D:\Users\Nicolas\Desktop\TestZip"
    Destination = "D:\Users\Nicolas\Desktop\maSauvegarde.zip"
    
    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
    
    Set oShell = CreateObject("WScript.Shell")
    Set oFileSys = CreateObject("Scripting.FileSystemObject")
    
    'Création de la base du fichier zip.
    Set oCTF = oFileSys.CreateTextFile(Destination, True)
    oCTF.Write MyBinary
    oCTF.Close
    Set oCTF = Nothing
    
    Set oApp = CreateObject("Shell.Application")
    
    Set oFolder = oApp.Namespace(Source)
    If Not oFolder Is Nothing Then _
        oApp.Namespace(Destination).CopyHere oFolder.Items
    
    Set oFile = Nothing
    On Error Resume Next
    
    Do While (oFile Is Nothing)
        'Attention: provoque une erreur 70 si un des fichiers à zipper
        'est toujours ouvert.
        Set oFile = oFileSys.OpenTextFile(Destination, ForAppending, False)
        
        If Err.Number <> 0 Then
            Err.Clear
        End If
    Loop

Merci
Nicolas

 

[TooFatBoy]

Bonjour,

Il y a quoi dans ton ZIP ?
Si ce sont les fichiers xml d'un classeur, il suffit de changer l'extension.


Ma remarque hyper puissante : un xlsm est un zip. En revanche un zip n'est pas forcément un xlsm.

 

[Nicolas JACQUIN]

Bonjour TooFatBoy,
Voilà ce qu'il y a dedans, rien de spécial, juste le contenu d'un dossier provenant d'un fichier excel modifié,
à rezipper et remettre au format xlsm.

Merci
Nicolas

 

[jurassic pork]

Hello,
un .xlsm est un fait un .zip. Si dans le .zip il y a l'arborescence d'un fichier .xlsm il suffit de le renommer en .xlsm
Ami calmant, J.P

 

[TooFatBoy]

un .xlsm est un fait un .zip. Si dans le .zip il y a l'arborescence d'un fichier .xlsm il suffit de le renommer en .xlsm

Ah, si j'avais su cela, je l'aurais écrit dès ma première réponse.

 

[Nicolas JACQUIN]

Bonjour,
merci, je cherche toujours compliqué

 

[TooFatBoy]

merci, je cherche toujours compliqué

De rien. C'est toujours un plaisir de t'aider à trouver une solution à ton problème.


@+

 

[jurassic pork]

A noter qu'à partir de windows 10 on peut utiliser la commande tar de l'interpréteur pour compresser des fichiers en zip.
Voici un exemple qui compresse les fichiers qui se trouvent dans le répertoire folder qui contient le contenu d'un fichier .xlsm

Sub CompressFolderFiles()
  folder = "d:\temp\ClasseurTest"
  contenu = "*.*"
  zipFile = "d:\temp\MonNouveauClasseurTest"
  Debug.Print ShellRun("tar -a -v -c -f """ & zipFile & ".zip"" -C """ & folder & """ """ & contenu & """")
  Name zipFile & ".zip" As zipFile & ".xlsm"
End Sub

Public Function ShellRun(sCmd As String) As String
    Dim oShell As Object, oExec As Object, s As String, sLine As String
    Set oShell = CreateObject("WScript.Shell")
    Set oExec = oShell.Exec("cmd /c " & sCmd & "&&exit")
    While Not oExec.StdOut.AtEndOfStream
        sLine = oExec.StdOut.ReadLine
        If sLine <> "" Then s = s & sLine & vbCrLf
        ExecuteExcel4Macro "CALL(""kernel32"",""Sleep"",""JJ""," & (10) & ")" ' Sleep de 10ms
    Wend
    While Not oExec.StdErr.AtEndOfStream
        sLine = oExec.StdErr.ReadLine
        If sLine <> "" Then s = s & sLine & vbCrLf
        ExecuteExcel4Macro "CALL(""kernel32"",""Sleep"",""JJ""," & (10) & ")" ' Sleep de 10ms
    Wend
    ShellRun = s
End Function

La fonction ShellRun permet de récupérer ce qui se passe dans la console cmd pendant l'exécution de la commande (stdOut et stdErr)

 

[job75]

Bonjour à tous,

un .xlsm est un fait un .zip. Si dans le .zip il y a l'arborescence d'un fichier .xlsm il suffit de le renommer en .xlsm

J'ai renommé (avec Name) le dossier .zip en .xlsm, Excel me dit que le fichier obtenu est corrompu.

Merci de nous expliquer.

A+

 

[Nicolas JACQUIN]

Bonjour jurassic pork, job75, TooFatBoy,
Voici ce que j'ai pondu pour l'instant,

Sub RenommerZipEnXlsm()
    Dim cheminDossier As String
    Dim nomFichierZip As String
    Dim nomFichierXlsm As String
    Dim cheminCompletZip As String
    Dim cheminCompletXlsm As String

    ' Spécifiez le chemin du dossier contenant le fichier zip
    cheminDossier = "D:\Users\Nicolas\Desktop\"  ' Modifier le chemin selon votre configuration

    ' Spécifiez le nom du fichier zip
    nomFichierZip = "MaSauvegarde.zip"  ' Modifier le nom du fichier zip

    ' Spécifiez le nom du fichier xlsm
    nomFichierXlsm = "fichier.xlsm"  ' Modifier le nom du fichier xlsm

    ' Construire les chemins complets des fichiers
    cheminCompletZip = cheminDossier & nomFichierZip
    cheminCompletXlsm = cheminDossier & nomFichierXlsm

    ' Vérifiez si le fichier zip existe
    If Dir(cheminCompletZip) <> "" Then
        ' Renommer le fichier zip en fichier xlsm
        Name cheminCompletZip As cheminCompletXlsm
        MsgBox "Le fichier a été renommé avec succès.", vbInformation
    Else
        MsgBox "Le fichier zip spécifié n'existe pas.", vbExclamation
    End If
End Sub

C'est peut-être pas la meilleur solution, mais ça fonctionne,
ce n'est qu'un petit d'un assez gros code,
j'ai commencé à assembler une bonne partie déjà mais reviendrai sans doute vers vous pour l'optimisation.

Merci à tous.
Nicolas

 

[jurassic pork]

J'ai renommé (avec Name) le dossier .zip en .xlsm, Excel me dit que le fichier obtenu est corrompu.

Dans le zip il y a bien le contenu du fichier .xlsm d'origine ( les fichiers sans le répertoire racine)

 

[job75]

Dans le zip il y a bien le contenu du fichier .xlsm d'origine ( les fichiers sans le répertoire racine)

??? Une fois transformé il n'y a plus de zip...

 

[jurassic pork]

le .zip est un dossier ou un fichier ? comment a-t-il été généré ?

 

[Nicolas JACQUIN]

le .zip est un dossier ou un fichier ? comment a-t-il été généré ?

re, je me permets de répondre,
pour ma part, de base c'est bien un fichier xlsm transformé en zip,
......modification......(en vba)
et après retransformé en xlsm

 

[job75]

De manière classique clic droit => Compresser dans un fichier ZIP.