Discussion :

[jlvalentin]

Bonjour à tous,
Je suis sous WIndows 10, avec Excel 2013 et j'ai besoin de lire plusieurs fichiers dont deux sous compressés au format .bz2 dans une application en VBA.
Actuellement, je suis obligé de demander aux utilisateurs de décompresser ces fichiers pour pouvoir ensuite les traiter.

J'aimerais savoir s'il existe un moyen d'ouvrir directement ces fichiers .bz2 pour récupérer le fichier qui y est contenu et qui est lui en format texte donc lisible. Et si ce moyen existe, pourriez-vous me donner les explications nécessaires (via un exemple ou du code par exemple).

Si quelqu'un pouvait m'aider, cela me permettrait d'offrir une utilisation bien plus "pro" de l'outil que je suis amené à developper.

Cordialement,

Jean-Luc

[jlvalentin]

J'ai essayé le code suivant, trouvé après de longues recherches.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub Ouverture_bz2()
'définition des variables
    Dim FSO As Object
    Dim ApplicationArchivage As Object
    Dim FichierArchive As Variant
    Dim DossierDestination As String
 
'informations sur l'archive et le dossier pour les fichiers décompressés
    FichierArchive = "C:\Temp\ENVIRON_20170926_084504.zip" 'l'archive à décompresser
    DossierDestination = "C:\Temp\Data\" 'le dossier dans lequel les fichiers seront décompressés
    
'vérification du format du chemin du dossier de destination
    If Right(DossierDestination, 1) <> "\" Then DossierDestination = DossierDestination & "\"
 
'Décompression
    Set ApplicationArchivage = CreateObject("Shell.Application")
    ApplicationArchivage.Namespace(DossierDestination).CopyHere ApplicationArchivage.Namespace(FichierArchive).items
    Set ApplicationArchivage = Nothing
    
'Message final
    MsgBox "L'archive a été décompressé..."
End Sub

Mais ca plante sur la ligne en rouge (Run-time error '91' : Object variable or With block variable not set)...
Je suppose qu'il faut rajouter une référence mais laquelle ???
Une idée ?

[kiki29]

Salut, via l'installation de 7Zip, puis la solution VBA explications et code, qui adaptée vite fait au contexte fonctionne ici en 2 passes.

[kiki29]

Re,

[patricktoulon]

Bonjour
serait il possible d'avoir une fichier exemple .bz2 je voudrais tester quelque chose

[DenisHen]

Bonjour à tous.

Je viens de récupérer tous les départements du Cadastre, j'ai donc des répertoires pour chaque département avec en sous répertoire les communes, qui contient plusieurs fichiers .bz2.

J'ai tenté ce code mais aucune décompression ne se fait.

Quelqu'un a réussi à faire fonctionner ce code ?

J'ai écris ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
    LignXls = 1: ColXls = 1
    Do While ActiveSheet.Cells(LignXls, 1).Value <> ""
        nf = Dir(ActiveSheet.Cells(LignXls, 1).Value & "\" & "*.*")    ' premier
        n = 0
        Do While nf <> ""
            Chemin = ActiveSheet.Cells(LignXls, ColXls).Value & "\"    '& nf
            Fichier = ActiveSheet.Cells(LignXls, ColXls).Value & "\" & nf
 
           ShellStr = ThisWorkbook.Path & "\" & "7z.exe" & " e " & Fichier
            Call Shell(ShellStr, vbHide)
            nf = Dir
        Loop
        LignXls = LignXls + 1
    Loop

Sachant que mon fixhier Excel est construit comme ça :

.....
A6-> C:\Cadastre_Test\CC\dep15\15046
A7-> C:\Cadastre_Test\CC\dep15\15090
A8-> C:\Cadastre_Test\CC\dep15\15133
A9->C:\Cadastre_Test\CC\dep15\15176
....

[DenisHen]

Re.

J'ai trouvé, mais je n'ai pas tout compris...

Voici le code qui fonctionne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
    LignXls = 1: ColXls = 1
    Do While ActiveSheet.Cells(LignXls, 1).Value <> ""
        Nf = Dir(ActiveSheet.Cells(LignXls, 1).Value & "\" & "*.bz2")    ' premier
        n = 0
        Do While Nf <> ""
            Chemin = ActiveSheet.Cells(LignXls, ColXls).Value & "\"    '& nf
            Fichier = ActiveSheet.Cells(LignXls, ColXls).Value & "\" & Nf
            FichierBz2 = Left(Fichier, Len(Fichier) - 3) & "bz2"
            FichierTar = Left(Fichier, Len(Fichier) - 4)
 
            ShellStr = ThisWorkbook.Path & "\7z" & " x " & FichierBz2 '& Chr(34) & " -o" ' & Chr(34) ' & Chemin & Chr(34)' & " " & "*.*"
            RetVal = Shell(ShellStr, 4)
            ShellStr = ThisWorkbook.Path & "\7z" & " x " & FichierTar '& Chr(34) & " -o" ' & Chr(34) ' & Chemin & Chr(34)' & " " & "*.*"
            RetVal = Shell(ShellStr, 4)
            Nf = Dir
        Loop
        LignXls = LignXls + 1
    Loop

Mais un problème subsiste... 7zip me demande confirmation à chaque remplacement de fichier, et je n'ai pas trouvé comment le faire automatiquement...

[Jean-Philippe André]

Salut,

s'il s'agit d'un problème lors du remplacement, c'est que le fichier destination existe déjà, uassi il te suffit de faire un test d'existence et de le détruire le cas échéant

Tu peux passer par Dir() et Kill

[DenisHen]

Salut Jean-Philippe, et merci pour cette réponse.

C'est bien ça...

J'ai opté pour l'écrasement du fichier s'il existe avec "-r" dans la ligne de commande de la décompression... Et ça fonctionne nickel...

Encore merci...